From 90cd9660dd38fbf32829a0980f628dd0dffec63e Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmeszeviani@gmail.com>
Date: Tue, 15 Sep 2015 22:08:54 -0300
Subject: [PATCH] Move examples to the correct place.
---
R/equalizeLevels.R | 21 ++++++++++-----------
1 file changed, 10 insertions(+), 11 deletions(-)
diff --git a/R/equalizeLevels.R b/R/equalizeLevels.R
index dc766c7..72dbe20 100644
--- a/R/equalizeLevels.R
+++ b/R/equalizeLevels.R
@@ -28,6 +28,16 @@
#'
#' @examples
#'
+#' a <- data.frame(
+#' Species=as.character(sample(iris$Species, size=10, replace=TRUE)),
+#' stringsAsFactors=FALSE)
+#' str(a)
+#'
+#' levels(a$Species)
+#' levels(iris$Species)
+#'
+#' b <- equalizeLevels(target=a, ref=iris)
+#' str(b)
#'
equalizeLevels <- function(target, ref){
if(is.data.frame(target) & is.data.frame(ref)){
@@ -41,14 +51,3 @@ equalizeLevels <- function(target, ref){
}
else stop("`target` and `ref` must be a data.frame.")
}
-
-a <- data.frame(
- Species=as.character(sample(iris$Species, size=10, replace=TRUE)),
- stringsAsFactors=FALSE)
-str(a)
-
-levels(a$Species)
-levels(iris$Species)
-
-b <- equalizeLevels(target=a, ref=iris)
-str(b)
--
GitLab