unsplitSnpSet            package:SNPchip            R Documentation

_C_o_m_b_i_n_e_s _a _l_i_s_t _w_i_t_h _e_l_e_m_e_n_t_s _t_h_a_t _a_r_e _A_n_n_o_t_a_t_e_d_S_n_p_S_e_t_s _i_n_t_o _o_n_e _A_n_n_o_t_a_t_e_d_S_n_p_S_e_t.

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

     After splitting a 'SnpSet' object by chromosome, for instance,
     this function will reproduce the original object from the list.

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

     unsplitSnpSet(from, annotatedDataFrame, ...)

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

    from: A 'list'. Element should be one of the SNP classes extending
          'eSet'

annotatedDataFrame: Object of class 'AnnotatedDataFrame' that contains
          the 'featureData' prior to splitting.  See the example.

     ...: arguments to initialize an instance of the class

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

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

     an object of class 'class(from[[1]])'

_N_o_t_e:

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

     Robert Scharpf

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

_S_e_e _A_l_s_o:

     'split'

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

       data(sample.snpset)
       x <- split(sample.snpset, chromosome(sample.snpset))
       class(x)
       length(x)

       ## Not run: 
         xx <- unsplitSnpSet(x,
                             featureData(sample.snpset),
                             copyNumber=do.call("rbind", lapply(x, copyNumber)),
                             calls=do.call("rbind", lapply(x, calls)),
                             cnConfidence=do.call("rbind", lapply(x, callsConfidence)),
                             callsConfidence=do.call("rbind", lapply(x, callsConfidence)))
         xx
       
     ## End(Not run)

