diff signature_score.R @ 3:3351ca630a01 draft

"planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_signature_score commit b2f58ce7826f8d9fe5524a6f2c5688ac816bb559"
author artbio
date Sat, 31 Oct 2020 18:34:40 +0000
parents e08419b8ec24
children 31da579595c5
line wrap: on
line diff
--- a/signature_score.R	Tue Jul 09 10:52:29 2019 -0400
+++ b/signature_score.R	Sat Oct 31 18:34:40 2020 +0000
@@ -118,7 +118,7 @@
 write.table(signature.covariances, file=opt$covariances, quote=F, row.names=F, sep="\t")
 
 # compute signature.correlations
-signature.correlations <- as.data.frame(cov(t(signature.counts)))
+signature.correlations <- as.data.frame(cor(t(signature.counts)))
 signature.correlations <- cbind(gene=rownames(signature.correlations), signature.correlations)
 write.table(signature.correlations, file=opt$correlations, quote=F, row.names=F, sep="\t")
 
@@ -221,4 +221,4 @@
   quote = F,
   col.names = T,
   row.names = F
-)
\ No newline at end of file
+)