inst/extdata/GentlemanLab/BSgenome.Cfamiliaris.UCSC.canFam3-tools/splitbigfasta.R

In BSgenome: Software infrastructure for efficient representation of full genomes and their SNPs

###
library(Biostrings)
canFam3 <- readDNAStringSet("canFam3.fa")

### Partitioning:
is_chrUn <- grepl("^chrUn", names(canFam3))
is_chrom <- !is_chrUn

### Send each chromosome to a FASTA file.
seqnames <- paste("chr", c(1:38, "X", "M"), sep="")
stopifnot(setequal(seqnames, names(canFam3)[is_chrom]))
for (seqname in seqnames) {
    seq <- canFam3[match(seqname, names(canFam3))]
    filename <- paste(seqname, ".fa", sep="")
    cat("writing ", filename, "\n", sep="")
    writeXStringSet(seq, file=filename, width=50L)
}

### Send the 1439 chrUn_* sequences to 1 FASTA file.
chrUn_mseq <- canFam3[is_chrUn]
writeXStringSet(chrUn_mseq, file="chrUn.fa", width=50L)