polarolouis/anova-phylogenetique-projet-msv
1
0
Fork 0
mirror of https://github.com/Polarolouis/anova-phylogenetique-projet-msv.git synced 2026-06-17 18:25:25 +02:00
Code Issues Projects Releases Packages Wiki Activity

Use library instead of require

Browse source
This commit is contained in:
Louis Lacoste 2024-03-05 15:49:29 +01:00
parent 32a137cc4e
commit 12d6e51645
1 changed files with 11 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
R/realTreeMethod.R
View file

@ -4,18 +4,19 @@
### Import et fonctions utiles ### Import et fonctions utiles
# Repartir du fichier d'analyse Rmd # Repartir du fichier d'analyse Rmd
# Utiliser data.trans, ligne 883 voir RMD # Utiliser data.trans, ligne 883 voir RMD
require(phylotools) library(phylotools)
require(phytools) library(phytools)
require(phylolm) library(phylolm)
require(limma) library(limma)
require(edgeR) library(edgeR)
require(here) library(here)
require(ggplot2) library(ggplot2)
require(dplyr) library(dplyr)
require(tidyr) library(tidyr)
source("R/utils.R") source("R/utils.R")
### Data import ### Data import
cdata <- readRDS(here("data", "data_TER", "data", "chen2019_rodents_cpd.rds")) cdata <- readRDS(here("data", "data_TER", "data", "chen2019_rodents_cpd.rds"))
is.valid <- compcodeR:::check_phyloCompData(cdata) is.valid <- compcodeR:::check_phyloCompData(cdata)
@ -111,7 +112,7 @@ ggplot(pvalues_dataframe) +
facet_wrap(~test_method) facet_wrap(~test_method)
# DONE utiliser UpSetR pour diagramme de Venn # DONE utiliser UpSetR pour diagramme de Venn
require(UpSetR) library(UpSetR)
upset(pvalues_dataframe_wide, upset(pvalues_dataframe_wide,
nsets = 8, nsets = 8,
mainbar.y.label = "Nombre de gènes en commun", mainbar.y.label = "Nombre de gènes en commun",