defc <- defData(
varname = "ceffect", formula = 0, variance = 0.10,
dist = "normal", id = "cluster"
)
defc <- defData(defc, "m", formula = 10, dist = "nonrandom")
# Will generate 3 waves of 4 clusters each - starting 2, 5, and 8
dc <- genData(12, defc)
dp <- addPeriods(dc, 12, "cluster")
dp <- trtStepWedge(dp, "cluster",
nWaves = 3,
lenWaves = 3, startPer = 2
)
dp
dp <- addPeriods(dc, 12, "cluster")
dp <- trtStepWedge(dp, "cluster",
nWaves = 2,
lenWaves = 1, startPer = 4, lag = 3
)
dp
Run the code above in your browser using DataLab