norm1d(logratio, logintensity, span = 0.6, quant = 0.99, dye.swap = FALSE)norm1c,norm1a,norm1b,norm2c,norm2ddata(hiv)
lR<-log(hiv[,1:4],2)-log(hiv[,5:8],2)
lI<-log(hiv[,1:4],2)+log(hiv[,5:8],2)
lRnorm<-norm1d(lR,lI,dye.swap=TRUE)
Run the code above in your browser using DataLab