if (FALSE) {
#get eigentrait matrix
eigenT <- get_pheno(data_obj, "eigentraits")
#get normalized trait matrix
pheno <- get_pheno(data_obj, "normalized_traits")
#get normalized traits adjusted for sex
pheno <- get_pheno(data_obj, "normalized_traits", covar = "sex")
#get raw trait matrix
pheno <- get_pheno(data_obj, "raw_traits")
}
Run the code above in your browser using DataLab