From: Benjamin Auder <benjamin.auder@somewhere>
Date: Fri, 14 Apr 2017 22:34:53 +0000 (+0200)
Subject: fix package
X-Git-Url: https://git.auder.net/doc/html/css/current/scripts/pieces/%7B%7B%20targetUrl%20%7D%7D?a=commitdiff_plain;h=b58167f0785d6545caf2ed887720344e8ad2acd8;p=talweg.git

fix package
---

diff --git a/pkg/R/A_NAMESPACE.R b/pkg/R/A_NAMESPACE.R
index 466293c..fa0b0e5 100644
--- a/pkg/R/A_NAMESPACE.R
+++ b/pkg/R/A_NAMESPACE.R
@@ -2,7 +2,7 @@
 #' @importFrom graphics abline hist par plot
 #' @importFrom methods hasArg is
 #' @importFrom stats quantile sd
-#' @importFrom utils getFromNamespace read.csv tail
+#' @importFrom utils getFromNamespace read.csv head tail
 #' @importFrom R6 R6Class
 #'
 #' @include Data.R
diff --git a/pkg/R/Data.R b/pkg/R/Data.R
index 3820d57..c2222e1 100644
--- a/pkg/R/Data.R
+++ b/pkg/R/Data.R
@@ -9,7 +9,7 @@
 #' \code{getTime()} below. Each cell .data[[i]] is itself a list containing five slots,
 #' as described in the 'field' section.
 #'
-#' @usage data <- Data$new()
+#' @usage Data$new()
 #'
 #' @field .data[[i]] List of
 #' \itemize{
diff --git a/pkg/R/F_Average.R b/pkg/R/F_Average.R
index a1f29ad..72a79f0 100644
--- a/pkg/R/F_Average.R
+++ b/pkg/R/F_Average.R
@@ -7,7 +7,7 @@
 #' averaged to provide a smooth prediction. This forecast will most of the time be wrong,
 #' but will also look plausible enough.
 #'
-#' @usage f <- AverageForecaster$new(pjump)
+#' @usage AverageForecaster$new(pjump)
 #'
 #' @docType class
 #' @format R6 class, inherits Forecaster
diff --git a/pkg/R/F_Neighbors.R b/pkg/R/F_Neighbors.R
index 51b5730..0003e08 100644
--- a/pkg/R/F_Neighbors.R
+++ b/pkg/R/F_Neighbors.R
@@ -28,7 +28,7 @@
 #'     obtain the final prediction.
 #' }
 #'
-#' @usage f <- NeighborsForecaster$new(pjump)
+#' @usage NeighborsForecaster$new(pjump)
 #'
 #' @docType class
 #' @format R6 class, inherits Forecaster
diff --git a/pkg/R/F_Persistence.R b/pkg/R/F_Persistence.R
index 3eefa5b..a5a95d0 100644
--- a/pkg/R/F_Persistence.R
+++ b/pkg/R/F_Persistence.R
@@ -8,7 +8,7 @@
 #' If the last similar day has missing values, the next one is searched, and so on until
 #' one full serie is found (if no one is found, NA is returned).
 #'
-#' @usage f <- PersistenceForecaster$new(pjump)
+#' @usage PersistenceForecaster$new(pjump)
 #'
 #' @docType class
 #' @format R6 class, inherits Forecaster
diff --git a/pkg/R/F_Zero.R b/pkg/R/F_Zero.R
index dae43e8..d553807 100644
--- a/pkg/R/F_Zero.R
+++ b/pkg/R/F_Zero.R
@@ -3,7 +3,7 @@
 #' Flat prediction: always forecast a serie of zeros.
 #' This serie is then adjusted using the ".pjump" function (see \code{Forecaster} class).
 #'
-#' @usage f <- ZeroForecaster$new(pjump)
+#' @usage ZeroForecaster$new(pjump)
 #'
 #' @docType class
 #' @format R6 class, inherits Forecaster
diff --git a/pkg/R/Forecast.R b/pkg/R/Forecast.R
index bb665bd..2bc77c6 100644
--- a/pkg/R/Forecast.R
+++ b/pkg/R/Forecast.R
@@ -9,7 +9,7 @@
 #' Each cell .pred[[i]] is itself a list containing three slots, as described in the
 #' 'field' section.
 #'
-#' @usage f <- Forecast$new(dates)
+#' @usage Forecast$new(dates)
 #'
 #' @field .pred List with
 #' \itemize{
diff --git a/pkg/R/Forecaster.R b/pkg/R/Forecaster.R
index ce1bb35..bb32a5e 100644
--- a/pkg/R/Forecaster.R
+++ b/pkg/R/Forecaster.R
@@ -9,7 +9,7 @@
 #' serie, and then calls the "jump prediction" function -- see "field" section -- to
 #' adjust it based on the last observed values.
 #'
-#' @usage f <- Forecaster$new(pjump) #warning: predictShape() is unimplemented
+#' @usage Forecaster$new(pjump) #warning: predictShape() is unimplemented
 #'
 #' @field .params List of computed parameters (if applicable).
 #' @field .pjump Function: how to predict the jump at day interface? The arguments of
diff --git a/pkg/tests/testthat.R b/pkg/tests/testthat.R
index 97e5ad5..e9572c7 100644
--- a/pkg/tests/testthat.R
+++ b/pkg/tests/testthat.R
@@ -1,6 +1,6 @@
 library(testthat)
 
-load_all() #because some non-exported functions
+library(devtools); load_all("..") #because some non-exported functions
 #library(talweg)
 
 test_check("talweg")