# scalability.R --- Test function scalability
library(usl)
data(specsdm91)
u <- usl(throughput ~ load, specsdm91)
s1 <- scalability(u)
s2 <- scalability(u, 0.001, 0.00001)
s3 <- scalability(u, 0.001, 0.00001, 100)
# Calculate scalability
signif(s1(20), 2)
# Calculate scalability for different coefficients
signif(s2(20), 2)
# Calculate scalability for different gamma
signif(s3(20), 2)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.