data <- read.csv("données des ventes VE.csv")

# Vérifier la structure des données
str(data)

# Supprimer les lignes avec des valeurs manquantes
data <- na.omit(data)

# Convertir la colonne des ventes en type numérique
data$Ventes <- as.numeric(data$Ventes)

# Calculer les statistiques pour les ventes mensuelles
moyenne_ventes <- mean(data$Ventes)
median_ventes <- median(data$Ventes)
ecart_type <- sd(data$Ventes)
min_ventes <- min(data$Ventes)
max_ventes <- max(data$Ventes)

# Afficher les résultats
print(paste("Moyenne des ventes mensuelles :", moyenne_ventes))
print(paste("Médiane des ventes mensuelles :", median_ventes))
print(paste("Écart type des ventes mensuelles :", ecart_type))
print(paste("Minimum des ventes mensuelles :", min_ventes))
print(paste("Maximum des ventes mensuelles :", max_ventes))