# construct annmatrix object
x <- matrix(rnorm(20*10), 20, 10)
X <- as.annmatrix(x)
X$group <- rep(c("case", "control"), each = 5)
X$gender <- sample(c("M", "F"), 10, replace = TRUE)
X@chr <- sample(c("chr1", "chr2"), 20, replace = TRUE)
X@pos <- runif(20, 0, 1000000)
is.matrix(x)
is.matrix(X)
is.annmatrix(x)
is.annmatrix(X)
as.matrix(X)
Run the code above in your browser using DataLab