Basic Functions

library(ramp.func)

Constant

Sigmoidal Functions

ps1 <- makepar_F_sigmoid()
Fs1 <- make_function(ps1)

tt <- seq(0, 365, by=5)
plot(tt, Fs1(tt), type ="l", xlab = "Time (in Days)", ylab = expression(Fs1(t)))