FinneyCorr              package:cwhstat              R Documentation

_F_i_n_n_e_y'_s _c_o_r_r_e_c_t_i_o_n _t_o _l_o_g _n_o_r_m_a_l_l_y _d_i_s_t_r_i_b_u_t_e_d _d_a_t_a, _r-_s_q_u_a_r_e_d
_a_n_d _s_t_a_n_d_a_r_d _d_e_v_i_a_t_i_o_n _o_f _a _l_i_n_e_a_r _m_o_d_e_l.

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

     FinneyCorr: Finney's correction factor K in x = e^{ln x} * K (see
     'Note'), to be used if ln x is normally distributed with standard
     deviation s_{ln x}. FC.lm, R2.lm, s.lm:  Finney's correction, R^2
     and standard deviation extracted from an object of class "lm".

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

       FinneyCorr(s,n)
       FC.lm(lmobj)
       R2.lm(lmobj)
       s.lm(lmobj)

_A_r_g_u_m_e_n_t_s:

       s: Standard deviation of log data.

       n: Number of data points.

   lmobj: An object of class "lm".

_N_o_t_e:

     K := e^{s_{ln}^2/2} ,
     <=ft{1-frac{s_{ln}^2}{4n}(s_{ln}^2+2)+frac{s_{ln}^4}{96n^2}(3s_{ln
     }^4+44s_{ln}^2+84) right}

_A_u_t_h_o_r(_s):

     Christian W. Hoffmann, christian.hoffmann@wsl.ch, 
      <URL: http://www.wsl.ch/staff/christian.hoffmann>

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

     Finney D.J., 1941. On the distribution of a variable whose
     logarithm is normally distributed. J. R. Stat. Soc., B 7: 155-161

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

     FinneyCorr(0.346274,24+3)  #  1.059306936

     ok <- RNGkind()
     RNGkind(kind = "default", normal.kind = "default")
     set.seed(2009, kind = "default")
     x <- rnorm(1000); y <- 0.1*rnorm(1000)
     ## Reset:
     RNGkind(ok[1])

     lmo <- lm(y ~ x)
     FC.lm(lmo)  # 1.00472
     R2.lm(lmo)  # 6.1926e-05
     s.lm(lmo)   # 0.0970954

