データの層化 2 kを0から1までの実数として、曝露率をe=0.5+k*xとし、k（すなわち交絡と曝露率の相関の強さ）によって層化の影響がどのように変わるか調べてみた。 N <- 1000 e <- 0.5 b <- 0.05 c.max <- 0.5 alpha <- 0.1 n <- 7 myfunc <- function(k){ d…