library(Biobase)
df <- data.frame(Time = seq_len(3), #integer column
Actb = c(0.05, 0.3, 0.8),
Gapdh = c(0.2, 0.03, 0.1))
set <- as.ExpressionSet(df)
rownames(exprs(set)) == c('Actb', 'Gapdh')
phenoData(set)$Time == 1:3
Run the code above in your browser using DataLab