こんな感じの生存曲線を見た。 元論文では対照のマウスにある処置をすると生存期間が伸びる、ということで、それぞれ20匹のマウスを使っていた。 library(survival) # 図から再現したらこんな感じ n1 <- n2 <- 20 clp1 <- rep(c(24, 30, 42, 48), c(7,9,1,3)…