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