pool_data <- data.frame(
cov1 = rnorm(100, 11, 2),
cov2 = rnorm(100, 11, 2),
cov3 = rnorm(100, 11, 2),
sex = rbinom(100, 1, 0.5))
tg_data <- data.frame(
cov2 = rnorm(20, 12, 1),
cov3 = rnorm(20, 12, 1),
cov4 = rnorm(20, 12, 1),
sex = rbinom(20, 1, 0.5))
dx <- combine_data(pool_data, tg_data)
str(dx)
Run the code above in your browser using DataLab