diff --git a/R/removeDuplicates.r b/R/removeDuplicates.r
index ede786a68dd957fc0b2c9146654bdd150a388889..00687cc10f8a30b2168b0192ca262daa8c7e8f0f 100644
--- a/R/removeDuplicates.r
+++ b/R/removeDuplicates.r
@@ -2,7 +2,7 @@
 #'
 #' Removes observations from the data frame Sample when the observation has the identical date and value as another observation
 #'
-#' @param localSample dataframe with at least DecYear and ConcHigh, default name is Sample
+#' @param Sample dataframe with at least DecYear and ConcHigh, default name is Sample
 #' @export
 #' @return Sample1 dataframe
 #' @examples
@@ -10,8 +10,8 @@
 #' ConcHigh <- c(1,2,3,3,5)
 #' dataInput <- data.frame(DecYear, ConcHigh, stringsAsFactors=FALSE)
 #' removeDuplicates(dataInput)
-removeDuplicates <- function(localSample=Sample) {  
-  Sample1 <- localSample[!duplicated(localSample[c("DecYear","ConcHigh")]),]
+removeDuplicates <- function(Sample) {  
+  Sample1 <- Sample[!duplicated(Sample[c("DecYear","ConcHigh")]),]
   
   return(Sample1)
 }