if (FALSE) {
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)$g
M<-as.numeric(runif.tri(1,Tr)$g) #try also M<-c(1.6,1.0)
IM<-IncMatCStri(Xp,Tr,t=1.25,M)
IM
dom.greedy(IM) #try also dom.exact(IM)
IndUBdom(IM,3)
IncMatCStri(Xp,Tr,t=1.5,M)
}
Run the code above in your browser using DataLab