diff --git a/R/PE_Oudin.R b/R/PE_Oudin.R
index e8f56053ac2dede903335b00724fe8ff333f2b86..4b5cbf755c24f3e81991486584c374b1c6b41513 100644
--- a/R/PE_Oudin.R
+++ b/R/PE_Oudin.R
@@ -41,8 +41,8 @@ PE_Oudin <- function(JD, Temp,
   TimeStepIn  <- match.arg(TimeStepIn , choices = TimeStep)
   TimeStepOut <- match.arg(TimeStepOut, choices = TimeStep)
   rleJD <- rle(JD)
-  msgDaliy <- "each day should have only one identical value of julian days. The time series is not sorted, or contains duplicate or missing dates"
-  msgHourly <- "each day must have 24 identical values of julian days (one for each hour). The time series is not sorted, or contains duplicate or missing dates"
+  msgDaliy <- "each day should have only one identical value of Julian days. The time series is not sorted, or contains duplicate or missing dates"
+  msgHourly <- "each day must have 24 identical values of Julian days (one for each hour). The time series is not sorted, or contains duplicate or missing dates"
   if (TimeStepIn == "daily" & any(rleJD$lengths != 1)) {
     warning(msgDaliy)
   }
diff --git a/tests/testthat/test-evap.R b/tests/testthat/test-evap.R
index 4f655cfc9e046fc332fe31e74347a05ef2545a77..fc126c9de8a7e722962b3d059dc2a533880cbfff 100644
--- a/tests/testthat/test-evap.R
+++ b/tests/testthat/test-evap.R
@@ -66,8 +66,8 @@ test_that("PE_Oudin works", {
 test_that("Inconsitent time series", {
   skip_on_cran()
 
-  msgDaily <- "each day should have only one identical value of julian days. The time series is not sorted, or contains duplicate or missing dates"
-  msgHoury <- "each day must have 24 identical values of julian days (one for each hour). The time series is not sorted, or contains duplicate or missing dates"
+  msgDaily <- "each day should have only one identical value of Julian days. The time series is not sorted, or contains duplicate or missing dates"
+  msgHoury <- "each day must have 24 identical values of Julian days (one for each hour). The time series is not sorted, or contains duplicate or missing dates"
 
   # duplicated dates
   DatesFor1Dupl <- BasinObs_L0123001$DatesR