Hco2006              package:agricolae              R Documentation

_D_a_t_a _a_m_e_n_d_m_e_n_t _H_u_a_n_u_c_o _2_0_0_6

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

     Incidents and performance of healthy tubers and rotten potato
     field infested  with naturally Ralstonia solanacearum Race 3/Bv
     2A, after application of inorganic  amendments and a rotation crop
     in Huanuco Peru, 2006.

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

     data(Hco2006)

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

     The format is: List of 2

     '_a_m_e_n_d_m_e_n_t' a factor

     '_c_r_o_p' a factor

     '_b_l_o_c_k' a numeric vector, replications

     '_p_l_a_n_t' a numeric vector, number plant  

     '_w_i_l_t__p_e_r_c_e_n_t' a numeric vector, wilt percentage at 60 days  

     '_h_e_a_l_t_h' a numeric vector, kg/8m2, 20 plants 

     '_r_o_t' a numeric vector, kg/8m2, 20 plants 

_D_e_t_a_i_l_s:

     Application of inorganic amendment and crop rotation to control
     bacterial wilt  of the potato (MBP).

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

     Experimental field, 2006. Data Kindly provided by Pedro Aley.

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

     International Potato Center. CIP - Lima Peru.

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

     library(agricolae)
     data(Hco2006)
     str(Hco2006)
     wilt<-Hco2006$wilt
     yield<-Hco2006$yield
     means <- tapply.stat(wilt[,5],wilt[,1:3],function(x) mean(x,na.rm=TRUE))
     names(means)[4]<-"wilt_percent"
     model <- aov(wilt_percent ~ block + crop, means)
     anova(model)
     cv.model(model)
     yield<-yield[order(paste(yield[,1],yield[,2],yield[,3])),]
     correlation(means[,4],yield[,4],method="spearman")

