R/00.class-MagicGen.R

In tavareshugo/MagicHelpR: QTL mapping in Arabidopsis MAGIC lines

#' MagicGen class
#'
#' @slot markers data.frame with marker names and positions. 
#' @slot genotypes list with genotype probability matrices. 
#'
#' @rdname class-MagicGen
#' @aliases MagicGen
setClass("MagicGen",
         representation(markers = "data.frame", 
                        snp_genotypes = "list",
                        prob_genotypes = "list",
                        founder_genotypes = "list"))


#' MagicGenPhen class
#'
#' @slot phenotypes data.frame. 
#' @slot markers data.frame. 
#' @slot genotypes list. 
#'
#' @rdname class-MagicGen
#' @aliases MagicGenPhen
setClass("MagicGenPhen",
         representation(phenotypes = "data.frame",
                        markers = "data.frame", 
                        snp_genotypes = "list",
                        prob_genotypes = "list",
                        founder_genotypes = "list"),
         contains = "MagicGen")


# Set old classes for "tbl_df" and "tbl"
setOldClass(c("tbl_df", "tbl", "data.frame"))