Removed duplicated methods not correctly merged from deev and master …

…branches
famuvie · Feb 13, 2015 · 4b09a70 · 4b09a70
1 parent 4219f30
commit 4b09a70
Show file tree

Hide file tree

Showing 14 changed files with 29 additions and 58 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -10,7 +10,6 @@ S3method(extractAIC,remlf90)
 S3method(fitted,remlf90)
 S3method(fixef,remlf90)
 S3method(get_ntraits,metagene)
-S3method(get_pedigree,breedR)
 S3method(get_pedigree,metagene)
 S3method(get_pedigree,remlf90)
 S3method(logLik,remlf90)

diff --git a/R/AllGeneric.R b/R/AllGeneric.R
@@ -5,11 +5,9 @@
 #' @param ... Arguments to be passed to methods.
 #' @references \code{\link[pedigreemm]{pedigree-class}} from package
 #'   \code{pedigreemm}
-#' @family metagene
 #' @export
 get_pedigree <- function(x, ...) UseMethod('get_pedigree')
 
-
 #' Extract the number of traits
 #' @param x a metagene object.
 #' @param ... Arguments to be passed to methods.

diff --git a/R/generics.R b/R/generics.R
diff --git a/R/metagene-class.R b/R/metagene-class.R
@@ -231,6 +231,7 @@ nindividuals.metagene <- function(x, exclude.founders = FALSE, ...) {
 }
 
 #' @describeIn get_pedigree Get the pedigree from a \code{metagene} object
