diff --git a/R/legTools.R b/R/legTools.R
index 81acd097a031423c0cf2080e943d408f86ffcdb4..f500c35bb36d30988681b2550709411181571cd1 100644
--- a/R/legTools.R
+++ b/R/legTools.R
@@ -1,9 +1,7 @@
 ##' @title Convenience Functions, Small GUI to Teach Statistics and Some
 ##'     Datasets.
 ##'
-##' @description legTools is a collection of R functions and datasets,
-##'     maintained by the LEG group (Statistics and Geoinformation
-##'     Laboratory, Laboratório de Estatística e Geoinformação).
+##' @description legTools is a collection of R functions and datasets
 ##'
 ##' @docType package
 ##' @name legTools
diff --git a/R/subsetDropAll.R b/R/subsetDropAll.R
index d31162e89f6332f9f6db309bd314183d1bcd009e..1ccc331d37b265ac9a6676f1976ca9f1ecd7ac8b 100644
--- a/R/subsetDropAll.R
+++ b/R/subsetDropAll.R
@@ -1,5 +1,5 @@
 ##' @title Drop unused levels after subset
-##' @name subset.drop.all
+##' @name subsetDropAll
 ##'
 ##' @description This function is designed to be used in place of
 ##'     \code{\link[base]{subset}} when you want to drop off all empty
@@ -17,12 +17,12 @@
 ##'     one or more levels emptied after the subset, will have this
 ##'     levels droped off.
 ##'
-##' @author Fernando Mayer \email{fernando.mayer@ufpr.br}
+##' @author Fernando Mayer
 ##'
 ##' @seealso \code{\link[base]{subset}}
 ##'
 ##' @export
-subset.drop.all <- function(x, ...){
+subsetDropAll <- function(x, ...){
     if(!is.data.frame(x)) stop("'x' must be a data.frame")
     x <- subset(x, ...)
     factors <- which(sapply(x, class) %in% "factor")