require(usl)
data(raytracer)
## Create USL model for "throughput" by "processors"
usl.model <- usl(throughput ~ processors, raytracer)
## Show summary of model parameters
summary(usl.model)
## Show complete list of efficiency parameters
efficiency(usl.model)
## Extract coefficients for model
coef(usl.model)
## Calculate point of peak scalability
peak.scalability(usl.model)
## Plot original data and scalability function
plot(raytracer)
plot(usl.model, add=TRUE)
Run the code above in your browser using DataLab