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: [hidden email]
To: [hidden email]
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 solo

argila=c(60,35,15,0)            # teor de argila

p1=c(0,2.7,5.4,8,12)             # fósforo com + de 60% de argila

p2=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 argila

p4=c(0,10,20,30,45)            # fósforo com < 15% de argila

res=c("Muito.Baixo","Baixo", "Medio", "Alto", "Muito.alto")

Assim se o resultado de P é 3.5 :

60% de arg, seria classificado como Baixo

35% 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 [hidden email] 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.

_______________________________________________
R-br mailing list
[hidden email]
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.

---

If you reply to this email, your message will be added to the discussion below:

http://r-br.2285057.n4.nabble.com/R-br-Classificar-fosforo-e-textura-do-solo-tp4659355p4659359.html

To unsubscribe from R-br, click here.
NAML