# Sample Size
ss = 100
# Number of variables of each type
cols = 20
# Errors
e1 = matrix(rnorm(cols * ss),ncol=cols)
e2 = matrix(rnorm(cols * ss),ncol=cols)
# Simulate genotypes, gene expression, and clinical trait matrices
L = matrix(rbinom(cols * ss,2,.5),ncol=cols)
G = matrix(.5*L + e1,ncol=cols)
T = matrix(.2*G + e2,ncol=cols)
trios = cbind(1:cols,1:cols,1:cols)
results = cit(L, G, T, trios)
Run the code above in your browser using DataLab