[R-br] Classificar fosforo e textura do solo
Hélio Gallo Rocha
heliogallorocha em gmail.com
Terça Maio 21 21:21:48 BRT 2013
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 em 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-tp4659355p4659359.html
> 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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130521/ebfd7a24/attachment.html>
Mais detalhes sobre a lista de discussão R-br