### Example. Two chunks of data.
### Firstly, it is necessary to set up the input parameters.
## Note: cut off the "#" symbol before running the four lines below.
# AnalyzeSetUp.Multinomial(name="VaccinesABC",N=200,alpha=0.05,R0=1,rho=1,
# m=10000, title="Title of the output table",
# ExposuresNames=c("A","B","C","AB","AC","BC","ABC"),
# address="C:/Users")
### Running sequential tests for two chunks of data.
# -------------------------------------------------------------------------
## Test 1: in this first test, events were observed for each of
# the exposures "A","B","C","AB","AC","BC","ABC", and
# two binary covariates are present to adjust for gender
# and age with categories "F-Y", "F-O", "M-Y", "M-O".
# Note: cut off the "#" symbol before running the lines below.
#res1<- Analyze.Multinomial(name="VaccinesABC", test=1,
#cases= c(2,1,0,1,0,1,0,
# 1,2,0,1,0,1,1,
# 3,3,1,1,0,0,1,
# 2,0,1,1,1,0,0),
#controls= c(3,3,3,3),
#N_exposures= c(1000,1500,300,300,320,280,240,
# 1000,1500,300,300,320,280,240,
# 1000,1500,300,300,320,280,240,
# 1000,1500,300,300,320,280,240),
#N_controls= c(500,500,500,500),
#exposure_group= c("A","B","C","AB","AC","BC","ABC",
# "A","B","C","AB","AC","BC","ABC",
# "A","B","C","AB","AC","BC","ABC",
# "A","B","C","AB","AC","BC","ABC"),
#strata_group_cases= c("F-Y","F-Y","F-Y","F-Y","F-Y","F-Y","F-Y",
# "F-O","F-O","F-O","F-O","F-O","F-O","F-O",
# "M-Y","M-Y","M-Y","M-Y","M-Y","M-Y","M-Y",
# "M-O","M-O","M-O","M-O","M-O","M-O","M-O"),
#strata_group_controls= c("F-Y","F-O","M-Y","M-O"),
#AlphaSpend= "n" )
## Test 2: in this second test, events were observed for each of
# the exposures "A","B","C","AB","AC","BC","ABC", but
# there are no covariates to adjust for.
# Note: cut off the "#" symbol before running the lines below.
#res2<- Analyze.Multinomial(name="VaccinesABC", test=2,
#cases= c(7,7,3,5,2,3,0),
#controls= 2,
#N_exposures= c(1200,1600,400,250,300,300,280),
#N_controls= 600,
#exposure_group= c("A","B","C","AB","AC","BC","ABC"),
#strata_group_cases= "n",
#strata_group_controls= "n",
#AlphaSpend= "n"
# )
Run the code above in your browser using DataLab