# NOT RUN {
X <- matrix(data = rnorm(100), nrow = 10, ncol = 10)
Y <- data.frame(y = runif(10))
MAP <- data.frame(means = colMeans(X), freqNA = colMeans(is.na(X)))
DATA <- BGData(geno = X, pheno = Y, map = MAP)
dim(DATA@geno)
head(DATA@pheno)
head(DATA@map)
# }
Run the code above in your browser using DataCamp Workspace