# NOT RUN {
pwr_reg(
seeded = 10^(seq(1, 5, 0.5)),
counted = 0.4 * (10^seq(1, 5, 0.5))^1.25 * rnorm(n = 9, 1, 0.05)
)
data(CFAdata)
D <- subset.data.frame(
x = CFAdata,
subset = cell.line == levels(CFAdata$cell.line)[1]
)
pwr_reg(seeded = D$`Cells seeded`, counted = D$`0 Gy`)
# }
Run the code above in your browser using DataLab