data(dd.micro)
op=par(mfrow=c(1,1),ask=TRUE)
MMM=dd.micro$procS ## gProcessedSignal
min=min(MMM) ## transforming gProcessedSignal to positive values
for(i in 1:dim(MMM)[2]){ ## before log2 transformation
MMM[,i]=MMM[,i]+(abs(min)+ 5)
}
ddaux=dd.micro
ddaux$meanS=log2(MMM)
mvaMicroRna(ddaux,maintitle="ProcessedSignal",verbose=FALSE)
rm(ddaux)
par(op)
Run the code above in your browser using DataLab