# \dontshow{
rate <- ecb$rate
x <- ecb$x[,1,drop=FALSE]
fit <- curve(x,rate,rep=1,type="fixExponential")
invcurve(fit)
# }
# \donttest{
# Use ECB example data
rate <- ecb$rate
x <- ecb$x[,1,drop=FALSE]
fit <- curve(x,rate,type="logistic")
invcurve(fit)
# Use a different input rate
invcurve(fit,ynew=0.1)
# }
Run the code above in your browser using DataLab