# NOT RUN {
timePoints <- c( 1.2 , 1.3 , 2, 5 )
constraints <- getConstraintsExample()
ex1 <- getSetOfSchemes( minNSubjects = 4 , maxNSubjects = 4 ,
minObsPerSubject = 3 , maxObsPerSubject = 3 , timePoints , constraints )
ex2 <- getSetOfSchemes( minNSubjects = 4 , maxNSubjects = 4 ,
minObsPerSubject = 3 , maxObsPerSubject = 3 , timePoints ,
constraints , maxRepetitionIndSchemes = 1 )
ex3 <- getSetOfSchemes( minNSubjects = 4 , maxNSubjects = 4 ,
minObsPerSubject = 2 , maxObsPerSubject = 3 , timePoints ,
constraints , maxRepetitionIndSchemes = 1 )
ex4 <- getSetOfSchemes( minNSubjects = 2 , maxNSubjects = 5 ,
minObsPerSubject = 2 , maxObsPerSubject = 3 , timePoints ,
constraints , maxRepetitionIndSchemes = 1 )
ex5 <- getSetOfSchemes( minNSubjects = 2 , maxNSubjects = 5 ,
minObsPerSubject = 2 , maxObsPerSubject = 3 , timePoints ,
maxRepetitionIndSchemes = 2 )
# }
# NOT RUN {
# this should trow an error (to many combinations required )
ex6 <- getSetOfSchemes( minNSubjects = 2 , maxNSubjects = 5 ,
minObsPerSubject = 2 , maxObsPerSubject = 3 , timePoints ,
maxRepetitionIndSchemes = 2 , maxNumberOfSchemesBeforeChecks = 1000 )
# }
Run the code above in your browser using DataLab