data(NanoStringData)
## obtain housekeeping control genes
housekeepingControl(NanoStringData)
## assign a matrix
n=ncol(exprs(NanoStringData))
r=nrow(housekeepingControl(NanoStringData))
housekeeping=matrix(rpois(r*n,1000),ncol=n)
housekeepingControl(NanoStringData)=housekeeping
Run the code above in your browser using DataLab