# predict.R --- Test function predict
library(usl)
options(digits = 3)
data(specsdm91)
u <- usl(throughput ~ load, specsdm91)
predict(u)
predict(u, interval = "confidence")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.