resistors           package:HyperbolicDist           R Documentation

_R_e_s_i_s_t_a_n_c_e _o_f _O_n_e-_h_a_l_f-_o_h_m _R_e_s_i_s_t_o_r_s

_D_e_s_c_r_i_p_t_i_o_n:

     This data set gives the resistance in ohms of 500 nominally
     one-half-ohm resistors, presented in Hahn and Shapiro (1967).
     Summary data giving the frequency of observations in 28 intervals.

_U_s_a_g_e:

     data(resistors)

_F_o_r_m_a_t:

     The 'resistors' data frame has 28 rows and 2 columns.

       [, 1]  midpoints  midpoints of intervals (ohm)
       [, 2]  counts     number of observations in interval

_S_o_u_r_c_e:

     Hahn, Gerald J. and Shapiro, Samuel S. (1967) _Statistical Models
     in Engineering_. New York: Wiley, page 207.

_R_e_f_e_r_e_n_c_e_s:

     Chen, Hanfeng, and Kamburowska, Grazyna (2001)  Fitting data to
     the Johnson system. _J. Statist. Comput. Simul._, *70*, 21-32.

_E_x_a_m_p_l_e_s:

     data(resistors)
     str(resistors)
     attach(resistors)
     ## construct data from frequency summary, taking all observations
     ## at midpoints of intervals
     resistances <- rep(midpoints,counts)
     hist(resistances)
     log.hist(resistances)
     ## fit the hyperbolic distribution
     fit.hyperb(resistances) 

     ## actually fit.hyperb can deal with frequency data
     fit.hyperb(midpoints, freq=counts)

