varHistPlot               package:plw               R Documentation

_V_a_r_i_a_n_c_e _h_i_s_t_o_g_r_a_m _a_n_d _d_e_n_s_i_t_y

_D_e_s_c_r_i_p_t_i_o_n:

     Will produce a histogram of observed variance estimators (logged)
     together with the fitted density.

_U_s_a_g_e:

     varHistPlot(model,main="Histogram variance estimators",
                histCol=8,densityCol=2,drawLegend=TRUE)

_A_r_g_u_m_e_n_t_s:

   model: On object obtained from the function plw or lmw.

    main: Main title of plot.

 histCol: Color for histogram bars.

densityCol: Color for density function.

drawLegend: To draw a legend or not.

_A_u_t_h_o_r(_s):

     Magnus Astrand

_S_e_e _A_l_s_o:

     plw, lmw

_E_x_a_m_p_l_e_s:

     # ------------------------------------------
     # Example using the result of the analysis of
     # the 6 arrays in the AffySpikeU95Subset data set

     # Loading the data
     data(AffySpikeU95Subset)

     # Defining design and contrast matrix
     group<-factor(rep(1:2,each=3))
     design<-model.matrix(~group-1)
     contrast<-matrix(c(1,-1),1,2)

     # Analyzing using plw
     model1<-plw(AffySpikeU95Subset,design=design,contrast=contrast,
                 epsilon=0.01)

     ## Look at fitted vs observed density for log(s2)
     varHistPlot(model1)

