[R-br] Classificar fosforo e textura do solo

[Tiago Souza Marçal]

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 em gmail.com
To: r-br em 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 em 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. 		 	   		  
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130520/87188034/attachment.html>