Mercurial > repos > artbio > gsc_signature_score

comparison signature_score.R @ 3:3351ca630a01 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
"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
comparison
equal deleted inserted replaced
2:e08419b8ec24 3:3351ca630a01
116 signature.covariances <- as.data.frame(cov(t(signature.counts))) 116 signature.covariances <- as.data.frame(cov(t(signature.counts)))
117 signature.covariances <- cbind(gene=rownames(signature.covariances), signature.covariances) 117 signature.covariances <- cbind(gene=rownames(signature.covariances), signature.covariances)
118 write.table(signature.covariances, file=opt$covariances, quote=F, row.names=F, sep="\t") 118 write.table(signature.covariances, file=opt$covariances, quote=F, row.names=F, sep="\t")
119 119
120 # compute signature.correlations 120 # compute signature.correlations
121 signature.correlations <- as.data.frame(cov(t(signature.counts))) 121 signature.correlations <- as.data.frame(cor(t(signature.counts)))
122 signature.correlations <- cbind(gene=rownames(signature.correlations), signature.correlations) 122 signature.correlations <- cbind(gene=rownames(signature.correlations), signature.correlations)
123 write.table(signature.correlations, file=opt$correlations, quote=F, row.names=F, sep="\t") 123 write.table(signature.correlations, file=opt$correlations, quote=F, row.names=F, sep="\t")
124 124
125 ## Descriptive Statistics Function 125 ## Descriptive Statistics Function
126 descriptive_stats = function(InputData) { 126 descriptive_stats = function(InputData) {