load(system.file("exampleData/normData.RData", package = "cn.farms"))
notes(experimentData(normData))$annotDir <-
system.file("exampleData/annotation/pd.genomewidesnp.6/1.1.0",
package = "cn.farms")
summaryMethod <- "Variational"
summaryParam <- list()
summaryParam$cyc <- c(10)
slData <- slSummarization(normData,
summaryMethod = summaryMethod,
summaryParam = summaryParam)
assayData(slData)$L_z[1:10, 1:10]
summaryMethod <- "Gaussian"
summaryParam <- list()
summaryParam$cyc <- c(10)
slData <- slSummarization(normData,
summaryMethod = summaryMethod,
summaryParam = summaryParam)
assayData(slData)$L_z[1:10, 1:10]
summaryMethod <- "Exact"
summaryParam <- list()
summaryParam$cyc <- c(10, 20)
slData <- slSummarization(normData,
summaryMethod = summaryMethod,
summaryParam = summaryParam)
assayData(slData)$L_z[1:10, 1:10]
Run the code above in your browser using DataLab