rmObjects              package:EBImage              R Documentation

_D_e_l_e_t_e _o_b_j_e_c_t_s

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

     The 'rmObjects' functions deletes objects indexed by a list of
     integer vectors (indexes) from an image with indexed objects.

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


         # S4 methods for class 'Image':

         rmObjects(x, index)


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


     '_x' An object of 'Image-class' in the 'Grayscale' mode with
          integer-absed object index, as returned by 'watershed'. 

     '_i_n_d_e_x' A list of integer vectors (one vector per image) with
          indexes of existing objects that will be deleted. 

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

     An image of 'Image-class', same as in 'watershed'.

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

     Oleg Sklyar: osklyar@ebi.ac.uk

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

     ' Image-class, watershed, getObjects, paintObjects '

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

       if ( interactive() ) {
         ddir <- paste( system.file(package="EBImage"), "images", sep="/" )
         a <- read.image( paste(ddir, "A04w1.jpg", sep="/") )
         w <- watershed( distmap( thresh(a, 10, 10) ) )
         display( normalize(w) )

         ## Not run: Often one need to delete small objects, here is the
         ## Not run: straightfoward way to construct an index
         index <- lapply( getObjects(w), function(x) which( x[, "size"] < 30) )

         ## Not run: now we delete these small objects
         w <- rmObjects( w, index )
         display( normalize(w) )

       }

