if (FALSE) {
t<-2
c<-.4
a<-0; b<-10;
nx<-10; ny<-4
set.seed(1)
Xp<-runif(nx,a,b)
Yp<-runif(ny,a,b)
IM<-IncMatCS1D(Xp,Yp,t,c)
IM
dom.greedy(IM) #try also dom.exact(IM) #might take a long time depending on nx
IndUBdom(IM,5)
}
Run the code above in your browser using DataLab