Mercurial > repos > kpbioteam > minfi_rset

annotate minfi_rset.R @ 3:ed787a9a3753 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/kpbioteam/minfi_rset commit d43c3e67fa72ca39cbd67d33b010ebed8e7420bf-dirty
author kpbioteam
date Tue, 22 May 2018 10:09:59 -0400
parents c3b42276697a
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
c3b42276697a planemo upload for repository https://github.com/lh3/seqtk
kpbioteam
parents:
diff changeset
1
c3b42276697a planemo upload for repository https://github.com/lh3/seqtk
kpbioteam
parents:
diff changeset
2 require("minfi", quietly = TRUE)
c3b42276697a planemo upload for repository https://github.com/lh3/seqtk
kpbioteam
parents:
diff changeset
3
c3b42276697a planemo upload for repository https://github.com/lh3/seqtk
kpbioteam
parents:
diff changeset
4 args <- commandArgs(trailingOnly = TRUE)
c3b42276697a planemo upload for repository https://github.com/lh3/seqtk
kpbioteam
parents:
diff changeset
5
c3b42276697a planemo upload for repository https://github.com/lh3/seqtk
kpbioteam
parents:
diff changeset
6 input = args[1]
c3b42276697a planemo upload for repository https://github.com/lh3/seqtk
kpbioteam
parents:
diff changeset
7 output = args[2]
c3b42276697a planemo upload for repository https://github.com/lh3/seqtk
kpbioteam
parents:
diff changeset
8
c3b42276697a planemo upload for repository https://github.com/lh3/seqtk
kpbioteam
parents:
diff changeset
9 MSet <- get(load(input))
c3b42276697a planemo upload for repository https://github.com/lh3/seqtk
kpbioteam
parents:
diff changeset
10
c3b42276697a planemo upload for repository https://github.com/lh3/seqtk
kpbioteam
parents:
diff changeset
11 RSet <- ratioConvert(MSet, what = "both", keepCN = TRUE)
c3b42276697a planemo upload for repository https://github.com/lh3/seqtk
kpbioteam
parents:
diff changeset
12
c3b42276697a planemo upload for repository https://github.com/lh3/seqtk
kpbioteam
parents:
diff changeset
13 save(RSet,file = output)
c3b42276697a planemo upload for repository https://github.com/lh3/seqtk
kpbioteam
parents:
diff changeset
14