valor_arv <- function(dap, h){
vol <- 0.0000599458 * dap^1.82083 * h^0.97645
if (dap < 15) {
valor <- vol * 30
} else if (dap < 30) {
valor <- vol * 40
} else {
valor <- vol * 75
}
if (h > 30) {
valor <- valor * 1.15
}
cat("Resultado: Volume =", vol, "m³; Preço =", valor, "\n")
return(valor)
}
valor_arv1 <- valor_arv(12.5, 23.5)
valor_arv2 <- valor_arv(22, 27.5)
valor_arv3 <- valor_arv(31.5, 30)
valor_arv4 <- valor_arv(14.5, 30.5)
valor_arv5 <- valor_arv(26, 35)
valor_arv6 <- valor_arv(32.5, 36.5)