Assign treatment for stepped-wedge design

Assign treatment for stepped-wedge design

trtStepWedge(
  dtName,
  clustID,
  nWaves,
  lenWaves,
  startPer,
  perName = "period",
  grpName = "rx",
  lag = 0,
  xrName = "xr"
)

Arguments

dtName

data table

clustID

string representing name of column of cluster level ids

nWaves

number of treatment waves

lenWaves

the number of periods between waves

startPer

the starting period of the first wave

perName

string representing name of column of time periods

grpName

string representing variable name for treatment or exposure group

lag

integer representing length of transition period

xrName

string representing name of the field that indicates whether the cluster status is in transition status

Value

A data.table with the added treatment assignment

See also

trtObserve trtAssign

Examples

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
#> Key: <cluster>
#>      cluster period     ceffect     m timeID startTrt    rx
#>        <int>  <int>       <num> <num>  <int>    <num> <num>
#>   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
#> Key: <cluster>
#>      cluster period     ceffect     m timeID startTrt    xr    rx
#>        <int>  <int>       <num> <num>  <int>    <num> <num> <num>
#>   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