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 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 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.