tiny changes

.Rhistory

@@ -1,22 +1,3 @@
-# return 1:length(sim)
-if (length(higherIndex) > 0) {
-maxHindcast <- max(hindcast, na.rm = TRUE)
-dif <- maxHindcast - max(obs, na.rm = TRUE)
-frc[higherIndex] <- frc[higherIndex] - dif
-}
-if (length(lowerIndex) > 0) {
-minHindcast <- min(hindcast, na.rm = TRUE)
-dif <- minHindcast - min(obs, nna.rm = TRUE)
-frc[lowerIndex] <- frc[lowerIndex] - dif
-}
-frc[non_extrapolateIndex] <- quantile(obs, probs = ecdfHindcast(frc[non_extrapolateIndex]),
-na.rm = TRUE, type = 4)
-} else {
-frc <- quantile(obs, probs = ecdfHindcast(frc), na.rm = TRUE, type = 4)
-}
-return(frc)
-}
-biasCorrect_core_eqm_preci <- function(frc, hindcast, obs, minHindcastPreci, extrapolate,
 prThreshold) {
 # Most of time this condition seems useless because minHindcastPreci comes from hindcast, so there will be
 # always hindcast > minHindcastPreci exists.
@@ -510,3 +491,22 @@ cat
 a
 a == cat
 identical(a, cat)
+devtools::build()
+devtools::check()
+file <- system.file("extdata", "testCat.shp", package = "hyfo")
+cat <- shp2cat(file)
+library(hyfo)
+file <- system.file("extdata", "testCat.shp", package = "hyfo")
+cat <- shp2cat(file)
+file <- system.file("extdata", "testCat.rda", package = "hyfo")
+cat <- shp2cat(file)
+file <- system.file("extdata", "testCat.shp", package = "hyfo")
+cat <- shp2cat(file)
+devtools::check()
+devtools::check(cran = T)
+devtools::build()
+devtools::document()
+devtools::check(cran = T)
+devtools::built()
+devtools::build()
+devtools::build()

R/ncdf.R

@@ -339,7 +339,10 @@ downscaleNcdf <- function(gridData, year = NULL, month = NULL, lon = NULL, lat =
 #' 
 #' # Then write to your work directory
 #' 
+#' \dontrun{
 #' writeNcdf(nc, 'test.nc')
+#' }
+#' 
 #' 
 #' # More examples can be found in the user manual on https://yuanchao-xu.github.io/hyfo/
 #' 

README.md

@@ -18,7 +18,7 @@ install.packages("devtools")
 devtools::install_github("Yuanchao-Xu/hyfo")
 ```
 
-**Official Website is [https://yuanchao-xu.github.io/hyfo](http:https://yuanchao-xu.github.io/hyfo)**
+**Official Website is [https://yuanchao-xu.github.io/hyfo/](http:https://yuanchao-xu.github.io/hyfo/)**
 
 hyfo is an R package, initially designed for the European Project EUPORIAS, and cooperated with DHI Denmark, which was then extended to other uses in hydrology, hydraulics and climate.