Minor docs fixes

R/is.colspace.R

@@ -1,4 +1,4 @@
-#' Test is object is of class 'colspace'
+#' Test if object is of class 'colspace'
 #'
 #' @param object an R object
 #'

R/is.vismodel.R

@@ -1,4 +1,4 @@
-#' Test is object is of class 'vismodel'
+#' Test if object is of class 'vismodel'
 #'
 #' @param object an R object
 #'

R/merge.rspec.R

@@ -26,7 +26,8 @@
 
 merge.rspec <- function(x, y, ...) {
 
-  chkDots(...)
+## allowed arg has not yet been implemented
+# chkDots(..., allowed = "by")
 
   if (!all(is.rspec(x), is.rspec(y))) {
     stop("One or more invalid rspec objects")

R/spec2rgb.R

@@ -15,7 +15,7 @@
 #' spec2rgb(teal)
 #'
 #' # Plot data using estimated perceived colour
-#' plot(teal, col = spec2rgb(teal), type = "o")
+#' plot(teal, col = spec2rgb(teal), type = "overlay")
 #' @author Hugo Gruson \email{hugo.gruson+R@@normalesup.org}
 #' @author Chad Eliason \email{cme16@@zips.uakron.edu}
 #'

R/subset.rspec.R

@@ -24,10 +24,10 @@
 #'
 #' # Subset all 'crown' patches (C in file names)
 #' head(subset(sicalis, "C"))
+#' head(subset(sicalis, c("B", "C")))
+#' head(subset(sicalis, "T", invert = TRUE))
 #' subset(vis.sicalis, "C")
 #' subset(tcs.sicalis, "C")[, seq_len(5)]
-#' subset(sicalis, c("B", "C"))
-#' subset(sicalis, "T", invert = TRUE)
 #' @author Chad Eliason \email{cme16@@zips.uakron.edu}
 
 subset.rspec <- function(x, subset, ...) {