# NOT RUN {
a<-0; b<-10; int<-c(a,b)
r<-2
IndNPEend1D(15,17,r,int)
IndNPEend1D(15,15,r,int)
IndNPEend1D(1.5,17,r,int)
IndNPEend1D(-15,17,r,int)
IndNPEend1D(a,17,r,int)
IndNPEend1D(15,17,r=1.1,int)
a<-0; b<-10; int<-c(a,b)
r<-2
IndNPEend1D(15,17,r,int)
# }
Run the code above in your browser using DataLab