combineFrames             package:prada             R Documentation

_C_o_m_b_i_n_e _t_h_e _c_y_t_o_F_r_a_m_e_s _w_i_t_h_i_n _a _c_y_t_o_S_e_t _a_c_c_o_r_d_i_n_g _t_o _s_o_m_e
_g_r_o_u_p_i_n_g _f_a_c_t_o_r

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

     Combine the cytoFrames within a cytoSet according to some grouping
     factor.

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

     combineFrames(x, by)

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

       x: cytoSet.

      by: factor. Length must be same as that of 'x'.

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

     cytoSet.

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

     Wolfgang Huber <huber@ebi.ac.uk>

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

     cset <- readCytoSet(path=system.file("extdata", package="prada"),
                      pattern="[A-Z][0-9][0-9]$")
     nr1 <- csApply(cset, nrow)
     sm1 <- csApply(cset, sum)

     fac <- factor(c(1,1,2,2,2,2))
     cc  <- combineFrames(cset, fac)
     nr2 <- csApply(cc, nrow)
     sm2 <- csApply(cc, sum)

     stopifnot(all(nr2==tapply(nr1, fac, sum)))
     stopifnot(all(sm2==tapply(sm1, fac, sum)))

