View source: R/get.ss.bin.int.GNG.r
| get.ss.bin.int.GNG | R Documentation |
Get single sample binary interim Go-NoGo
get.ss.bin.int.GNG(ss.bin.int.df, Interims = 20, ss.bin.studyend.GNG)
ss.bin.int.df |
output from get.ss.bin.interim.df |
Interims |
vector of sample sizes at which interims will occur |
ss.bin.studyend.GNG |
output from call to get.ss.bin.studyend.GNG |
A tibble is returned holding the min and max needed for Go and No-Go resp.
{
my.ss.bin.int.df <- get.ss.bin.int.df(ss.bin.studyend.GNG =
get.ss.bin.studyend.GNG(a.trt = 1, b.trt = 1, n.trt = 40, x.trt = 9,
Delta.lrv = .2, Delta.tv = .35, tau.tv = 0.10, tau.lrv = .80, tau.ng = .65),
goThreshold = .8, nogoThreshold = 1.2, include_nogo = TRUE)
my.ss.bin.studyend.GNG <- get.ss.bin.studyend.GNG(a.trt = 1, b.trt = 1, n.trt = 40, x.trt = 9,
Delta.lrv = .2, Delta.tv = .35,
tau.tv = 0.10, tau.lrv = .80, tau.ng = .65)
my.ss.bin.int.GNG <- get.ss.bin.int.GNG(
ss.bin.int.df = my.ss.bin.int.df,
Interims = 20,
ss.bin.studyend.GNG = my.ss.bin.studyend.GNG)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.