g <- function(x) Asym * exp(-b2 * b3 ^ x) # Gompertz Growth Model
fun2form(g, "y")
# f1 <- function(w) {exp(w)} # error
# fun2form(f1, "x")
f2 <- function(w) exp(w) # ok
fun2form(f2, "x")
# End (not run)
Run the code above in your browser using DataLab