+#' @family metagene
 #' @export
 get_pedigree.metagene <- function(x, ...) {
   return(with(x$Data, pedigreemm::pedigree(sire=dad, dam=mum, label=self)))

diff --git a/R/remlf90-class.R b/R/remlf90-class.R
@@ -584,19 +584,6 @@ remlf90 <- function(fixed,
 #### Interface methods ####
 #%%%%%%%%%%%%%%%%%%%%%%%%%#
 
-#' @describeIn get_pedigree Get the pedigree from a remlf90 object
-#' @export
-get_pedigree.remlf90 <- function(x, ...) {
-  ped <- x$effects$genetic$ped
-  if( !is.null(ped) ) {
-    map <- attr(ped, 'map')
-    ped <- with(ped,
-                pedigreemm::pedigree(sire=sire, dam=dam, label=self))
-    attr(ped, 'map') <- map
-  }
-  return(ped)
-}
-
 #' @export
 coef.remlf90 <- function(object, ...) { 
   unlist(c(lapply(fixef(object),
@@ -665,14 +652,17 @@ fixef.remlf90 <- function (object, ...) {
 }
 
 
-#' @describeIn get_pedigree Get the pedigree from a \code{breedR} object
+#' @describeIn get_pedigree Get the pedigree from a remlf90 object
 #' @export
-get_pedigree.breedR <- function(x, ...) {
-  if( !x$components$pedigree )
-    stop(paste('No genetic component in', substitute(x)))
-
-  return(with(x$effects$genetic$ped,
-              pedigreemm::pedigree(sire=sire, dam=dam, label=self)))
+get_pedigree.remlf90 <- function(x, ...) {
+  ped <- x$effects$genetic$ped
+  if( !is.null(ped) ) {
+    map <- attr(ped, 'map')
+    ped <- with(ped,
+                pedigreemm::pedigree(sire=sire, dam=dam, label=self))
+    attr(ped, 'map') <- map
+  }
+  return(ped)
 }
 
 

diff --git a/man/Extract.metagene.Rd b/man/Extract.metagene.Rd
@@ -35,8 +35,8 @@ Subset data
 Other metagene: \code{\link{as.data.frame.metagene}};
   \code{\link{as.data.frame.pedigree}};
   \code{\link{get_ntraits}}; \code{\link{get_pedigree}},
-  \code{\link{get_pedigree.breedR}},
-  \code{\link{get_pedigree.metagene}};
+  \code{\link{get_pedigree.metagene}},
+  \code{\link{get_pedigree.remlf90}};
   \code{\link{ngenerations}}; \code{\link{nindividuals}};
   \code{\link{plot.metagene}}; \code{\link{read.metagene}}
 }

diff --git a/man/as.data.frame.metagene.Rd b/man/as.data.frame.metagene.Rd
@@ -30,8 +30,8 @@ Other metagene: \code{\link{$.metagene}},
   \code{\link{Extract.metagene}}, \code{\link{[.metagene}};
   \code{\link{as.data.frame.pedigree}};
   \code{\link{get_ntraits}}; \code{\link{get_pedigree}},
-  \code{\link{get_pedigree.breedR}},
-  \code{\link{get_pedigree.metagene}};
+  \code{\link{get_pedigree.metagene}},
+  \code{\link{get_pedigree.remlf90}};
   \code{\link{ngenerations}}; \code{\link{nindividuals}};
   \code{\link{plot.metagene}}; \code{\link{read.metagene}}
 }

diff --git a/man/as.data.frame.pedigree.Rd b/man/as.data.frame.pedigree.Rd
@@ -26,8 +26,8 @@ Other metagene: \code{\link{$.metagene}},
   \code{\link{Extract.metagene}}, \code{\link{[.metagene}};
   \code{\link{as.data.frame.metagene}};
   \code{\link{get_ntraits}}; \code{\link{get_pedigree}},
-  \code{\link{get_pedigree.breedR}},
-  \code{\link{get_pedigree.metagene}};
+  \code{\link{get_pedigree.metagene}},
+  \code{\link{get_pedigree.remlf90}};
   \code{\link{ngenerations}}; \code{\link{nindividuals}};
   \code{\link{plot.metagene}}; \code{\link{read.metagene}}
 }

diff --git a/man/get_ntraits.Rd b/man/get_ntraits.Rd
@@ -21,8 +21,8 @@ Other metagene: \code{\link{$.metagene}},
   \code{\link{as.data.frame.metagene}};
   \code{\link{as.data.frame.pedigree}};
   \code{\link{get_pedigree}},
-  \code{\link{get_pedigree.breedR}},
-  \code{\link{get_pedigree.metagene}};
+  \code{\link{get_pedigree.metagene}},
+  \code{\link{get_pedigree.remlf90}};
   \code{\link{ngenerations}}; \code{\link{nindividuals}};
   \code{\link{plot.metagene}}; \code{\link{read.metagene}}
 }

diff --git a/man/get_pedigree.Rd b/man/get_pedigree.Rd
@@ -2,7 +2,6 @@
 % Please edit documentation in R/AllGeneric.R, R/metagene-class.R, R/remlf90-class.R
 \name{get_pedigree}
 \alias{get_pedigree}
-\alias{get_pedigree.breedR}
 \alias{get_pedigree.metagene}
 \alias{get_pedigree.remlf90}
 \title{Get the Pedigree from an object}
@@ -11,7 +10,7 @@ get_pedigree(x, ...)
 
 \method{get_pedigree}{metagene}(x, ...)
 
-\method{get_pedigree}{breedR}(x, ...)
+\method{get_pedigree}{remlf90}(x, ...)
 }
 \arguments{
 \item{x}{object to extract pedigree from}
@@ -23,15 +22,9 @@ Returns an object from the formal class \code{pedigree}.
 }
 \section{Methods (by class)}{
 \itemize{
-<<<<<<< HEAD
-\item \code{metagene}: Get the pedigree from a metagene object
-
-\item \code{remlf90}: Get the pedigree from a remlf90 object
-=======
 \item \code{metagene}: Get the pedigree from a \code{metagene} object
 
-\item \code{breedR}: Get the pedigree from a \code{breedR} object
->>>>>>> dev
+\item \code{remlf90}: Get the pedigree from a remlf90 object
 }}
 \references{
 \code{\link[pedigreemm]{pedigree-class}} from package

diff --git a/man/ngenerations.Rd b/man/ngenerations.Rd
@@ -21,8 +21,8 @@ Other metagene: \code{\link{$.metagene}},
   \code{\link{as.data.frame.metagene}};
   \code{\link{as.data.frame.pedigree}};
   \code{\link{get_ntraits}}; \code{\link{get_pedigree}},
-  \code{\link{get_pedigree.breedR}},
-  \code{\link{get_pedigree.metagene}};
+  \code{\link{get_pedigree.metagene}},
+  \code{\link{get_pedigree.remlf90}};
   \code{\link{nindividuals}}; \code{\link{plot.metagene}};
   \code{\link{read.metagene}}
 }

diff --git a/man/nindividuals.Rd b/man/nindividuals.Rd
@@ -21,8 +21,8 @@ Other metagene: \code{\link{$.metagene}},
   \code{\link{as.data.frame.metagene}};
   \code{\link{as.data.frame.pedigree}};
   \code{\link{get_ntraits}}; \code{\link{get_pedigree}},
-  \code{\link{get_pedigree.breedR}},
-  \code{\link{get_pedigree.metagene}};
+  \code{\link{get_pedigree.metagene}},
+  \code{\link{get_pedigree.remlf90}};
   \code{\link{ngenerations}}; \code{\link{plot.metagene}};
   \code{\link{read.metagene}}
 }

diff --git a/man/plot.metagene.Rd b/man/plot.metagene.Rd
@@ -24,8 +24,8 @@ Other metagene: \code{\link{$.metagene}},
   \code{\link{as.data.frame.metagene}};
   \code{\link{as.data.frame.pedigree}};
   \code{\link{get_ntraits}}; \code{\link{get_pedigree}},
-  \code{\link{get_pedigree.breedR}},
-  \code{\link{get_pedigree.metagene}};
+  \code{\link{get_pedigree.metagene}},
+  \code{\link{get_pedigree.remlf90}};
   \code{\link{ngenerations}}; \code{\link{nindividuals}};
   \code{\link{read.metagene}}
 }

diff --git a/man/read.metagene.Rd b/man/read.metagene.Rd
@@ -28,8 +28,8 @@ Other metagene: \code{\link{$.metagene}},
   \code{\link{as.data.frame.metagene}};
   \code{\link{as.data.frame.pedigree}};
   \code{\link{get_ntraits}}; \code{\link{get_pedigree}},
-  \code{\link{get_pedigree.breedR}},
-  \code{\link{get_pedigree.metagene}};
+  \code{\link{get_pedigree.metagene}},
+  \code{\link{get_pedigree.remlf90}};
   \code{\link{ngenerations}}; \code{\link{nindividuals}};
   \code{\link{plot.metagene}}
 }