if (require(affydata)) {
data(Dilution)
Pset <- fitPLM(Dilution, model=PM ~ -1 + probes + samples)
se(Pset)[1:5,]
image(Pset)
NUSE(Pset)
#now lets try a wider class of models
## Not run: Pset <- fitPLM(Dilution,model=PM ~ -1 + probes +liver,
# normalize=FALSE,background=FALSE)## End(Not run)
## Not run: coefs(Pset)[1:10,]
## Not run: Pset <- fitPLM(Dilution,model=PM ~ -1 + probes + liver +
# scanner, normalize=FALSE,background=FALSE)## End(Not run)
coefs(Pset)[1:10,]
#try liver as a covariate
logliver <- log2(c(20,20,10,10))
## Not run: Pset <- fitPLM(Dilution, model=PM~-1+probes+logliver+scanner,
# normalize=FALSE, background=FALSE, variable.type=c(logliver="covariate"))## End(Not run)
coefs(Pset)[1:10,]
#try a different se.type
## Not run: Pset <- fitPLM(Dilution, model=PM~-1+probes+scanner,
# normalize=FALSE,background=FALSE,m odel.param=list(se.type=2))## End(Not run)
se(Pset)[1:10,]
}
Run the code above in your browser using DataLab