# \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)
tetra<-rbind(A,B,C,D)
n<-10
dat<-runif.tetra(n,tetra)$g #try also dat<-c(.5,.5,.5)
M<-"CM" #try also M<-"CC"
r<-1.5
IM<-IncMatPEtetra(dat,tetra,r=1.25) #uses the default M="CM"
IM<-IncMatPEtetra(dat,tetra,r=1.25,M)
IM
dom.greedy(IM)
IndUBdom(IM,3)
dom.exact(IM) #this might take a long time for large n
IncMatPEtetra(dat,tetra,r=1.5)
IncMatPEtetra(dat,tetra,r=2)
r<-2
IncMatPEtetra(dat,tetra,r,M)
dat.fr<-data.frame(a=dat)
IncMatPEtetra(dat.fr,tetra,r,M)
dat.fr<-data.frame(a=tetra)
IncMatPEtetra(dat,dat.fr,r,M)
# }
Run the code above in your browser using DataLab