Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Maintenance - Mise à jour mensuelle Lundi 6 Février entre 7h00 et 9h00
Open sidebar
GenEpi
Analyses
rosePigs
Commits
19721e53
Commit
19721e53
authored
Jun 07, 2021
by
Safia Saci
Browse files
Upload New File
parent
844f143b
Changes
1
Hide whitespace changes
Inline
Side-by-side
pre_bayMeth.R
0 → 100644
View file @
19721e53
# Packeges --------
library
(
"dplyr"
)
library
(
"Repitools"
)
library
(
"stringr"
)
library
(
"purrr"
)
library
(
rtracklayer
)
library
(
"BSgenome.Sscrofa.ENSEMBL.susScr11"
)
#windows genome
windows
<-
genomeBlocks
(
Sscrofa
,
width
=
100
,
spacing
=
100
)
# CPG density files
cpgDens
<-
cpgDensityCalc
(
windows
,
organism
=
Sscrofa
,
w.function
=
"linear"
,
window
=
500
)
# saveRDS(windows, file = "/work2/genphyse/genepi/guillaume/rosepigs/windows_full_genome.RDS")
# save(cpgDens, file = "/work2/genphyse/genepi/guillaume/rosepigs/cpgDens.RData")
# windows_genome <- readRDS("/work2/genphyse/genepi/guillaume/rosepigs/windows_full_genome.RDS")
# load("/work2/genphyse/genepi/guillaume/rosepigs/cpgDens.RData")
methyl1
<-
readRDS
(
"/work2/genphyse/genepi/guillaume/rosepigs/annotationBlockCountRDS/Tem-methyl_R1.rds"
)
methyl2
<-
readRDS
(
"/work2/genphyse/genepi/guillaume/rosepigs/annotationBlockCountRDS/Tem-methyl_R2.rds"
)
methyl3
<-
readRDS
(
"/work2/genphyse/genepi/guillaume/rosepigs/annotationBlockCountRDS/Tem-methyl_R3.rds"
)
methyl4
<-
readRDS
(
"/work2/genphyse/genepi/guillaume/rosepigs/annotationBlockCountRDS/Tem-methyl_R4.rds"
)
control_minus
<-
matrix
(
c
(
methyl1
,
methyl2
),
ncol
=
2
)
control_plus
<-
matrix
(
c
(
methyl3
,
methyl4
),
ncol
=
2
)
controls_p
<-
matrix
(
rowSums
(
control_plus
))
controls_m
<-
matrix
(
rowSums
(
control_minus
))
saveRDS
(
controls_p
,
file
=
"/work2/genphyse/genepi/guillaume/rosepigs/control_plus.rds"
)
saveRDS
(
controls_m
,
file
=
"/work2/genphyse/genepi/guillaume/rosepigs/control_minus.rds"
)
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment