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()