Tiago, obrigado pela ajuda, deve ter dado um trabalhão rodei o CRM enviado, usei como teste, psolo= c(2,2.69,2.7,2.79,5.39,5.4,5.5,7.99,8,8.01,11.99,12,12.01) argila=rep(60.01,13) Sou novato no R, mas não consegui resposta Garto Hélio Em 20 de maio de 2013 12:41, Tiago de Souza [via R-br] < ml-node+s2285057n4659359h97@n4.nabble.com> escreveu:
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]<http://user/SendEmail.jtp?type=node&node=4659359&i=0> To: [hidden email] <http://user/SendEmail.jtp?type=node&node=4659359&i=1> 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] <http://user/SendEmail.jtp?type=node&node=4659359&i=2> 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] <http://user/SendEmail.jtp?type=node&node=4659359&i=3> 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... To unsubscribe from R-br, click here<http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=3357982&code=aGVsaW9nYWxsb3JvY2hhQGdtYWlsLmNvbXwzMzU3OTgyfC0xMzQ3NTkwMDY4> . NAML<http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=macro_viewer&id=instant_html%21nabble%3Aemail.naml&base=nabble.naml.namespaces.BasicNamespace-nabble.view.web.template.NabbleNamespace-nabble.view.web.template.NodeNamespace&breadcrumbs=notify_subscribers%21nabble%3Aemail.naml-instant_emails%21nabble%3Aemail.naml-send_instant_email%21nabble%3Aemail.naml>
-- Hélio Gallo Rocha IFSULDEMINAS - Câmpus Muzambinho