data(resistors)
str(resistors)
attach(resistors)
### Construct data from frequency summary, taking all observations
### at midpoints of intervals
resistances <- rep(midpoints,counts)
hist(resistances)
logHist(resistances)
## Fit the hyperbolic distribution
hyperbFit(resistances)
## Actually fit.hyperb can deal with frequency data
hyperbFit(midpoints, freq=counts)
Run the code above in your browser using DataLab