Fix examples

NAMESPACE

@@ -344,6 +344,7 @@ export(.udfMd5Info)
 export(.useUtf)
 export(.vecDf)
 export(ELU)
+export(GELU)
 export(PReLU)
 export(ReLU)
 export(RxODE)
@@ -391,6 +392,7 @@ export(d3GELU)
 export(d4GELU)
 export(dELU)
 export(dELUa)
+export(dGELU)
 export(dPReLU)
 export(dPReLUa)
 export(dPReLUa1)

R/gelu.R

@@ -3,12 +3,15 @@
 #' @param x numeric vector
 #' @return numeric vector
 #' @family Activation Functions
+#' @export
 #' @examples
 #'
 #' GELU(c(-2, -1, 0, 1, 2))
 #'
 #' # you can use rxode2 as well
-#' r <- rxode2({r = GELU(x)})
+#' r <- rxode2({
+#'   r = GELU(time)
+#' })
 #' et <- et(c(-2, -1, 0, 1, 2))
 #' rxSolve(r, et)
 #'
@@ -23,17 +26,18 @@ GELU <- function(x) {
 #' @param x numeric vector
 #' @return numeric vector
 #' @family Activation Functions
+#' @export
 #' @examples
 #' dGELU(c(-2, -1, 0, 1, 2))
 #' d2GELU(c(-2, -1, 0, 1, 2))
 #' d3GELU(c(-2, -1, 0, 1, 2))
 #' d4GELU(c(-2, -1, 0, 1, 2))
 #' # you can use rxode2 as well
 #' r <- rxode2({
-#'    r1 <- dGELU(x)
-#'    r2 <- d2GELU(x)
-#'    r3 <- d3GELU(x)
-#'    r4 <- d4GELU(x)
+#'    r1 <- dGELU(time)
+#'    r2 <- d2GELU(time)
+#'    r3 <- d3GELU(time)
+#'    r4 <- d4GELU(time)
 #' })
 #' et <- et(c(-2, -1, 0, 1, 2))
 #' rxSolve(r, et)

R/softplus.R

@@ -12,7 +12,7 @@
 #' # You can use rxode2 too:
 #'
 #' r <- rxode2({
-#'  s <- softplus(x)
+#'  s <- softplus(time)
 #' })
 #'
 #' e <- et(c(-1, 0, 1, 2))
@@ -34,17 +34,11 @@ softplus <- function(x) {
 #' @examples
 #'
 #' dsoftplus(c(-1, 0, 1, 2))
-#' d2softplus(c(-1, 0, 1, 2))
-#' d3softplus(c(-1, 0, 1, 2))
-#' d4softplus(c(-1, 0, 1, 2))
 #'
 #' # You can use rxode2 too:
 #'
 #' r <- rxode2({
 #'  s1 <- dsoftplus(time)
-#'  s2 <- d2softplus(time)
-#'  s3 <- d3softplus(time)
-#'  s4 <- d4softplus(time)
 #' })
 #'
 #' e <- et(c(-1, 0, 1, 2))