Assign treatment for stepped-wedge design
trtStepWedge(
dtName,
clustID,
nWaves,
lenWaves,
startPer,
perName = "period",
grpName = "rx",
lag = 0,
xrName = "xr"
)data table
string representing name of column of cluster level ids
number of treatment waves
the number of periods between waves
the starting period of the first wave
string representing name of column of time periods
string representing variable name for treatment or exposure group
integer representing length of transition period
string representing name of the field that indicates whether the cluster status is in transition status
A data.table with the added treatment assignment
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
#> cluster period ceffect m timeID startTrt rx
#> 1: 1 0 -0.03387530 10 1 2 0
#> 2: 1 1 -0.03387530 10 2 2 0
#> 3: 1 2 -0.03387530 10 3 2 1
#> 4: 1 3 -0.03387530 10 4 2 1
#> 5: 1 4 -0.03387530 10 5 2 1
#> ---
#> 140: 12 7 -0.06267344 10 140 8 0
#> 141: 12 8 -0.06267344 10 141 8 1
#> 142: 12 9 -0.06267344 10 142 8 1
#> 143: 12 10 -0.06267344 10 143 8 1
#> 144: 12 11 -0.06267344 10 144 8 1
dp <- addPeriods(dc, 12, "cluster")
dp <- trtStepWedge(dp, "cluster",
nWaves = 2,
lenWaves = 1, startPer = 4, lag = 3
)
dp
#> cluster period ceffect m timeID startTrt xr rx
#> 1: 1 0 -0.03387530 10 1 4 0 0
#> 2: 1 1 -0.03387530 10 2 4 0 0
#> 3: 1 2 -0.03387530 10 3 4 0 0
#> 4: 1 3 -0.03387530 10 4 4 0 0
#> 5: 1 4 -0.03387530 10 5 4 1 0
#> ---
#> 140: 12 7 -0.06267344 10 140 5 1 0
#> 141: 12 8 -0.06267344 10 141 5 0 1
#> 142: 12 9 -0.06267344 10 142 5 0 1
#> 143: 12 10 -0.06267344 10 143 5 0 1
#> 144: 12 11 -0.06267344 10 144 5 0 1