data(NanoStringData)
## obtain positive control genes
positiveControl(NanoStringData)
## assign a matrix
n=ncol(exprs(NanoStringData))
x=matrix(c(128,32,8,2,0.5,0.125)*80,ncol=1)
positive=matrix(rpois(6*n,x),ncol=n)
positiveControl(NanoStringData)=positive
Run the code above in your browser using DataLab