# NOT RUN {
initialSampleSize <- 75
clusterSize <- 5
responseCorstr <- "ar1"
responseCorRho <- 0.3
response <- gaussian()
beta0 <- c(1, -1.1, 1.5, -2, rep(0, 50))
xVariance <- 0.2
xCorRho <- 0.5
xCorstr <- "ar1"
data <- gen_GEE_data(numClusters = initialSampleSize,
clusterSize = clusterSize,
clusterCorstr = responseCorstr,
clusterRho = responseCorRho,
beta = beta0,
family = response,
intercept = TRUE,
xVariance = xVariance,
xCorstr = xCorstr,
xCorRho = xCorRho)
# }
Run the code above in your browser using DataLab