set.seed(1234567)
true.psi = c(2, 1, 0.8,
0.1, -0.01, -0.1,
2, 1, 0.8,
-0.1, -0.01, -0.1,
2, 1, 0.8,
-0.01, -0.1)
names(true.psi)=c("alpha1", "beta1", "k1",
"eta1.intercept", "eta1.Age", "eta1.Sex",
"alpha2", "beta2", "k2",
"eta2.intercept", "eta2.Age", "eta2.Sex",
"alpha3", "beta3", "k3",
"eta3.Age", "eta3.Sex")
true.pi=c(0.1, 0.1)
names(true.pi)=c("pi.OE", "pi.UE")
par.true=c(true.pi, true.psi)
esDiff = genSimDat(G = 1000,
n = 20,
psi = true.psi,
t_pi = true.pi,
m.age = 0, # scaled age
sd.age = 1, # scaled age
p.female = 0.5)
print(esDiff)
Run the code above in your browser using DataLab