Skip to content

Commit

Permalink
Merge pull request #8 from joealpuerto/patch-2
Browse files Browse the repository at this point in the history
Update Functions.R
MAUS-team authored Jun 7, 2024
2 parents 3023cae + 0f77b97 commit 50fe40b
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion Sourced code/Functions.R
Original file line number Diff line number Diff line change
@@ -1454,7 +1454,7 @@ step2_economy <- function(){
machine <- machine %>%
mutate(init_v = mowned * mprice,
res_v = (init_v/100)*10,
depreciation = (init_v - res_v)/(myused/(myused+myplan))) # change of the formula
depreciation = (init_v - res_v)*(myused/(myused+myplan))) # change of the formula

machine <- machine %>%
group_by(key) %>%

0 comments on commit 50fe40b

Please sign in to comment.