Re: [R-br] Classificar fosforo e textura do solo

20 Mai 2013

      Hélio tente o seguinte comandos: 

recP<-function(argila,Psolo){
t<-numeric(0)
  if(100>=argila && argila>=60 && 2.7>=Psolo && Psolo>=0){
  t<-c(t,"Multo Baixo")
}
  if(100>=argila && argila>=60 && 5.4>=Psolo && Psolo>2.7){
  t<-c(t,"Baixo")
}
  if(100>=argila && argila>=60 && 8>=Psolo && Psolo>5.4){
  t<-c(t,"Médio")
}
  if(100>=argila && argila>=60 && 12>=Psolo && Psolo>8){
  t<-c(t,"Bom")
}
  if(100>=argila && argila>=60 && Psolo>12){
  t<-c(t,"Muito Bom")
}
  if(60>argila && argila>=35 && 4>=Psolo && Psolo>=0){
  t<-c(t,"Multo Baixo")
}
  if(60>argila && argila>=35 && 8>=Psolo && Psolo>4){
  t<-c(t,"Baixo")
}
  if(60>argila && argila>=35 && 12>=Psolo && Psolo>8){
  t<-c(t,"Médio")
}
  if(60>argila && argila>=35 && 18>=Psolo && Psolo>12){
  t<-c(t,"Bom")
}
  if(60>argila && argila>=35 && Psolo>18){
  t<-c(t,"Muito Bom")
}
  if(35>argila && argila>=15 && 6.6>=Psolo && Psolo>=0){
  t<-c(t,"Multo Baixo")
}
  if(35>argila && argila>=15 && 12>=Psolo && Psolo>6.6){
  t<-c(t,"Baixo")
}
  if(35>argila && argila>=15 && 20>=Psolo && Psolo>12){
  t<-c(t,"Médio")
}
  if(35>argila && argila>=15 && 30>=Psolo && Psolo>20){
  t<-c(t,"Bom")
}
  if(35>argila && argila>=15 && Psolo>30){
  t<-c(t,"Muito Bom")
}
  if(15>argila && argila>=0 && 10>=Psolo && Psolo>=0){
  t<-c(t,"Multo Baixo")
}
 if(15>argila && argila>=0 && 20>=Psolo && Psolo>10){
  t<-c(t,"Baixo")
}
  if(15>argila && argila>=0 && 30>=Psolo && Psolo>20){
  t<-c(t,"Médio")
}
if(15>argila && argila>=0 && 45>=Psolo && Psolo>30){
  t<-c(t,"Bom")
}
if(15>argila && argila>=0 && Psolo>45){
  t<-c(t,"Muito Bom")
}
return(t)
} 

De acordo com a classificação gerada pela função recP() você pode conectar estes comandos a outros de forma que ele retorne a quantidade de fertilizante a ser utilizada para uma determinada cultura.

Att.

Tiago.

#############################################################################################################

Graduando em Agronomia pelo CCA-UFES

Bolsista da FAPES na área de Genética e Melhoramento de plantas

############################################################################################################# 

Date: Sat, 18 May 2013 09:28:23 -0300
From: heliogallorocha@gmail.com
To: r-br@listas.c3sl.ufpr.br
Subject: [R-br] Classificar fosforo e textura do solo

Bom dia a todos,
Para recomendar adubação fosfatada é necessário classificar a quantidade de fósforo da análise em conjunto a textura do solo.

   Tabela da quinta aproximação 

  Nível de Fósforo mg/dm3

  Argila%

  muito
  baixo

  Baixo

  Médio

  Bom

  Muito Bom

  60-100

  <2.7
  (menor e igual)

  2.8-5.4

  5.5-8

  8.1-12
...
12
35-60

  <4

  4.1-8

  8.1-12

  12.1-18
...
18
15-35

  <6.6

  6.7-12

  12.1-20

  20.1-30
...
30
0-15

  <10

  10.1-20

  20.1-30

  30.1-45
...
45
Fiz o seguinte:
solo=c(1:50)                       # resultado da análise do soloargila=c(60,35,15,0)            # teor de argilap1=c(0,2.7,5.4,8,12)             # fósforo com + de 60% de argilap2=c(0,4,8,12,18)                # fósforo com 35 a  60% de argila
p3=c(0,6.6,12,20,30)            # fósforo com 15 a  35% de argilap4=c(0,10,20,30,45)            # fósforo com < 15% de argilares=c("Muito.Baixo","Baixo", "Medio", "Alto", "Muito.alto")

Assim se o resultado de P é 3.5 :60% de arg, seria classificado como Baixo35% de arg. seria classificado como muito baixo
andei dando uma olhada na solução do post 
Uso do ifelse
A saida desta função seria casada com uma recomendação,

Grato a todos
-- 
Hélio Gallo Rocha
IFSULDEMINAS - Câmpus Muzambinho

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel.

Re: [R-br] Classificar fosforo e textura do solo

Tiago Souza Marçal