# NOT RUN {
# Example data
data(tb.expr)
data(tb.design)
# Use first 100 probes to demonstrate
dat <- tb.expr[1:100,]
# Create desInfo object
meta.data <- metaData(y = dat, design = tb.design, data.type = "microarray",
columnname = "columnname", long = TRUE, subject.id = "monkey_id",
baseline.var = "timepoint", baseline.val = 0, time.var = "timepoint",
sample.id = "sample_id")
# create BART file (minimal example)
genFile(meta = list(meta.data), folder.path = tempdir())
# generate module scores, normalize and cluster genes
mods <- genModScores(meta.data, modules)
data.norm <- normalizeData(meta = meta.data)
dendros <- clusterData(norm.data = data.norm)
# Update BART file with module scores and clustered genes
path <- paste0(tempdir(), "/", "BART Project")
updateFile(load.path = path, module.scores = mods, dendrograms = dendros)
# }
Run the code above in your browser using DataLab