Bonjour à tous,
Je souhaiterai supprimer mes doublons dans la colonne année et faire la somme des valeurs épaisseur (table en exemple ci-dessous). j'ai débuté avec ce code mais celui-ci ne marche pas;
setwd("/Users/boreale/Desktop/R_stat")
test_th <- read.table("/Users/boreale/Desktop/R_stat/test_th.txt",header=T,sep="\t",quote="")
colnames(test_th)
rownames(test_th)
str(test_th)
# On initialise une colonne qui va contenir la même information que la colone Varves, mais sans les NA
test_th$sum <- NA
test_th$sum
# On remplit ensuite cette colonne élément par élément
tmp <- NA # tmp va être la valeur que l'on va attribuer en position i
for (i in 1:n) {
# dès que l'on rencontre quelque chose qui n'est pas NA dans la colonne Varves, on remplace tmp par cette valeur : cela arrive par exemple quand i vaut 1 !
if ( ! duplicated(test_th$annee[i])) tmp<- test_th$epaisseur[i]
test_th$cumul[i] <- tmp
}
Je vous remercie par avance.
annee varves epaisseur
1 2015 1_1S_A1 0.7
2 2015 1_1S_A1 3.0
3 2015 1_1S_A1 1.3
4 2014 2_1S_A1 0.9
5 2014 2_1S_A1 0.5
6 2013 3_1S_A1 0.7
7 2012 4_1S_A1 2.0
8 2012 4_1S_A1 2.2
9 2012 4_1S_A1 2.1
10 2012 4_1S_A1 4.0
11 2011 5_1S_A1 3.1
12 2010 6_1S_A1 1.1
13 2009 7_1S_A1 1.0
14 2009 7_1S_A1 1.4
15 2009 7_1S_A1 0.6