# NOT RUN {
# fixed noise effect with default setting
noiseFE <- noiseFixedEffects(P=5, N=20)
# 1 categorical fixed noise effect with uniform distribution of the
# categories
noiseFE_catUnif <- noiseFixedEffects(P=10, N=20, NrConfounders=1,
distConfounders="cat_unif", catConfounders=3)
# 10 fixed noise effect with uniform distribution between 1 and 5 (3 +/- 2)
# categories
noiseFE_uniformConfounders_normBetas <- noiseFixedEffects(P=10, N=20,
NrConfounders=10, distConfounders="unif", mConfounders=3, sdConfounders=2,
distBeta="norm", sdBeta=2)
# 4 fixed noise effect with binomial distribution with p=0.2
noiseFE_binomialConfounders_uniformBetas <- noiseFixedEffects(P=10, N=20,
NrConfounders=4, distConfounders="bin", probConfounders=0.2, distBeta="norm",
sdBeta=2)
# 2 fixed noise effect with 1 binomial confounders and 1 normally
# distributed confounder; the latter only affects 2 traits
noiseFE_binomialandNormalConfounders <- noiseFixedEffects(P=10, N=20,
NrFixedEffects=2, pTraitsAffected =c (1,0.2), NrConfounders=c(2,2),
distConfounders=c("bin", "norm"), probConfounders=0.2)
# }
Run the code above in your browser using DataLab