rstudio

install.packages("data.table")
library(data.table)

# Importer les données

chemin_fichier <- "C:/Users/usuario/Desktop/SwimRecords.csv"
swim <- fread(chemin_fichier)

# Afficher les premières lignes du dataframe
head(swim)


------------------------------------------------------------

# Installer et charger ggplot2 si nécessaire

  install.packages("ggplot2")
}
library(ggplot2)

# Créer le graphique
ggplot(swim, aes(x = year, y = time, color = sex)) +

  geom_point() +  # Ajouter les points
  geom_smooth(method = "lm") +  # Ajouter les lignes de régression
  labs(
    title = "Évolution des records mondiaux de 100 m",
    x = "Année",
    y = "Temps (secondes)",
    color = "Sexe"
  ) +
  theme_minimal()  # Thème pour améliorer l'apparence


´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´


# Ajuster le modèle de régression linéaire
modele <- lm(time ~ year * sex, data = swim)

# Résumé du modèle
summary(modele)