# Résumé Compte année 2017
# Données de base
compte <- read.csv2("compte.csv")
janvier <- subset(compte, Mois== "1", 1:4)
février <- subset(compte, Mois== "2", 1:4)
mars <- subset(compte, Mois== "2", 1:4)
avril <- subset(compte, Mois== "2", 1:4)
mai <- subset(compte, Mois== "2", 1:4)
juin <- subset(compte, Mois== "2", 1:4)
juillet <- subset(compte, Mois== "2", 1:4)
aout <- subset(compte, Mois== "2", 1:4)
septembre <- subset(compte, Mois== "2", 1:4)
octobre <- subset(compte, Mois== "2", 1:4)
novembre <- subset(compte, Mois== "2", 1:4)
décembre <- subset(compte, Mois== "2", 1:4)
print("Résumé de janvier")
janvier
tapply(janvier$Montant, janvier$Catégorie, sum)
sum(janvier$Montant)
print("---------------------------------------")
print("Résumé de février")
février
tapply(février$Montant, février$Catégorie, sum)
sum(février$Montant)
print("---------------------------------------")
print("Résumé de mars")
mars
tapply(mars$Montant, mars$Catégorie, sum)
sum(mars$Montant)
print("---------------------------------------")
print("Résumé de avril")
avril
tapply(avril$Montant, avril$Catégorie, sum)
sum(avril$Montant)
print("---------------------------------------")
print("Résumé de mai")
mai
tapply(mai$Montant, mai$Catégorie, sum)
sum(mai$Montant)
print("---------------------------------------")
print("Résumé de juin")
juin
tapply(juin$Montant, juin$Catégorie, sum)
sum(juin$Montant)
print("---------------------------------------")
print("Résumé de juillet")
juillet
tapply(juillet$Montant, juillet$Catégorie, sum)
sum(juillet$Montant)
print("---------------------------------------")
print("Résumé de aout")
aout
tapply(aout$Montant, aout$Catégorie, sum)
sum(aout$Montant)
print("---------------------------------------")
print("Résumé de septembre")
septembre
tapply(septembre$Montant, septembre$Catégorie, sum)
sum(septembre$Montant)
print("---------------------------------------")
print("Résumé de octobre")
octobre
tapply(octobre$Montant, octobre$Catégorie, sum)
sum(octobre$Montant)
print("---------------------------------------")
print("Résumé de novembre")
novembre
tapply(novembre$Montant, novembre$Catégorie, sum)
sum(novembre$Montant)
print("---------------------------------------")
print("Résumé de décembre")
décembre
tapply(décembre$Montant, décembre$Catégorie, sum)
sum(décembre$Montant)
print("---------------------------------------")