Added script for extracting data from R compressed files

KaiLiCn · May 3, 2016 · 762c5b2 · 762c5b2
1 parent 3b5c31b
commit 762c5b2
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/save_data_as_plain_text.r b/save_data_as_plain_text.r
@@ -0,0 +1,10 @@
+load("ad_muts.rsav")
+write.table(ad_muts, "ad_muts.tsv", sep='\t', quote=F, row.names=F)
+
+load("psite_table.rsav")
+write.table(psite_table, "psite_table.tsv", sep='\t', quote=F, row.names=F)
+
+# install.packages("seqinr", repos="http://R-Forge.R-project.org")
+library(seqinr)
+load("longest_isoform_proteins.fa.rsav")
+write.fasta(sequences=as.list(longest_isoform_proteins), names=names(longest_isoform_proteins), file.out='longest_isoform_proteins.fa', as.string=T)