c<-.5
t<-2
a<-0; b<-10; int<-c(a,b)
IarcCSmid.int(7,5,int,t,c)
IarcCSmid.int(7,7,int,t,c)
IarcCSmid.int(7,5,int,t,c=.4)
IarcCSmid.int(1,3,int,t,c)
IarcCSmid.int(9,11,int,t,c)
IarcCSmid.int(19,1,int,t,c)
IarcCSmid.int(19,19,int,t,c)
IarcCSmid.int(3,5,int,t,c)
#or try
Rv<-rel.vert.mid.int(3,int,c)$rv
IarcCSmid.int(3,5,int,t,c,rv=Rv)
IarcCSmid.int(7,5,int,t,c)
Run the code above in your browser using DataLab