+
+
+
+
+
+
+Notebook
+Jerome Riera
+2024-08-28
+ +
+
+Import des donnés
+Ces données sont récupérées d’une plateforme de force. le sujet à +réalisé un conter movement jump (CMJ)
+data <- read.csv2("/Users/jeromeriera/Desktop/CMJ.csv", header = TRUE)
+
+Representation des données
+plot(data$Time.To.Max, data$Force,xaxp= c(2,10,8), type = "l", ylab='Force (kg)', xlab='temps(s)',xlim = c(2,10), ylim=c(-5,2000) )
+par(new=T)
+plot(data$Time.To.Max, data$Force_L, type = "l",col ='blue', ylab='Force (kg)', xlab='temps(s)',xlim = c(2,10), ylim=c(-5,2000) )
+par(new=T)
+plot(data$Time.To.Max, data$Force_R, type = "l",col='orange', ylab='Force (kg)', xlab='temps(s)',xlim = c(2,10), ylim=c(-5,2000) )
+
+Réalisation d’un test statistique
+Nous cherchons à savoir si il existe un différence statistiquement +significative ente les jambes droites et gauches
+# on suupprime les colonnes 5 et 6 ne contenant pas de données
+data<-data[,-5]
+data<-data[,-6]
+
+
+# les données ne suivent pas la loi normale nous réalisons donc un test de rang de wilcoxon pour échantillons appariés
+
+# il semble que les colonnes ne soit pas en numerique, nous modifions cela
+
+class(data$Force_L)='numeric'
+class(data$Force_R)='numeric'
+wilcox.test(data$Force_L,data$Force_R,paired = TRUE)##
+## Wilcoxon signed rank test with continuity correction
+##
+## data: data$Force_L and data$Force_R
+## V = 11620838, p-value < 2.2e-16
+## alternative hypothesis: true location shift is not equal to 0
+
+
+
+
+
+Conclusion
+Il existe une différence significative, d’une jambe à l’autre, sur la +force exercée lors des phase en appui d’un CMJ.
+