From 034f4e111e5d9c28ad2267ae7c3fa1617439a447 Mon Sep 17 00:00:00 2001
From: aslane <aslane@mortreau.fr>
Date: Mon, 4 Mar 2024 07:26:10 +0000
Subject: [PATCH] =?UTF-8?q?T=C3=A9l=C3=A9verser=20les=20fichiers=20vers=20?=
 =?UTF-8?q?"/"?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .RData      | Bin 0 -> 2660 bytes
 .Renviron   |   6 ++
 .Rhistory   | 275 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 .gitignore  |   5 +
 .httr-oauth | Bin 0 -> 1024 bytes
 5 files changed, 286 insertions(+)
 create mode 100644 .RData
 create mode 100644 .Renviron
 create mode 100644 .Rhistory
 create mode 100644 .gitignore
 create mode 100644 .httr-oauth

diff --git a/.RData b/.RData
new file mode 100644
index 0000000000000000000000000000000000000000..e756506ecf0f14de89d90d9040556bf93d4b74ad
GIT binary patch
literal 2660
zcmV-q3Y+yGiwFP!000001_4b9vh`9#SThP(3IG5A0{{dA0RRI9000001yxi=EjR!G
z1Ofm60096500{s901PftVQyq^Z7y?VWn=&V01W^D0&)NVD5C%X04X2MsxNlGcQzz{
zXJEEwt)nlSM!~A;ez5&T`OZRG%{luq;Y)(LqWbolv;6s>bU$YQO%;Q`HY})<TLLgC
z$K9+4^4Bev4Zgm&C-^<{quXC!UO6?N=ZKe0H#R)TC2{O$AEVbI#_|G{u0+qLaR*GG
z$ld7}9n{1wF#7B-2t}`mke|7ZnkK5b4zP?(^HW?0-f`;xBcS)1V?Gn>3Q198Ui)*y
ze#&P0U@ZNL*e_eUsO8$H0i2h4OY#Wg)@?Dgqo*_xea<|~yC}(&5i1g6OG!$O&{(WV
zg$CdaP~pa%XmcWt1mZn#G*r|Z`Bz-2Sxq>%yyW+DpvnabO*Kk)BagM_Se8M;NI>0y
zaRXr~ogqEM4iK81-R`}L(V5`?9xI_VCmKQrUEErBL*L%lW3`2peN4^Hd!p>ga{V{3
zYxhVabsl@Rx7d{{sXH%&-q|B1vS_~})0TdIHxY$fP{a0fu+ni^HDtc2sHaEKUHt`!
zU-VFi2-?q^N+ncT2R|#Zq{e(d8BjqOsdKa>laU`;Wx&GhpPu&*!D+S3@tbyCB&t|>
z0?dUrOOIkAFU7%EQ+#-oi_*+eD^2JOItP7UY3|<v#K`|&%gY!<o+*k0)OcQ+k*1=`
zGr_b$;8W(?hXTiyvNWCS=eH6D7p*O{#Kh!aNb0&L&sB_T0PntuM)ua6k|5AJx8oE)
zJb|v!`tZyHk&eP1KKao`EQ{e46uL^}kG!PEO#di+z*QaslWc%O%fjj({2d}toR_<!
zdH!Hb8Mp(p6`NsM`}xwYV@NCLE_UKlXR$8Mx#N};PO^?tqXe~KKu1JH2OWXrJ(O6=
zfjXpqJ%w@mR$nFvK<2oL18|M@WRq{C!7)3chu~>dY<@df9|`Ja!8@2=<qGj#eC*2P
ziEliRj-`=fz+7Brm@-zL?=4q~UFYmzVGb^W#^?hv$m`Lr35hPoxfsjctVXNO^r2H|
z+cUsa;-XBj8I&{i2p2eQunpEz^(3W;5eoQ&2z4bugU`5bbk-`lWPl@$+QW_$q+!?^
zM9>Whb}n1Jr`aas2kY!V{#tnmSR6ZG#UK1`rFFokGz_(OmE!VoroFbMVK>K}CEj;;
z`xt;W@_V!ez!^FBc&NU4I#!p&rqK_*CW9)-eG*%!=%kV%$Y(hQX}uFYBQ)$>XqxlE
zF6F_gh=0>NLIxSK?T}{4kHV{)pde)8u)K9v8c;F($Kq&q{%Emhu1wY;(EO>lm-0K`
zWdO@SV{{e&AP967(YiJ?-Oz()6YPp%3zX4{8`7NPXJFK90ZjeUF(3ht?}D31hUoh2
z80?Ij_B@HGvvM)dc5n$+BqTLcZ#Y@GIGPtwuF$rAjJy?F>Xgb(VuEZwaKMb$r94HX
zIFK&uRw7|v@(8Hf{S2lWf}AoJwi4HnnSguOS`<g-9w;;J0XjkC>(JBv&TP+ZV>C3B
zVv_47rC?o7T}&IyGvI4x&!W4}Kd85lr;HZyO1$`r!*c8;Nbp02R74GZ^;l`W5IVEZ
z({QMEggm16>lAq#^}=VkY~Va>AAC~HCeUc>x}x_o^eC;$;S3*FTfCS?Z89=W=fEFc
zCNzYl^T@R2EV?_u-;mB`VeBM;#8gvk+LF2o>mXcX$;@|C<KTa-F2cRfrYOi-zO3VP
z?!3F;k@9IFF)(VbIHXzW+PG6WXIkGFosdB#?R;EPsT3Ai)k3!$^8ieD!@S^eQ&5$V
z%_72}IY_DgtPC^6#9YoS<kH8RQ~))ymsA7^dFWd0qxwwFV$fwDjVvqo<n))pgOcay
z^kBWTDGX52BH&J6ZDIfn#;9EVo=ii6BYeOH4>C*es&J~IAw+iKm)JGu)OwyS$}sIU
zw!C#RcT~Ij=0YgAcc6&2q`V3pq0mdP5n@jU59q5N6U+~mCj8AZ<MMxz?0|U-2=sb7
z0EjXKp*r`?i%{GffNXmZJd_--MN%jps^AS@EX>_E6re-Sb%H;#gy=uhB<w~pm^>eb
zjB;22yl}lsQX~RRMmR$W;u<~IOwdDs?mR3qxRi0yM1r=qqrl~~X*?8CE|6imR3g)e
zU<gNWM2y{-yd3&vV3J~xT!6Z4EEHRQS13p5Kss2l_|QC9aBQO-hO|cYOcH(f1K>GZ
zlg#b8dEny1$RhNr%_xz4@eEM-GCW-%Nb+htOz>!<KSZhH99Rk%E;?{DIPljbCcJC;
zViYKo)WQYRnqU*i5q!c>EYQ$BFd`fU)TmY5QH-D9;k-2aj50l}Pe6V2s<i9itw_>x
zcDgPJn-J;{NbDjCtW=uv0}@J)?Vuimx6Bk`3t-r9Ov2}@A}HrSJ*-{213V^ZFLJ2M
z|1dWs+$1zv@;G;)hT8c&W01W2F#Ja?X_VPDJ3<%XQUEO-v^>sbwV}-ri&LlbqI4jS
zWCEZPCYMY}aA7A)ET+Dnyrf9#9aT|p75@ZIyqI(U3AXg(azi|z7lli%^dhP;7Z3)Y
zBDu@Dmuq<>c3jj4JBq_ebAPij9?1>e*Iwdk><m9PYu#4huIKl;j}Un@zAnXQ1ltM0
ziM=n}Cn^)a|HwR06!8c?Dr06^&SWfl6_ShA!e=jAS}|{|*LKzWJd~?!lBJmMKd<Nr
zoM=(i&_<nuRr748p;bP`6EfnprvQ;76X}m3PFtwLu&iJ<R=SpK#Ba|H0r_=+6pj^K
zom_v8P0hi45jUxC8^B&<RGx}9Icv~!VC`3_`C7jWLKu@Yzky!jO*6;SV^lpt6=MG#
zW%ujBE<s-eYQ_eIyaY-SJGBy+l%M3Ip!n>IIM#Ivv11^vJtZq`YQi7-hp>=Zo7vJz
zl}m*X)4U=v`|8wcTpxn<TB!`(&OVx2gDi2TEqxJDL&xcV60kl25YCtx$@{G{%3ZJ8
z<%$8Yy{PhpLlKyNas!%l1q8S0!7_SgPlu*C9nnhR4_0tFEi_lMWJS)KjF0t!iU@8L
zW+u>B{?jh)@HNZ8f06^&e_(4~D#`dKUHeKtDa-+B09w1Iolkya6dC#&nl2Dr_&f~R
zZLJP5j#oVof1pz1-2R>Kf6Ir*+07l8-1-%<FF0@I9N}D350e~X!?a?%=)#pq%-3;-
zi6Lm4faYFU<>V2lAr&XvIY0J=WY~HT%=YjqHv^-f&_zL1Fk&;O_t4&B%=tv0#w)g>
z@tpskk;;$d^1l&YL<#(vbsk6>xXkRUteqg2(I-n~8&EXDW$wd9!kY}%r2VD#YwB6~
z%!u?ik}>EFq@x}?D5PsPc~Z+G#HZQ5VDYj%m^Q^J$kZOad}XwLIY<Bi1Ofm600965
z00{s901R?vWNC6`V{~72a%lhn01yBG0096500{s902OF-bZ|N^FKlmPVQgq`b96d5
SFgP#(0092Y9q)}z3IG6@#_y2;

literal 0
HcmV?d00001

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 0000000000000000000000000000000000000000..06d7405020018ddf3cacee90fd4af10487da3d20
GIT binary patch
literal 1024
ScmZQz7zLvtFd70QH3R?z00031

literal 0
HcmV?d00001