set.seed(10)
n1=n0=25
y=c(rep(1,n1),rep(0,n0))
#1. useless marker
x1=abs(c(rnorm(n1,0,1),rnorm(n0,0,1)))
fit1=varoc3d(y=y,x=x1,plot=FALSE)
#2. useful marker
x2=abs(c(rnorm(n1,2,1),rnorm(n0,0,1)))
fit2=varoc3d(y=y,x=x2,plot=FALSE)
#3. markers 1 vs 2
opar=par(mfrow=c(1,2))
zlim=range(c(fit1$res1$tmd,fit2$res1$tmd))
fit1=varoc3d(y=y,x=x1,zlim=zlim)
fit2=varoc3d(y=y,x=x2,zlim=zlim)
on.exit(par(opar))
Run the code above in your browser using DataLab