if (FALSE) {
c<-.4
r<-2
a<-0; b<-10; int<-c(a,b)
xf<-(int[2]-int[1])*.1
set.seed(123)
n<-10
Xp<-runif(n,a-xf,b+xf)
IM<-IncMatPEint(Xp,int,r,c)
IM
dom.greedy(IM)
IndUBdom(IM,6)
dom.exact(IM)
IncMatPEint(Xp,int+10,r,c)
}
Run the code above in your browser using DataLab