require(usl)
data(raytracer)
## Compute the scalability function
scf <- scalability(usl(throughput ~ processors, raytracer))
## Print scalability for 32 CPUs for the demo dataset
print(scf(32))
## Plot scalability for the range from 1 to 64 CPUs
plot(scf, from=1, to=64)
Run the code above in your browser using DataLab