add print

atmoschem · May 28, 2023 · f0911c3 · f0911c3
1 parent c6d4393
commit f0911c3
Show file tree

Hide file tree

Showing 6 changed files with 41 additions and 33 deletions.
diff --git a/R/ef_fun.R b/R/ef_fun.R
@@ -8,13 +8,13 @@
 #' @param x0 Numeric;  the x-value of the sigmoid's midpoint,
 #' @param k Numeric; the steepness of the curve.
 #' @param L Integer; the curve's maximum value.
-#' @return dataframe of age distrubution of vehicles at each street.
+#' @param verbose Logical; to show the equation.
+#' @return numeric vector.
 #' @export
 #' @references https://en.wikipedia.org/wiki/Logistic_function
 #' @examples \dontrun{
-#' data(fe2015)
 #' CO <- ef_cetesb(p = "CO", veh = "PC_G")
-#' ef_logit <- ef_fun(ef = CO, x0 = 27, k = 0.4, L = 33)
+#' ef_logit <- ef_fun(ef = CO, x0 = 27, k = 0.4, L = max(CO))
 #' df <- data.frame(CO, ef_logit)
 #' colplot(df)
 #' }
@@ -23,11 +23,13 @@ ef_fun <- function(ef,
                    x = 1:length(ef),
                    x0 = mean(ef),
                    k = 1/4,
-                   L = max(ef)) {
+                   L = max(ef),
+                   verbose = TRUE) {
   if(type == "logistic"){
     FD <- function(x, x0, L, k) {
       L/(1 + exp(1)^(-k*(x - x0))  )
     }
+    print(FD)
     a <- vein::EmissionFactors(FD(x, x0 = x0, k = k, L = L))
     return(a)
   }

diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -3,7 +3,7 @@ pkgdown: 2.0.7
 pkgdown_sha: ~
 articles:
   basics: basics.html
-last_built: 2023-05-23T04:41Z
+last_built: 2023-05-28T20:53Z
 urls:
   reference: http://atmoschem.github.io/vein/reference
   article: http://atmoschem.github.io/vein/articles

diff --git a/docs/reference/celsius-1.png b/docs/reference/celsius-1.png
diff --git a/docs/reference/celsius.html b/docs/reference/celsius.html
diff --git a/docs/reference/ef_fun.html b/docs/reference/ef_fun.html
diff --git a/man/ef_fun.Rd b/man/ef_fun.Rd