How to simulate continuous data

Input

The user specifies the number of treatment arms in the trial, the sample size per treatment arm (assumed equal) and the timing of adding arms in terms of patients recruited to the trial so far.

• num_arms Number of treatment arms in the trial
• n_arm Sample size per arm (assumed equal)
• d Vector with timings of adding new arms in terms of number of patients recruited to the trial so far (of length num_arms)
• period_blocks - number to multiply the number of active arms with in order to get the block size per period (block size = period_blocks \(\cdot\) #active arms)
• mu0 - response in the control arm. Default=0
• theta - vector with treatment effects for each treatment arm (of length num_arms)
• lambda - vector with strength of time trend in each arm (of length num_arms+1, as time trend in the control is also allowed)
• sigma - residual variance
• trend - indicates the time trend pattern (“linear”, “stepwise” or “inv_u”)
• N_peak - point at which the inverted-u time trend switches direction in terms of overall sample size
• full - Boolean. Indicates whether the full dataset should be returned. Default=FALSE

Output

Per default (using full=FALSE), the function outputs a dataframe with simulated trial data needed for the analysis. If the parameter full is set to TRUE, the output is a list containing an extended version of the dataframe (also including lambdas and underlying responses) and all input parameters.

Examples

# Dataset with trial data only (default)

head(datasim_cont(num_arms = 3, n_arm = 100, d = c(0, 100, 250), 
                  theta = rep(0.25, 3), lambda = rep(0.15, 4), 
                  sigma = 1, trend = "linear"))

  j    response treatment period
1 1 -0.02637641         0      1
2 2 -0.44194196         1      1
3 3  1.32774428         0      1
4 4 -0.62595318         1      1
5 5 -0.46338757         0      1
6 6  1.45766854         0      1

# Full dataset

head(datasim_cont(num_arms = 3, n_arm = 100, d = c(0, 100, 250), 
                  theta = rep(0.25, 3), lambda = rep(0.15, 4), 
                  sigma = 1, trend = "linear", full = T)$Data)

  j   response treatment period        means lambda0 lambda1 lambda2 lambda3
1 1  0.9854557         1      1 0.2500000000    0.15    0.15    0.15    0.15
2 2  0.3121772         1      1 0.2503006012    0.15    0.15    0.15    0.15
3 3 -0.4321393         0      1 0.0006012024    0.15    0.15    0.15    0.15
4 4 -0.4704220         0      1 0.0009018036    0.15    0.15    0.15    0.15
5 5 -0.7243510         0      1 0.0012024048    0.15    0.15    0.15    0.15
6 6  0.4558754         1      1 0.2515030060    0.15    0.15    0.15    0.15