subExprSet            package:gtkWidgets            R Documentation

_A _w_i_d_g_e_t _w_i_t_h _m_e_n_u_s _t_h_a_t _a_l_l_o_w _u_s_e_r_s _t_o _m_a_n_i_p_u_l_a_t_e _a_n _e_x_p_e_r_S_e_t _o_b_j_e_c_t

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

     This widget contains manus that can be activated to import and/or
     manipulate an experSet object

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

     subExprSet(eset)

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

    eset: 'eset' an object of the class experSet

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

     The argument 'eset' is optional. If eset is missing, the widget
     only contains a menubar with menuitems. If an eset object is
     passed as the argument, the widget will also contain a dropdown
     list populated with names of the covariates of the phenoData slot,
     a table showing the sample names of the phenoData and values for
     the covariate that is currently selected in the drowdown list, and
     check buttons for users to click to select/deselect samples. All
     the samples are selected by default. 

     All the samples are selected by default. Clicking the check button
     will deselect the corresponding sample. When any value of a
     covariate is clicked, all samples that have the sample value as
     the one that is clicked will be selected and the rest will be
     deselected.

_V_a_l_u_e:

     The widget returns a name vector of booleans. Names of the vector
     are sample names. Selected samples are TRUE.

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

     Jianhua Zhang

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

     Documentions for exprSet objects

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

         if(interactive()){
             require("Biobase") || stop("Biobase unavailable")
             require("gtkWidgets") || stop("gtkWidgets unavailable")
             data(geneData)
             data(geneCov)
             covdesc<- list("Covariate 1", "Covariate 2", "Covariate 3")
             names(covdesc) <- names(geneCov)
             pdata <- new("phenoData", pData=geneCov, varLabels=covdesc)
             eset <- new("exprSet", exprs=geneData, phenoData=pdata)

             # No argument passed. Use menu to import an exprSet object
             subExprSet()
         }

