molMethylLoc: Liftover of molecule methylation and nick label position to...

Description Usage Arguments Value Examples

View source: R/methylationAnalysis_Step1.r

Description

Liftover of molecule methylation and nick label position to contig coordinates

Usage

1
molMethylLoc(molcmap, outputType = c("dataframe", "text"), cntMeth, cntNick)

Arguments

molcmap

character. molecule cmap data.

outputType

character. Output method. dataframe or text.

cntMeth

integer. Meth label value.

cntNick

integer. Nick label value.

Value

dataframe containing the molecule file, with the reference position

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
xmap <- system.file("extdata", "Cmapdir/output/contigs/exp_refineFinal1/merged_smaps/SampContigMolecule.xmap", package="methometR")
cmap <- system.file("extdata", "Cmapdir/output/contigs/exp_refineFinal1/merged_smaps/SampMolecule_q.cmap", package="methometR")
modcmap <- readingCmap(cmap)
modxmap <- readingXmap(xmap)
modMolcmap <- modmolcmap(molcmap = modcmap,
  xmapdata = modxmap,
  cntNick = 1,
  cntMeth=2)
refcontigXmap <- system.file("extdata", "Cmapdir/output/contigs/exp_refineFinal1_sv/merged_smaps/ContigRef.xmap", package="methometR")
refCmap <- system.file("extdata", "Cmapdir/output/contigs/exp_refineFinal1_sv/merged_smaps/hg19ref_r.cmap", package="methometR")
Contigqcmap <- system.file("extdata", "Cmapdir/output/contigs/exp_refineFinal1_sv/merged_smaps/SampContig_q.cmap", package="methometR")
refxmapdat <- readingXmap(refcontigXmap)
refcmapdat <- readingCmap(refCmap)
contigcmapdat <- readingCmap(Contigqcmap)
nickRef<-nickReference(refxmap = refxmapdat, refcmap = refcmapdat, 
    contigcmap = contigcmapdat, contigID = 6701, 
   returnMethod =c("dataFrame"),  chrom = 4)
xmap <- system.file("extdata", "Cmapdir/output/contigs/exp_refineFinal1/merged_smaps/SampContigMolecule.xmap", package="methometR")
molcmap <- system.file("extdata",  "Cmapdir/output/contigs/exp_refineFinal1/merged_smaps/SampMolecule_q.cmap", package="methometR")
contigcmap <- system.file("extdata",  "Cmapdir/output/contigs/exp_refineFinal1/merged_smaps/SampContig_r.cmap", package="methometR")
contigID = 6701; cntNick = 1; cntMeth=2
contigmodcmap <- readingXmap(contigcmap)
modmolcmapNick <-molNickLoc(nickrefLoc = nickRef,
   molcmap = modMolcmap,
   xmapdata = modxmap, 
   contigID = contigID, cntNick = cntNick, 
   cntMeth = cntMeth)
MethylContigLoc<-molMethylLoc(molcmap = modmolcmapNick,
   outputType = c("dataframe"),
   cntNick = cntNick, 
   cntMeth = cntMeth)

VilainLab/methometR documentation built on Dec. 18, 2021, 6:17 p.m.