## Loading data from files
if (FALSE) {
gctpath <- "P53.gct"
clspath <- "P53.cls"
gmtpath <- "C2.gmt"
expdat <- load_gct(gctpath)
label <- load_cls(clspath)
geneset <- load_gmt(gmtpath)
fc <- function(x, label)
{
d0 <- apply(x[,which(label == 0)], 1, mean)
d1 <- apply(x[,which(label == 1)], 1, mean)
d <- d1 / d0
return(order(d))
}
ds_gsa_obj <- ds_gsa(expdat, geneset, label, "fc", lambda = 1.2, bycol = TRUE,
minsize = 15, maxsize = 500, randseed = 11235, rounds = 100)
}
Run the code above in your browser using DataLab