x.o <- matrix(abs(rnorm(10, mean=3)),
dimnames=list(c(1:10),"mRNA")) # mRNA expression
z.o <- matrix(abs(rnorm(4, mean=3)),
dimnames=list(c(1:4),"miRNA")) # miRNA expression
c <- matrix(rpois(40, lambda=3),nrow=nrow(x.o),
dimnames=list(c(1:10),c(1:4))) # seed match matrix
rs.pred <- roleswitch(x.o, z.o, c)
diagnosticPlot(rs.pred)
Run the code above in your browser using DataLab