# 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, sample.id = "sample_id",
subject.id = "monkey_id", time.var = "timepoint",
baseline.var = "timepoint", baseline.val = 0)
# Normalize data
data.norm <- normalizeData(meta = meta.data)
# Cluster data
dendros <- clusterData(norm.data = data.norm)
# }
Run the code above in your browser using DataLab