calculation <- data.frame(
content = rep(c("A", "B", "C"), each = 2),
replicate = rep(1:2, 3),
time_to_threshold = rnorm(6),
RAF = rnorm(6),
MPR = rnorm(6),
MS = rnorm(6)
)
calculation_spread = SpreadCalculation(calculation)
print(calculation_spread)
Run the code above in your browser using DataLab