exHe                  package:cobs                  R Documentation

_S_m_a_l_l _D_a_t_a_s_e_t _E_x_a_m_p_l_e _o_f _H_e

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

     The 'exHe' data frame has 10 rows and 2 columns.  It is an example
     for which 'smooth.spline' cannot be used.

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

     data(exHe)

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

     This data frame contains the following columns:

     _x only values 0, 1, and 2.

     _y 10 randomly generated values

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

     Found at the bottom of <URL:
     http://ux6.cso.uiuc.edu/~x-he/ftp.html>, signed by x-he@uiuc.edu.

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

     data(exHe)
     plot(exHe, main = "He's 10 point example and cobs() fits")
     tm <- tapply(exHe$y, exHe$x, mean)
     lines(unique(exHe$x), tm, lty = 2)
     ## 4 warnings :
     cH  <- cobsOld(exHe$x, exHe$y, constraint = "increase")
     lines(cH$z, cH$fit, col = 3)
     cHn <- cobsOld(exHe$x, exHe$y, constraint = "none")
     lines(cHn$z, cHn$fit, col = 4)
     cHd <- cobsOld(exHe$x, exHe$y, constraint = "decrease")
     lines(cHd$z, cHd$fit, col = 5)

