Celegans     package:BSgenome.Celegans.UCSC.ce2     R Documentation

_C_a_e_n_o_r_h_a_b_d_i_t_i_s _e_l_e_g_a_n_s _f_u_l_l _g_e_n_o_m_e (_U_C_S_C _v_e_r_s_i_o_n _c_e_2)

_D_e_s_c_r_i_p_t_i_o_n:

     Caenorhabditis elegans full genome as provided by UCSC (ce2, Mar.
     2004) and stored in Biostrings objects.

_N_o_t_e:

     This BSgenome data package was made from the following source data
     files:


     chromFa.zip
     upstream1000.zip
     upstream2000.zip
     upstream5000.zip
     from http://hgdownload.cse.ucsc.edu/goldenPath/ce2/bigZips/

     See '?BSgenomeForge' and the BSgenomeForge vignette
     ('vignette("BSgenomeForge")') in the BSgenome software package for
     how to make a BSgenome data package.

_A_u_t_h_o_r(_s):

     H. Pages

_S_e_e _A_l_s_o:

     BSgenome-class, DNAString-class, 'available.genomes',
     BSgenomeForge

_E_x_a_m_p_l_e_s:

     Celegans
     seqlengths(Celegans)
     Celegans$chrI  # same as Celegans[["chrI"]]

     if ("AGAPS" %in% masknames(Celegans)) {

       ## Check that the assembly gaps contain only Ns:
       checkOnlyNsInGaps <- function(seq)
       {
         ## Replace all masks by the inverted AGAPS mask
         masks(seq) <- gaps(masks(seq)["AGAPS"])
         af <- alphabetFrequency(seq)
         found_letters <- names(af)[af != 0]
         if (any(found_letters != "N"))
             stop("assembly gaps contain more than just Ns")
       }

       ## A message will be printed each time a sequence is removed
       ## from the cache:
       options(verbose=TRUE)

       for (seqname in seqnames(Celegans)) {
         cat("Checking sequence", seqname, "... ")
         seq <- Celegans[[seqname]]
         checkOnlyNsInGaps(seq)
         cat("OK\n")
       }
     }

     ## See the GenomeSearching vignette in the BSgenome software
     ## package for some examples of genome-wide motif searching using
     ## Biostrings and the BSgenome data packages:
     if (interactive())
         vignette("GenomeSearching", package="BSgenome")

