diff --git a/.RData b/.RData
new file mode 100644
index 0000000..e756506
Binary files /dev/null and b/.RData differ
diff --git a/.Renviron b/.Renviron
new file mode 100644
index 0000000..8a66eb8
--- /dev/null
+++ b/.Renviron
@@ -0,0 +1,6 @@
+AUTHORIZE_URL=https://pcis.okta.com/oauth2/default/v1/authorize
+TOKEN_URL=https://pcis.okta.com/oauth2/default/v1/token
+USERINFO_URL=https://pcis.okta.com/oauth2/default/v1/userinfo
+URI_URL=http://localhost:8080
+CLIENT_ID=0oabol13t1UxWlYHF417
+CLIENT_SECRET=zmSdWvD8RSaMsq7EjEl3m8D-PX7pEYvm38SrTvJ5dStJokDxA231bv0TJJDzK4MS
diff --git a/.Rhistory b/.Rhistory
new file mode 100644
index 0000000..a68645f
--- /dev/null
+++ b/.Rhistory
@@ -0,0 +1,275 @@
+library(cars)
+library(car)
+carData::Arrests
+Arrests$year <- as.factor(Arrests$year)
+a = c("Sex","year")
+b = "checks"
+mod = lm(checks~sex*year,data=Arrests)
+e <- emmeans::emmeans(mod,~sex*year)
+e@grid[1][1]
+e@grid[1,1]
+paste(e@grid[1,1],e@grid[1,2])
+contrasts(e,"trt.vs.ctrl",paste(e@grid[1,1],e@grid[1,2]))
+Arrests$year <- as.factor(Arrests$year)
+a = c("Sex","year")
+b = "checks"
+mod = lm(checks~sex*year,data=Arrests)
+e <- emmeans::emmeans(mod,~sex*year)
+contrasts(e,"trt.vs.ctrl",paste(e@grid[1,1],e@grid[1,2]))
+e <- emmeans::emmeans(mod,~sex*colour)
+a = c("sex","year")
+b = "checks"
+mod = lm(checks~sex*year,data=Arrests)
+e <- emmeans::emmeans(mod,~sex*year)
+contrasts(e,"trt.vs.ctrl",paste(e@grid[1,1],e@grid[1,2]))
+e@grid
+contrasts(e,"trt.vs.ctrl",ref=paste(e@grid[1,1],e@grid[1,2]))
+library(emmeans)
+e <- emmeans(mod,~sex*year)
+contrasts(e,"trt.vs.ctrl",ref=paste(e@grid[1,1],e@grid[1,2]))
+contrasts(e,"trt.vs.ctrl")
+e <- emmeans(mod,trt.vs.ctrl~sex*year)
+contrasts(e,"trt.vs.ctrl")
+b = "released"
+mod = lm(checks~sex*year,data=Arrests)
+e <- emmeans(mod,trt.vs.ctrl~sex*year)
+contrasts(e,"trt.vs.ctrl")
+contrasts(e,method="trt.vs.ctrl")
+?contrast
+e <- emmeans(mod,~sex*year)
+contrasts(e,method="trt.vs.ctrl")
+contrasts(e)
+Arrests$year <- as.factor(Arrests$year)
+a = c("sex","year")
+b = "released"
+mod = lm(checks~sex*year,data=Arrests)
+e <- emmeans(mod,~sex*year)
+contrasts(e)
+a = c("sex","colour")
+b = "checks"
+mod = lm(checks~sex*colour,data=Arrests)
+e <- emmeans(mod,~sex*colour)
+contrasts(e)
+contrasts(e,"trt.vs.ctrl")
+mod = lm(checks~sex*colour,data=Arrests)
+e <- emmeans(mod,~sex*colour)
+contrasts(e,"trt.vs.ctrl")
+mod = lm(checks~sex*colour,data=Arrests)
+e <- emmeans(mod,~sex*colour)
+e@grid
+contrasts(e,"trt.vs.ctrl")
+library(car)
+library(emmeans)
+carData::Arrests
+Arrests$year <- as.factor(Arrests$year)
+mod = lm(checks~sex*colour,data=Arrests)
+e <- emmeans(mod,~sex*colour)
+contrasts(e,"trt.vs.ctrl")
+e <- emmeans(mod,~sex*colour)
+contrasts(e,"trt.vs.ctrl",ref=1)
+contrasts(e,method="trt.vs.ctrl",ref=1)
+contrasts(e,method="pairwise",ref=1)
+library(car)
+library(emmeans)
+library(carData)
+# Charger les données Arrests
+data("Arrests")
+# Assurez-vous que la variable "year" est un facteur
+Arrests$year <- as.factor(Arrests$year)
+# Créer le modèle de régression linéaire
+mod <- lm(checks ~ sex * year, data = Arrests)
+# Calculer les estimations des moyennes (moyennes prévues) pour chaque combinaison de niveaux
+e <- emmeans(mod, ~ sex * year)
+# Effectuer des comparaisons entre les niveaux du facteur "year"
+contrasts <- contrast(e, "pairwise", by = "year")
+# Afficher les comparaisons entre les niveaux de "year"
+summary(contrasts)
+# Créer le modèle de régression linéaire
+mod <- lm(checks ~ sex * year, data = Arrests)
+# Calculer les estimations des moyennes (moyennes prévues) pour chaque combinaison de niveaux
+e <- emmeans(mod, ~ sex * year)
+contrasts(e,method="pairwise",ref=1)
+contrast(e,method="pairwise",ref=1)
+contrast(e,method="trt.vs.ctrl",ref=1)
+contrast(e,method="trt.vs.ctrl",ref=paste(e@grid[1,1],e@grid[1,2]))
+paste(e@grid[1,1],e@grid[1,2])
+Arrests$year <- as.character(Arrests$year)
+Arrests$year <- as.factor(Arrests$year)
+mod = lm(checks~sex*colour,data=Arrests)
+e <- emmeans(mod,~sex*colour)
+contrast(e,method="trt.vs.ctrl",ref=paste(e@grid[1,1],e@grid[1,2]))
+contrast(e,method="trt.vs.ctrl",ref=paste(e@grid[1,2],e@grid[1,1]))
+contrast(e,method="trt.vs.ctrl",ref=paste(e@grid[1,1],e@grid[1,2]))
+mod = lm(checks~sex*year,data=Arrests)
+e <- emmeans(mod,~sex*year)
+contrast(e,method="trt.vs.ctrl",ref=paste(e@grid[1,1],e@grid[1,2]))
+e@grid
+contrast(e,method="trt.vs.ctrl",ref=1)
+library(car)
+library(emmeans)
+carData::Arrests
+Arrests$year <- as.character(Arrests$year)
+Arrests$year <- as.factor(Arrests$year)
+mod = lm(checks~sex*year,data=Arrests)
+e <- emmeans(mod,~sex*year)
+contrast(e,method="trt.vs.ctrl",ref=1)
+contrast(e,method="trt.vs.ctrl",ref=paste(e@grid[1,1],e@grid[1,2]))
+View(Arrests)
+e@levels
+e@matlevs
+e@grid
+mod = lm(checks~sex*year*colour,data=Arrests)
+e <- emmeans(mod,~sex*year)
+e <- emmeans(mod,~sex*year*colour)
+contrast(e,method="trt.vs.ctrl",ref=2
+)
+contrast(e,method="trt.vs.ctrl",ref="Male year1997 Black")
+contrast(e,method="trt.vs.ctrl",ref="Male year1997 colourBlack")
+mod = lm(checks~sex*year*colour,data=Arrests)
+e <- emmeans(mod,~sex*colour*year)
+contrast(e,method="trt.vs.ctrl",ref="Male year1997 Black")
+e@grid
+contrast(e,method="trt.vs.ctrl",ref=1)
+as.data.frame(e@grid[,-ncol(e@grid)])
+df_concatenated <- apply(Arrests, 1, function(row) {
+paste(row, collapse = "")
+})
+df_concatenated
+df_concatenated <- apply(eàgrid[,-ncol(e@grid)], 1, function(row) {
+paste(row, collapse = " ")
+})
+df_concatenated <- apply(e@grid[,-ncol(e@grid)], 1, function(row) {
+paste(row, collapse = " ")
+})
+df_concatenated
+which(df_concatenated == "Male Black 1997")
+contrast(e,method="trt.vs.ctrl",ref=2)
+contrast(e,method="trt.vs.ctrl",ref=21)
+shiny::runApp('C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES')
+runApp('C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES')
+runApp('C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES')
+?renderDT
+runApp('C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES')
+?read.csv
+runApp('C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES')
+runApp('C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES')
+runApp('C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES')
+runApp('C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES')
+runApp('C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES')
+runApp('C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES')
+runApp('C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES')
+runApp('C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES')
+runApp('C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES')
+install.packages("PMCMR")
+install.packages("PMCMRplus")
+?posthoc.kruskal.dunn
+??posthoc.kruskal.dunn
+?wilcox_test
+library(car)
+library(emmeans)
+carData::Arrests
+mod = lm(checks~sex*year*colour,data=Arrests)
+kw <- wilcox_test(mod)
+install.packages("rstatix")
+library(rstatix)
+kw <- wilcox_test(mod)
+kw <- wilcox_test(formula=mod,data=Arrests)
+kw <- wilcox_test(formula=mod,data=Arrests)
+carData::Arrests
+Arrests
+carData::Arrests
+Arrests <- carData::Arrests
+Arrests$year <- as.character(Arrests$year)
+Arrests$year <- as.factor(Arrests$year)
+mod = lm(checks~sex*year*colour,data=Arrests)
+kw <- wilcox_test(formula=mod,data=Arrests)
+kw <- wilcox_test(formula=checks~sex*year*colour,data=Arrests)
+kw <- wilcox_test(formula=checks~colour,data=Arrests)
+dunn_test
+?dunn_test
+library(PMCMR)
+?posthoc.kruskal.dunn
+?posthoc
+??posthoc.kruskal.dunn
+install.packages("coin")
+friedman_test(mod,data=Arrests)
+?friedman_test
+friedman_test(checks~sex*year*colour|sex*year*colour,data=Arrests)
+friedman_test(checks~sex*year*colour|colour,data=Arrests)
+friedman_test(checks~sex*year|colour,data=Arrests)
+friedman_test(checks~sex|colour,data=Arrests)
+friedman_test(checks~sex+year|colour,data=Arrests)
+friedman_test(checks~sex+year,data=Arrests)
+friedman_test(checks ~ sex+year,data=Arrests)
+a <- paste(Arrests$colour,Arrests$sex)
+a
+b <- Arrests$checks
+friedman_test(a,b)
+friedman_test(b,a)
+friedman.test(y=b,groups = a)
+friedman.test(y=b,groups = a,p.adj="bonf")
+Arrests$age
+friedman.test(y=b,groups = a,blocks=Arrests$age)
+friedman.test(y=b,groups = a,blocks=Arrests$year)
+friedman.test(y=b,groups = a,blocks=c(1:length(a)))
+ks.test(mod)
+ks.test(a,b)
+ks.test(b,a)
+shiny::runApp('C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES')
+install.packages("auth0")
+library(auth0)
+auth0::use_auth0()
+runApp('C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES')
+options(auth0_config_file = "~/auth0.yml")
+runApp('C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES')
+setwd("C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES")
+runApp('C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES')
+runApp('C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES')
+runApp('C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES')
+options(shiny.port = 8080)
+runApp('C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES')
+options(shiny.port = 8080)
+runApp('C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES')
+runApp('C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES')
+runApp('C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES')
+runApp('C:/Users/AMORTREAU/Desktop/RES-LOC-INTERFACE_STATISTIQUES')
+runApp()
+runApp()
+runApp()
+auth0::shinyAuth0App()
+?auth0::shinyAuth0App()
+?shinyAppAuth0
+options(auth0_config_file = './_auth0.yml')
+runApp()
+options(auth0_config_file = './_auth0.yml')
+runApp()
+runApp()
+runApp()
+auth0::use_auth0()
+runApp()
+options(auth0_config_file = './_auth0.yml')
+runApp()
+runApp()
+option(shiny.port=8080)
+options(shiny.port=8080)
+shiny::runApp()
+options(shiny.port=8080)
+shiny::runApp()
+options(shiny.port=8080)
+options(shiny.port=8080)
+shiny::runApp()
+?auth0_config
+runApp()
+options(shiny.port=8080)
+shiny::runApp()
+options(shiny.port=8080)
+shiny::runApp()
+trace(httr::oauth2.0_access_token,edit=T)
+options(shiny.port=8080)
+shiny::runApp()
+trace(httr::oauth2.0_access_token,edit=T)
+trace(httr::oauth2.0_access_token,edit=T)
+remove.packages("httr")
+install.packages("httr")
+trace(httr::oauth2.0_access_token,edit=T)
+shiny::runApp()
diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..f30a3c2
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,5 @@
+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata
+.httr-oauth
diff --git a/.httr-oauth b/.httr-oauth
new file mode 100644
index 0000000..06d7405
Binary files /dev/null and b/.httr-oauth differ