276 lines
9.1 KiB
R
276 lines
9.1 KiB
R
|
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()
|