suppressMessages(library(tidyverse))
set.seed(200)
df <- data.frame(Patient = 1:12,
Months...'Partial Response Start'=sample(c(6:(max(Months)-1),NA), 1,
prob=c(rep(1, length...(6:(max(Months)-1))),5), replace=TRUE),
'Durable'=sample(c(-0.5,NA), 1, replace=TRUE),...'Response End'=sample(c(6:(max(Months)-1),NA), 1,
prob=c(rep(1, length(6:(max...[6]
## Patient Months Stage Continued Complete Response Sta…¹ Parti…² Durable Respo…³
##