Mercurial > repos > davidecangelosi > pipe_t
changeset 20:9227f7b1c50b draft
planemo upload for repository https://github.com/igg-molecular-biology-lab/pipe-t.git commit ff16cfc0a6c2b83c1e32d1204e91f3a20d6dc231
| author | davidecangelosi |
|---|---|
| date | Tue, 28 May 2019 06:53:43 -0400 |
| parents | 8503457bd0c4 |
| children | 1e3113e565db |
| files | pipe-t.R |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/pipe-t.R Tue May 28 04:35:18 2019 -0400 +++ b/pipe-t.R Tue May 28 06:53:43 2019 -0400 @@ -694,7 +694,7 @@ # xx <- log2(subset(x, x<Ct.max)) # 2^mean(xx)}) geo.mean <- apply(data, 2, function(x) { - xx <- subset(x, x<=Ct.max) + xx <- subset(x, x<Ct.max) geometric.mean(xx)}) # Which sample to scale to #if (missing(geo.mean.ref)) @@ -710,7 +710,7 @@ } # switch ,globalmean = { glo <- apply(data, 2, function(x) { - xx <- subset(x, x <= Ct.max) + xx <- subset(x, x <Ct.max) mean(xx) }) data.norm <- t(t(data) - glo)