inst/extdata/mightUseful.R

In lzcyzm/Travis_Dev: Transcriptomic View of Genomic Features

package.skeleton(name="Travis",code_files =list.files())

a <- read.table("cellular_dox_macs_kpdup_peaks.narrowPeak",sep="\t",header=FALSE)
write.table(a[1:1000,],file= "m6A_hg19_1000peaks_macs2.narrowPeak",sep="\t",
            quote = FALSE, row.names = FALSE,
            col.names = FALSE)

a <- read.table("mmDNA.bismark.cov",sep="\t",header=FALSE)
write.table(a[1:10000,],file= "DNAm5C_mm10_10000sites_bismark.cov",sep="\t",
            quote = FALSE, row.names = FALSE,
            col.names = FALSE)


a <- read.table("mmRNA.bismark.cov",sep="\t",header=FALSE)
write.table(a[1:10000,],file= "RNAm5C_mm10_10000sites_bismark.cov",sep="\t",
            quote = FALSE, row.names = FALSE,
            col.names = FALSE)