NB: je suis nouveau dans ce monde :)
Bonjour,
Je souhaite faire des calculs économique sur une échelle de temps de 300 ans. J'ai fait un petit test pour calculer la valeur actualisée net de mon investissement (ici plantation forestière).
La méthode : calculer la van (npv) pour chaque année s'il y'a coupe pour des rotations de 15 ans. Après chaque rotation (n+1) il va falloir prendre la nouvelle valeur npv0 et non pas la précédente npv ex: année 16, 31, 46...etc, puis faire le caulcul ci-dessous durant les rotations de 15 ans.
Pourriez-vous m'aider à résoudre ce problème qui me bloque depuis un moment ?
En vous remerciant par avance,
time<-c(0:300)
growth<-c(0,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236,0,0,0,20,37,58,83,116,151,182,203,215,224,231,236)
price<-c(66)
i<-c(0.02)
costs <- vector("integer", 300)
costs[time %% 45 ==0] <- 1800
i_rate<-1/(1+i)^time
i_coeff<-1/(1+i)^time
npv <- vector("double", length(time))
for(i in time){
index = i + 1
if(i == 0){
npv[index] <- -costs[index]
}else{
npv[index] <- i_rate[index] * (npv[index-1] + price*(growth[index] -growth[index-1]))
}
}
View(npv)