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