blood_serum <-
structure(list(patient = structure(c(1L, 2L, 3L, 4L, 5L, 6L, 
7L, 8L, 9L, 10L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 1L, 
2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 1L, 2L, 3L, 4L, 5L, 6L, 
7L, 8L, 9L, 10L), .Label = c("1", "13", "25", "37", "49", "61", 
"73", "85", "97", "109"), class = "factor"), cell = c("LNCaP", 
"LNCaP", "LNCaP", "LNCaP", "LNCaP", "LNCaP", "LNCaP", "LNCaP", 
"LNCaP", "LNCaP", "NIH3T3", "NIH3T3", "NIH3T3", "NIH3T3", "NIH3T3", 
"NIH3T3", "NIH3T3", "NIH3T3", "NIH3T3", "NIH3T3", "LNCaP", "LNCaP", 
"LNCaP", "LNCaP", "LNCaP", "LNCaP", "LNCaP", "LNCaP", "LNCaP", 
"LNCaP", "NIH3T3", "NIH3T3", "NIH3T3", "NIH3T3", "NIH3T3", "NIH3T3", 
"NIH3T3", "NIH3T3", "NIH3T3", "NIH3T3"), serum = c("before", 
"before", "before", "before", "before", "before", "before", "before", 
"before", "before", "before", "before", "before", "before", "before", 
"before", "before", "before", "before", "before", "after", "after", 
"after", "after", "after", "after", "after", "after", "after", 
"after", "after", "after", "after", "after", "after", "after", 
"after", "after", "after", "after"), growth = c(2.3999999999999999, 
3.1400000000000001, 3.1099999999999999, 2.3999999999999999, 3.21, 
2.5499999999999998, 2.5499999999999998, 3.1800000000000002, 3.2200000000000002, 
2.8399999999999999, 1.6699999999999999, 3.0800000000000001, 2.9100000000000001, 
3.3500000000000001, 3.3799999999999999, 1.7, 2.8900000000000001, 
1.8400000000000001, 2.3700000000000001, 2.98, 1.3899999999999999, 
2.8900000000000001, 2.8599999999999999, 2.8999999999999999, 2.98, 
1.97, 1.5800000000000001, 1.8200000000000001, 2.0499999999999998, 
1.98, 2.0600000000000001, 2.3300000000000001, 1.8799999999999999, 
2.4900000000000002, 2.4300000000000002, 2.25, 3.04, 1.23, 3.1400000000000001, 
3.6299999999999999)), row.names = c(NA, -40L), class = "data.frame")