---
title: "Notebook"
author: "Jerome Riera"
date: "2024-08-28"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

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

```{r}
data <- read.csv2("/Users/jeromeriera/Desktop/CMJ.csv", header = TRUE)
```

## Representation des données

```{r}
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
```{r}
# on supprime 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)




```
## Conclusion

Il existe une différence significative, d'une jambe à l'autre, sur la force exercées lors des phase en appui d'un CMJ chez ce sujet.