# NOT RUN {
a<-0; b<-10; int<-c(a,b)
t<-2
IndNCSend1D(15,17,t,int)
IndNCSend1D(15,15,t,int)
IndNCSend1D(1.5,17,t,int)
IndNCSend1D(1.5,1.5,t,int)
IndNCSend1D(-15,17,t,int)
IndNCSend1D(-15,-17,t,int)
a<-0; b<-10; int<-c(a,b)
t<-.5
IndNCSend1D(15,17,t,int)
# }
Run the code above in your browser using DataLab