Correct misprints

Author: aursiber

R/RNAseqdata.R

@@ -48,7 +48,7 @@ RNAseqdata <- function(file, backgrounddose, check = TRUE,
 
     # check that doses and responses are numeric
     if (!is.numeric(as.matrix(d[, 2:ncold])))
-      stop("All the columns except the first one must be numeric with the numeric dose in the firt line 
+      stop("All the columns except the first one must be numeric with the numeric dose in the first line 
       and the read counts (integer values corresponding to raw counts) of each item in the other lines.")
   }
 

R/continuousanchoringdata.R

@@ -26,7 +26,7 @@ continuousanchoringdata <- function(file, backgrounddose, check = TRUE) {
     # check that doses and responses are numeric
     if (!is.numeric(as.matrix(d[, 2:ncold])))
       stop("All the columns except the first one must be numeric with the numeric 
-      dose in the firt line and the numeric response of each endpoint in the other lines.")
+      dose in the first line and the numeric response of each endpoint in the other lines.")
     warning(strwrap(prefix = "\n", initial = "\n",
                     "We recommend you to check that your anchoring data are continuous and
       defined in a scale that enable the use of a normal error model (needed at each step

R/metabolomicdata.R

@@ -56,7 +56,7 @@ continuousomicdata <- function(file, backgrounddose, check = TRUE) {
     # check that doses and responses are numeric
     if (!is.numeric(as.matrix(d[, 2:ncold])))
       stop("All the columns except the first one must be numeric with the numeric 
-      dose in the firt line and the numeric response of each item in the other lines.")
+      dose in the first line and the numeric response of each item in the other lines.")
     warning(strwrap(prefix = "\n", initial = "\n",
                     "We recommend you to check that your omic data were correctly pretreated
       before importation. In particular data (e.g. metabolomic signal)

R/microarraydata.R

@@ -38,7 +38,7 @@ microarraydata <- function(file, backgrounddose, check = TRUE,
     # check that doses and responses are numeric
     if (!is.numeric(as.matrix(d[, 2:ncold])))
       stop("All the columns except the first one must be numeric with the numeric 
-      dose in the firt line and the numeric response of each item in the other lines.")
+      dose in the first line and the numeric response of each item in the other lines.")
   }
 
   # Normalization using limma