# set seed
set.seed(123)
# Path to plink files
file <- system.file("extdata", 'sample.bed', package = "genio", mustWork = TRUE)
# Generate trait expression
Y <- matrix(rnorm(10*4), ncol = 4)
out <- marginal_plink(Y, file = file)
Run the code above in your browser using DataLab