inst/data_scripts/nakayama-2007/2-clean.r

# Nakayama et al. (2007) Sarcoma Data Set
nakayama_x <- Table(geo_obj)
x <- unname(t(data.matrix(nakayama_x[, -c(1:2)])))
colnames(x) <- nakayama_x[, 1]

y <- Columns(geo_obj)$disease.state

nakayama <- list(x = x, y = y)
ramhiser/datamicroarray documentation built on May 26, 2019, 10:07 p.m.