# Simulate data
ngenes <- 10
narray <- 48
rna <- dnaseg <- dnacal <- matrix(NA, ngenes, narray)
idx <- sample(1:4, ngenes, replace=TRUE, prob=rep(1/4,4))
for(i in 1:ngenes){
Sim <- plrs.sim(n=narray, states=idx[i], sigma=0.5)
rna[i,] <- Sim$expr
dnaseg[i,] <- Sim$seg
dnacal[i,] <- Sim$cal
}
# Screening procedure with linear model
series <- plrs.series(expr = rna, cghseg = dnaseg, cghcall = NULL, control.select = NULL)
# Screening procedure with full plrs model
series <- plrs.series(expr = rna, cghseg = dnaseg, cghcall = dnacal, control.select = NULL)
# Model selection
series <- plrs.series(expr = rna, cghseg = dnaseg, cghcall = dnacal)
Run the code above in your browser using DataLab