# \dontshow{
rate <- head(ecb$rate,10)
x <- ecb$x[1:10,1,drop=FALSE]
curve(x,rate,rep=1,type="fixExponential")
# }
# \donttest{
# Use ECB example data
rate <- ecb$rate
x <- ecb$x[,1,drop=FALSE]
curve(x,rate)
# An arctangent curve
curve(x,rate,type="arctan")
# }
Run the code above in your browser using DataLab