library('data.table')
y = GSE34018$y
metadata = GSE34018$metadata
fit = getModelFit(y, metadata)
fit = getPosteriorFit(fit)
measObs = mergeMeasMeta(y, metadata, features = c('13170', '12686'))
measFitMean = getExpectedMeas(
fit, times = seq(0, 24, 0.5), features = c('13170', '12686'))
Run the code above in your browser using DataLab