# \donttest{
A<-c(0,0,0); B<-c(1,0,0); C<-c(1/2,sqrt(3)/2,0); D<-c(1/2,sqrt(3)/6,sqrt(6)/3)
set.seed(1)
tetra<-rbind(A,B,C,D)+matrix(runif(12,-.25,.25),ncol=3)
n<-3 #try also n<-20
Xp<-runif.tetra(n,tetra)$g
M<-"CM" #try also M<-"CC"
r<-1.5
NPEtetra(Xp[1,],tetra,r) #uses the default M="CM"
NPEtetra(Xp[1,],tetra,r,M="CC")
#or try
RV<-rel.vert.tetraCM(Xp[1,],tetra)$rv
NPEtetra(Xp[1,],tetra,r,M,rv=RV)
P1<-c(.1,.1,.1)
NPEtetra(P1,tetra,r,M)
# }
Run the code above in your browser using DataLab