R package testp3