# usl-nlxb.R --- Test method nlxb
library(usl)
options(scipen=9)
data(specsdm91)
u <- usl(throughput ~ load, specsdm91, method = "nlxb")
signif(coef(u)[['alpha']], 2)
signif(coef(u)[['beta']], 2)
signif(coef(u)[['gamma']], 2)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.