tests/usl-nls.R

# 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)
smoeding/usl documentation built on March 5, 2020, 4:23 a.m.