SEMANA 04 - Operações Condicionais: Lógicas e Aninhamento - Atividade B04

dec_rec <- function(cob_copa, solo_exp, cob_gram) {
  if (cob_copa >= 70) {
    # alternativa copa 1
    if (solo_exp >= 1000) {
      # alternativa solo 1
      cat("Recuperação de solo exposto. \n")
    } else {
      # alternativa solo 2
      cat("Avaliar necessidade de enriquecimento. \n")
    }
  } else if (cob_copa >= 60 & cob_copa < 70) {
    # alternativa copa 2
    if (cob_gram >= 35) {
      # alternativa gramínea 1
      if (solo_exp >= 1000) {
        # alternativa solo 1
        cat("Capina química ou coroamento + Recuperação solo exposto. \n")
      } else {
        # alternativa solo 2
        cat("Capina química ou coroamento. \n")
      }
    } else {
      # alternativa gramínea 2
      if (solo_exp >= 1000) {
        # alternativa solo 1
        cat("Recuperação solo exposto. \n")
      } else {
        # alternativa solo 2
        cat("Isolamento. \n")
      }
    }
  } else {
    # alternativa copa 3
    if (cob_gram >= 35) {
      # alternativa gramínea 1
      if (solo_exp >= 1000) {
        # alternativa solo 1
        cat("Adensamento + Capina química ou coroamento + Recuperação solo exposto. \n")
      } else {
        # alternativa solo 2
        cat("Adensamento + Capina química ou coroamento. \n")
      }
    } else {
      # alternativa gramínea 2
      if (solo_exp >= 1000) {
        # alternativa solo 1
        cat("Adensamento + Recuperação solo exposto. \n")
      } else {
        # alternativa solo 2
        cat("Adensamento. \n")
      }
    }
  }
}

dec_rec(75, 800, 22) # area 1
dec_rec(70, 2500, 15) # área 2
dec_rec(66, 900, 31) # area 3
dec_rec(61, 2500, 28) # área 4
dec_rec(62, 400, 36) # area 5
dec_rec(70, 2500, 15) # área 6
dec_rec(66, 900, 40) # area 7
dec_rec(61, 2500, 28) # área 8
dec_rec(30, 1800, 45) # area 9
dec_rec(38, 800, 34) # área 10