g_vec <- matrix(0, nrow = 100000, ncol = 5)
freqs <- runif(ncol(g_vec), min = 0, max = 1)
for(i in 1:ncol(g_vec)){
g_vec[,i] <- rbinom(100000, 2, freqs[i])
}
qt_vec <- rnorm(100000) + 0.1 * g_vec[, 1] + 0.2 *
g_vec[, 2] -0.1 * g_vec[, 3] + 0.2 *
g_vec[, 1] * g_vec[, 2]
res <- pairwise_int.calc(qt_vec, g_vec)
Run the code above in your browser using DataLab