From 762c5b267ed35b8a30def8a1679f57a77bf493e9 Mon Sep 17 00:00:00 2001 From: krassowski Date: Tue, 3 May 2016 13:02:29 +0200 Subject: [PATCH] Added script for extracting data from R compressed files --- save_data_as_plain_text.r | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 save_data_as_plain_text.r diff --git a/save_data_as_plain_text.r b/save_data_as_plain_text.r new file mode 100644 index 000000000..583a34af8 --- /dev/null +++ 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)