R package testp