# usl-nls.R --- Test method nls
library(usl)
options(digits=3, scipen=9)
dfr <- data.frame(load=c(1, 2, 4, 6, 8, 10),
tput=c(1, 1.8868, 3.0769, 3.5294, 3.5398, 3.3557))
try(u <- usl(tput ~ load, data=dfr, method="nls"))
coef(u)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.