#to view the code for the function
selectMethod("fastboots.GLA", signature=c("ANY","matrix"))
#
library(LiquidAssociation)
library(yeastCC)
library(org.Sc.sgd.db)
library(WGCNA)
data(spYCCES)
lae <- spYCCES[,-(1:4)]
### get rid of samples with high NA elements
lae <- lae[apply(is.na(exprs(lae)),1,sum) < ncol(lae)*0.3,]
data <- t(exprs(lae))
data <- data[,1:50]
dim(data)
example <- fastMLA(data=data, topn=25, nvec=1:10, rvalue=1.0, cut=4)
clust <- makeCluster(4)
ex <- example[1:5,]
GLAeasy <- fastboots.GLA(ex, data=data, clust=clust, boots=30, perm=100, cut=4)
stopCluster(clust)
GLAeasy
closeAllConnections()
Run the code above in your browser using DataLab