# \donttest{
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<-inci.matPEint(Xp,int,r,c)
IM
dom.num.greedy(IM)
Idom.num.up.bnd(IM,6)
dom.num.exact(IM)
inci.matPEint(Xp,int+10,r,c)
# }
Run the code above in your browser using DataLab