# \donttest{
A<-c(1,1); B<-c(2,0); C<-c(1.5,2);
Tr<-rbind(A,B,C);
n<-10
set.seed(1)
Xp<-runif.tri(n,Tr)$gen.points
M<-as.numeric(runif.tri(1,Tr)$g) #try also M<-c(1.6,1.2)
Idom.numASup.bnd.tri(Xp,1,Tr)
for (k in 1:n)
print(c(k,Idom.numASup.bnd.tri(Xp,k,Tr,M)))
Idom.numASup.bnd.tri(Xp,k=4,Tr,M)
P<-c(.4,.2)
Idom.numASup.bnd.tri(P,1,Tr,M)
Idom.numASup.bnd.tri(rbind(Xp,Xp),k=2,Tr,M)
# }
Run the code above in your browser using DataLab