## Not run:
# data(sicalis)
# tcs.sicalis.C <- subset(tcs(vismodel(sicalis)), 'C')
# tcs.sicalis.T <- subset(tcs(vismodel(sicalis)), 'T')
# tcs.sicalis.B <- subset(tcs(vismodel(sicalis)), 'B')
# voloverlap(tcs.sicalis.T,tcs.sicalis.B)
# voloverlap(tcs.sicalis.T,tcs.sicalis.C, plot=T)
# voloverlap(tcs.sicalis.T,tcs.sicalis.C, plot=T, col=1:3) ## End(Not run)
Run the code above in your browser using DataLab