# NOT RUN {
# Simulate data
W <- matrix(rnorm(1000000), ncol = 1000)
colnames(W) <- as.character(1:ncol(W))
rownames(W) <- as.character(1:nrow(W))
# Compute GRM
GRM <- grm(W = W)
# }
# NOT RUN {
# Eigen value decompostion GRM
eig <- grm(GRM=GRM, task="eigen")
# }
Run the code above in your browser using DataLab