Nothing
knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(GenTwoArmsTrialSize)
getSizeMean(design="parallel", test="equivalence", alpha=0.05, beta=0.20, sigma=0.10, k=1, delta=0.05, TTE=0.01, rho=c(0.05, 0.07), r=0.1)
getSizeProp(design="crossover", test="superiority", alpha=0.05, beta=0.20, varsigma=c(0.5, 0.5), k=1, seqnumber=2, delta=0.10, TTE=0, rho=c(0.05, 0.07), r=0.1)
getSizeTTE(design="parallel", test="equality", alpha=0.05, beta=0.20, varlambda=c(1,2), k=1, ttotal=3, taccrual=1, gamma=0.00001, delta=1, rho=c(0.05, 0.07), r=0.1)
getSizeOrd(design="parallel", test="equality", alpha=0.05, beta=0.10, varcatprob= list(c(0.2,0.5,0.2,0.1), c(0.378,0.472,0.106,0.044)), k=1, theta=0.877, delta=0, rho=c(0.05, 0.07), r=0.1)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.