Maio 2012 - R-br - DINF UFPR

Retirar dados de uma função no R
by Ana Lúcia Souza Silva Mateus 29 Mai '12

29 Mai '12

Saudações, Tenho a seguinte dúvida, se algúem poder me responder ficaria grata. Estou trabalhando com a seguinte função no R (stdiagn), apresentada abaixo: *> stdiagn function (pts, stkh, stse, stmc = 0, Dzero = FALSE) { oldpar <- par(mfrow = c(2, 2)) pointmap(as.points(pts)) title("Data map") oprod <- outer(stkh$ks, stkh$kt) st.D <- stkh$kst - oprod st.R <- st.D/(stse) if (!Dzero) { persp(stkh$s, stkh$t, st.D, xlab = "Distance", ylab = "Time", zlab = "D", expand = 0.5, ticktype = "detailed", theta = -30, shade = 0.4, cex = 0.7) title("D plot") } else { persp(stkh$s, stkh$t, st.D/oprod, xlab = "Distance", ylab = "Time", zlab = "Dzero", expand = 0.5, ticktype = "detailed", theta = -30, shade = 0.4, cex = 0.7) title("Dzero plot") } plot(outer(stkh$ks, stkh$kt), st.R, xlab = "K(s)K(t)", ylab = "R") abline(h = 0) title("Residual Plot") if (length(stmc) > 1) { hist(c(stmc$t0, stmc$t), nclass = 50, include.lowest = TRUE, xlab = "Test statistic", main = "") y.75 <- par()$usr[4] * 0.75 y.8 <- par()$usr[4] * 0.8 lines(rep(stmc$t0, 2), c(0, y.75), lwd = 2) text(stmc$t0, y.8, "Data Statistic") title("MC results") } else { plot(c(0, 1), c(0, 1), type = "n", axes = FALSE, xlab = "", ylab = "") ad <- par()$adj par(adj = 0.5) text(0.5, 0.5, "No MC available") par(adj = ad) } par(oldpar) } <environment: namespace:splancs> > * Gostaria de obter os valores de * st.D e st.R . Desde já agradeço pelo auxilio. *

5 8

R com php
by Vinicius Brito Rocha 29 Mai '12

29 Mai '12

Senhores, Estou precisando usar o R como uma engine por trás de um portal em desenvolvido em php. Estou precisando de orientação/material. Alguém já fez algum tipo de integração R + web? abs -- Vinicius Brito Rocha. Estatístico e Atuário, Mestre em Pesquisa Operacional www.aplicademic.blogspot.com http://twitter.com/viniciusbritor "Não se preocupe muito com as suas dificuldades em Matemática, posso assegurar-lhe que as minhas são ainda maiores." - Albert Einstein.

2 1

frequência de vetores
by Márcio Augusto Ferreira Rodrigues 29 Mai '12

29 Mai '12

Prezados, tenho um arquivo da seguinte forma z10z11z12z13z20z21z22z23z30z31z32z33 000100100010 010000010010 010000010001 001000100001 010000100100 010000010010 010001000100 cada linha eu considero como um vetor e gostaria de saber a frequência de cada um, pois tenho 1000 linhas e sei que so possui 64 tipos diferentes de vetores. Assim gostaria de saber a frenquência de cada um dos 64 vetores diferentes que tenho . Grato, Márcio

5 6

Survey
by Emerson Cotta Bodevan 28 Mai '12

28 Mai '12

Prezados, preciso criar uma máscara de um questionário para aplicá-lo numa comunidade. Aquela máscara que o Epi-info nos permite criar. O R tem recurso para isso? Senão, alguém teria indicação de um outro software que não seja o Epi-info? É que gostaria de algum que fosse multiplataforma ou que rodasse pelo menos no LINUX Ubuntu. Agradeço qualquer ajuda, -- *Emerson*

6 6

Fwd: Ajuda com vetores
by Fernando Colugnati 28 Mai '12

28 Mai '12

Prezados, tenho a seguinte matriz de estrutura Id a1 p1 p2 p3 p4 p5 p6 p7 1 2 3 4 0 0 0 0 0 1 6 3 0 0 0 0 0 0 2 7 5 3 2 0 0 0 0 2 3 6 0 0 0 0 0 0 Preciso de uma matriz a partir desta da seguinte forma: Id a1 p 1 2 3 1 2 4 1 6 3 2 7 5 2 7 3 2 7 2 2 3 6 Ou seja, preciso gerar quantas linhas forem diferentes de 0 os p1 - p7. É possível fazendo via um apply, sem loop? Abs e obrigado -- Fernando A.B. Colugnati -- Fernando A.B. Colugnati

2 2

Formatar grafico hexbin
by Bernardo Rangel Tura 28 Mai '12

28 Mai '12

Boa tarde a todos! Estou precisando de uma ajuda na formatação de um gráfico do tipo de hexbin. O problema é o seguinte o eixo Y tem valores muito altos na faixa de 2e8, 4e8, 6e8 etc Eu gostaria de substituir os dizeres para '200 Mi', '400 Mi', '600 Mi' etc para facilitar estou enviando um arquivo 'cmd.csv' que contém apenas 500 observações - o arquivo original tem mais de 100.000 mesmo assim vai ser suficiente O código que estou usando é: rm(list=ls(all=TRUE)) require(hexbin) base<-read.csv('cmd.csv') cores.ATS <- colorRampPalette(c('#2400D8','#181CF7','#2857FF','#3D87FF','#56B0FF','#75D3FF','#99EAFF','#BCF9FF','#EAFFFF','#FFFFEA','#FFF1BC','#FFD699','#FFAC75','#FF7856','#FF3D3D','#F72735','#D8152F','#A50021')) bin<-with(base,hexbin(Angio.sim, delta_modelos, xbins=25)) p <- plot(bin,colramp=cores.ATS,legend=.7,xlab='',ylab='') Alguém pode ajudar ? []s Tura

1 0

Re: [R-br] Digest R-br, volume 15, assunto 34
by Ary Casado 28 Mai '12

28 Mai '12

O meu dá o mesmo resultado. Alguma coisa nebulosa nessa PA. Ary ________________________________ De: "r-br-request(a)listas.c3sl.ufpr.br" <r-br-request(a)listas.c3sl.ufpr.br> Para: r-br(a)listas.c3sl.ufpr.br Enviadas: Domingo, 27 de Maio de 2012 12:00 Assunto: Digest R-br, volume 15, assunto 34 Enviar submissões para a lista de discussão R-br para r-br(a)listas.c3sl.ufpr.br Para se cadastrar ou descadastrar via WWW, visite o endereço https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br ou, via email, envie uma mensagem com a palavra 'help' no assunto ou corpo da mensagem para r-br-request(a)listas.c3sl.ufpr.br Você poderá entrar em contato com a pessoa que gerencia a lista pelo endereço r-br-owner(a)listas.c3sl.ufpr.br Quando responder, por favor edite sua linha Assunto assim ela será mais específica que "Re: Contents of R-br digest..." Tópicos de Hoje: 1. Re: problemas com função "seq" (Alexandre Ribeiro Leichsenring) 2. Re: problemas com função "seq" (Fred) 3. Re: problemas com função "seq" (Diego Leal) 4. Re: problemas com função "seq" (Cesar Rabak) 5. Re: problemas com função "seq" (Paulo Justiniano) ---------------------------------------------------------------------- Message: 1 Date: Sat, 26 May 2012 14:18:18 -0300 From: Alexandre Ribeiro Leichsenring <aleleich(a)uol.com.br> To: r-br(a)listas.c3sl.ufpr.br Subject: Re: [R-br] problemas com função "seq" Message-ID: <CAOZy71uykKy-bTatqiA97eLDWGFjcB_5DejrXObxM9G6GqP1mw(a)mail.gmail.com> Content-Type: text/plain; charset="iso-8859-1" Ivan, Talvez não tenha ficado claro. O problema não é de formatação: veja que onde deveria dar 0 (zero), a minha sequência está retornando 1.110223e-16! > seq(-.6,.8,by=.2)[1] -6.000000e-01 -4.000000e-01 -2.000000e-01 1.110223e-16 2.000000e-01 [6] 4.000000e-01 6.000000e-01 8.000000e-01 Aliás, formatando a sequência com scientific = FALSE, veja que resultado "curioso": > format(seq(-.6,.8,by=.2),scientific=FALSE)[1] "-0.5999999999999999777955" "-0.3999999999999999666933" [3] "-0.1999999999999999555911" " 0.0000000000000001110223" [5] " 0.2000000000000000666134" " 0.4000000000000000222045" [7] " 0.6000000000000001998401" " 0.8000000000000000444089" Imagino que isso seja um problema de alguma configuração do meu sistema/máquina. Ou alguém tem o mesmo problema? Saudações, Alexandre From: Ivan Bezerra Allaman <ivanalaman(a)yahoo.com.br> To: R Brasil <r-br(a)listas.c3sl.ufpr.br> Subject: Re: [R-br] problemas com função "seq" Message-ID: <1337965493.37364.YahooMailNeo(a)web161806.mail.bf1.yahoo.com> Content-Type: text/plain; charset="iso-8859-1" Não há nada de errado! Para retornar exatamente o que você quer existem várias opções. Dentre elas, Não há nada de errado! Para retornar exatamente o que você quer existem várias opções. Dentre elas, a <- seq(-.6,.8,by=.2) round(a,2) format(a,scientific=TRUE) format(a,scientific=FALSE) format(a,digits=3,scientific=FALSE) formatC(a,format='f',digits=2,drop0trailing=TRUE) formatC(a,format='f',decimal.mark=',') as.numeric(formatC(a,format='f',decimal.mark='.')) (S,f,P) Allaman -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20120526/5439bb51/atta…> ------------------------------ Message: 2 Date: Sat, 26 May 2012 17:38:25 -0300 From: Fred <eng.fredericoalvarez(a)gmail.com> To: r-br(a)listas.c3sl.ufpr.br Subject: Re: [R-br] problemas com função "seq" Message-ID: <4FC13F41.6030008(a)gmail.com> Content-Type: text/plain; charset="iso-8859-1"; Format="flowed" Boa noite. Aparentemente isso está normal, no meu R também acontece isso. Lembre-se que os computadores trabalham em base binária, não decimal. Por esse motivo, é impossível representar números reais com 100% de exatidão. Saudações. Em 26-05-2012 14:18, Alexandre Ribeiro Leichsenring escreveu: > Ivan, > > Talvez não tenha ficado claro. O problema não é de formatação: veja > que onde deveria dar 0 (zero), a minha sequência está retornando > 1.110223e-16! > > > seq(-.6,.8,by=.2) > [1] -6.000000e-01 -4.000000e-01 -2.000000e-01 1.110223e-16 2.000000e-01 > [6] 4.000000e-01 6.000000e-01 8.000000e-01 > > Aliás, formatando a sequência com scientific = FALSE, veja que > resultado "curioso": > > > format(seq(-.6,.8,by=.2),scientific=FALSE) > [1] "-0.5999999999999999777955" "-0.3999999999999999666933" > [3] "-0.1999999999999999555911" " 0.0000000000000001110223" > [5] " 0.2000000000000000666134" " 0.4000000000000000222045" > [7] " 0.6000000000000001998401" " 0.8000000000000000444089" > > Imagino que isso seja um problema de alguma configuração do meu > sistema/máquina. Ou alguém tem o mesmo problema? > > Saudações, > > Alexandre > > > > > > > > From: Ivan Bezerra Allaman <ivanalaman(a)yahoo.com.br > <mailto:ivanalaman@yahoo.com.br>> > To: R Brasil <r-br(a)listas.c3sl.ufpr.br <mailto:r-br@listas.c3sl.ufpr.br>> > Subject: Re: [R-br] problemas com função "seq" > Message-ID: > <1337965493.37364.YahooMailNeo(a)web161806.mail.bf1.yahoo.com > <mailto:1337965493.37364.YahooMailNeo@web161806.mail.bf1.yahoo.com>> > Content-Type: text/plain; charset="iso-8859-1" > > Não há nada de errado! Para retornar exatamente o que você quer > existem várias opções. Dentre elas, > > Não há nada de errado! Para retornar exatamente o que você quer > existem várias opções. Dentre elas, > > a <- seq(-.6,.8,by=.2) > round(a,2) > format(a,scientific=TRUE) > format(a,scientific=FALSE) > format(a,digits=3,scientific=FALSE) > formatC(a,format='f',digits=2,drop0trailing=TRUE) > formatC(a,format='f',decimal.mark=',') > as.numeric(formatC(a,format='f',decimal.mark='.')) > > (S,f,P) > Allaman > > > _______________________________________________ > R-br mailing list > R-br(a)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. -- Frederico Steinmetz Alvarez Engenheiro Eletricista e de Produção Mestrando em Engenharia Eólica Laboratório de Fluidos Grupo de Mecânica dos Fluidos Ambientais da UFPE Home page ( www.ufpe.br/mecfluamb/ ) Universidade Federal de Pernambuco - UFPE Departamento de Engenharia Mecânica Fones: (48) 9143-5141 (VIVO) (81) 8885-1105 (OI) Laboratório Didático Pedagógico - Mecânica dos Flúidos LDP-FLU Universidade Federal de Pernambuco - UFPE -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20120526/72c8181c/atta…> ------------------------------ Message: 3 Date: Sat, 26 May 2012 17:39:45 -0300 From: Diego Leal <diego.leight(a)gmail.com> To: r-br(a)listas.c3sl.ufpr.br Subject: Re: [R-br] problemas com função "seq" Message-ID: <4FC13F91.6050805(a)gmail.com> Content-Type: text/plain; charset="iso-8859-1"; Format="flowed" Galera, como faço pra parar de receber emails do grupo. Apenas parar de receber emails, quero continuar fazendo parte do grupo... Att, Diego Leal Togni Em 26/05/2012 17:38, Fred escreveu: > Boa noite. > > Aparentemente isso está normal, no meu R também acontece isso. > Lembre-se que os computadores trabalham em base binária, não decimal. > Por esse motivo, é impossível representar números reais com 100% de > exatidão. > > Saudações. > > Em 26-05-2012 14:18, Alexandre Ribeiro Leichsenring escreveu: >> Ivan, >> >> Talvez não tenha ficado claro. O problema não é de formatação: veja >> que onde deveria dar 0 (zero), a minha sequência está retornando >> 1.110223e-16! >> >> > seq(-.6,.8,by=.2) >> [1] -6.000000e-01 -4.000000e-01 -2.000000e-01 1.110223e-16 2.000000e-01 >> [6] 4.000000e-01 6.000000e-01 8.000000e-01 >> >> Aliás, formatando a sequência com scientific = FALSE, veja que >> resultado "curioso": >> >> > format(seq(-.6,.8,by=.2),scientific=FALSE) >> [1] "-0.5999999999999999777955" "-0.3999999999999999666933" >> [3] "-0.1999999999999999555911" " 0.0000000000000001110223" >> [5] " 0.2000000000000000666134" " 0.4000000000000000222045" >> [7] " 0.6000000000000001998401" " 0.8000000000000000444089" >> >> Imagino que isso seja um problema de alguma configuração do meu >> sistema/máquina. Ou alguém tem o mesmo problema? >> >> Saudações, >> >> Alexandre >> >> >> >> >> >> >> >> From: Ivan Bezerra Allaman <ivanalaman(a)yahoo.com.br >> <mailto:ivanalaman@yahoo.com.br>> >> To: R Brasil <r-br(a)listas.c3sl.ufpr.br <mailto:r-br@listas.c3sl.ufpr.br>> >> Subject: Re: [R-br] problemas com função "seq" >> Message-ID: >> <1337965493.37364.YahooMailNeo(a)web161806.mail.bf1.yahoo.com >> <mailto:1337965493.37364.YahooMailNeo@web161806.mail.bf1.yahoo.com>> >> Content-Type: text/plain; charset="iso-8859-1" >> >> Não há nada de errado! Para retornar exatamente o que você quer >> existem várias opções. Dentre elas, >> >> Não há nada de errado! Para retornar exatamente o que você quer >> existem várias opções. Dentre elas, >> >> a <- seq(-.6,.8,by=.2) >> round(a,2) >> format(a,scientific=TRUE) >> format(a,scientific=FALSE) >> format(a,digits=3,scientific=FALSE) >> formatC(a,format='f',digits=2,drop0trailing=TRUE) >> formatC(a,format='f',decimal.mark=',') >> as.numeric(formatC(a,format='f',decimal.mark='.')) >> >> (S,f,P) >> Allaman >> >> >> _______________________________________________ >> R-br mailing list >> R-br(a)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. > > > -- > Frederico Steinmetz Alvarez Engenheiro Eletricista e de Produção > Mestrando em Engenharia Eólica Laboratório de Fluidos Grupo de > Mecânica dos Fluidos Ambientais da UFPE Home page ( > www.ufpe.br/mecfluamb/ ) Universidade Federal de Pernambuco - UFPE > Departamento de Engenharia Mecânica Fones: (48) 9143-5141 (VIVO) (81) > 8885-1105 (OI) Laboratório Didático Pedagógico - Mecânica dos Flúidos > LDP-FLU Universidade Federal de Pernambuco - UFPE > > > _______________________________________________ > R-br mailing list > R-br(a)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/20120526/c6298e04/atta…> ------------------------------ Message: 4 Date: Sat, 26 May 2012 20:47:02 -0300 From: Cesar Rabak <cesar.rabak(a)gmail.com> To: r-br(a)listas.c3sl.ufpr.br Subject: Re: [R-br] problemas com função "seq" Message-ID: <4FC16B76.8010800(a)gmail.com> Content-Type: text/plain; charset=ISO-8859-1; format=flowed Em 26/5/2012 14:18, Alexandre Ribeiro Leichsenring escreveu: > Ivan, > > Talvez não tenha ficado claro. O problema não é de formatação: veja que > onde deveria dar 0 (zero), a minha sequência está retornando 1.110223e-16! > >> seq(-.6,.8,by=.2) > [1] -6.000000e-01 -4.000000e-01 -2.000000e-01 1.110223e-16 2.000000e-01 > > [6] 4.000000e-01 6.000000e-01 8.000000e-01 > Alexandre, Talvez a gente não esteja sendo claro: o seu problema é de [falta] de entendimento mais basal: Por favor, leia o FAQ 7.31 e os documentos referenciados nele. []s -- Cesar Rabak GNU/Linux User 52247. Get counted: http://counter.li.org/ ------------------------------ Message: 5 Date: Sat, 26 May 2012 21:41:22 -0300 (BRT) From: Paulo Justiniano <paulojus(a)leg.ufpr.br> To: r-br(a)listas.c3sl.ufpr.br Subject: Re: [R-br] problemas com função "seq" Message-ID: <alpine.DEB.2.00.1205262140350.19183(a)pataxo.est.ufpr.br> Content-Type: text/plain; charset="iso-8859-1"; Format="flowed" Vá na pagina da lista com sue usuário cadansgtrado onde voce pode definir as confiugurações de recebimento (e interrupcao se desejado) On Sat, 26 May 2012, Diego Leal wrote: > Galera, > como faço pra parar de receber emails do grupo. Apenas parar de receber emails, quero continuar fazendo parte do > grupo... > > Att, > Diego Leal Togni > > Em 26/05/2012 17:38, Fred escreveu: > Boa noite. > > Aparentemente isso está normal, no meu R também acontece isso. Lembre-se que os computadores trabalham > em base binária, não decimal. Por esse motivo, é impossível representar números reais com 100% de > exatidão. > > Saudações. > > Em 26-05-2012 14:18, Alexandre Ribeiro Leichsenring escreveu: > Ivan, > > Talvez não tenha ficado claro. O problema não é de formatação: veja que onde deveria dar 0 (zero), a > minha sequência está retornando 1.110223e-16! > > > seq(-.6,.8,by=.2) > [1] -6.000000e-01 -4.000000e-01 -2.000000e-01 1.110223e-16 2.000000e-01 > [6] 4.000000e-01 6.000000e-01 8.000000e-01 > > Aliás, formatando a sequência com scientific = FALSE, veja que resultado "curioso": > > > format(seq(-.6,.8,by=.2),scientific=FALSE) > [1] "-0.5999999999999999777955" "-0.3999999999999999666933" > [3] "-0.1999999999999999555911" " 0.0000000000000001110223" > [5] " 0.2000000000000000666134" " 0.4000000000000000222045" > [7] " 0.6000000000000001998401" " 0.8000000000000000444089" > > Imagino que isso seja um problema de alguma configuração do meu sistema/máquina. Ou alguém tem o mesmo > problema? > > Saudações, > > Alexandre > > > > > > > > From: Ivan Bezerra Allaman <ivanalaman(a)yahoo.com.br> > To: R Brasil <r-br(a)listas.c3sl.ufpr.br> > Subject: Re: [R-br] problemas com função "seq" > Message-ID: > <1337965493.37364.YahooMailNeo(a)web161806.mail.bf1.yahoo.com> > Content-Type: text/plain; charset="iso-8859-1" > > Não há nada de errado! Para retornar exatamente o que você quer existem várias opções. Dentre elas, > > Não há nada de errado! Para retornar exatamente o que você quer existem várias opções. Dentre elas, > > a <- seq(-.6,.8,by=.2) > round(a,2) > format(a,scientific=TRUE) > format(a,scientific=FALSE) > format(a,digits=3,scientific=FALSE) > formatC(a,format='f',digits=2,drop0trailing=TRUE) > formatC(a,format='f',decimal.mark=',') > as.numeric(formatC(a,format='f',decimal.mark='.')) > > (S,f,P) > Allaman > > > _______________________________________________ > R-br mailing list > R-br(a)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. > > > > -- > Frederico Steinmetz Alvarez Engenheiro Eletricista e de Produção Mestrando em Engenharia Eólica Laboratório de > Fluidos Grupo de Mecânica dos Fluidos Ambientais da UFPE Home page ( www.ufpe.br/mecfluamb/ ) Universidade > Federal de Pernambuco - UFPE Departamento de Engenharia Mecânica Fones: (48) 9143-5141 (VIVO) (81) 8885-1105 > (OI) Laboratório Didático Pedagógico - Mecânica dos Flúidos LDP-FLU Universidade Federal de Pernambuco - UFPE > > > _______________________________________________ > R-br mailing list > R-br(a)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. > > > > ------------------------------ _______________________________________________ R-br mailing list R-br(a)listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Fim da Digest R-br, volume 15, assunto 34 *****************************************

1 0

problemas com função "seq"
by Alexandre Ribeiro Leichsenring 28 Mai '12

28 Mai '12

Caros, Volta e meia me deparo com um comportamento estranho da função "seq", compartilho agora um exemplo: > seq(-.6,.8,by=.2) ao invés de resultar nisso: -.6 -.4 -.2 0 .2 .4 .6 .8 resulta nisso: -6.000000e-01 -4.000000e-01 -2.000000e-01 1.110223e-16 2.000000e-01 4.000000e-01 6.000000e-01 8.000000e-01 ! Outras sequências ao redor de zero resultam no mesmo "erro" (pelo menos na minha máquina)... que tipo de problema será esse? Obrigado, Alexandre

4 3

Re: [R-br] problemas com função "seq"
by Alexandre Ribeiro Leichsenring 27 Mai '12

27 Mai '12

Ivan, Talvez não tenha ficado claro. O problema não é de formatação: veja que onde deveria dar 0 (zero), a minha sequência está retornando 1.110223e-16! > seq(-.6,.8,by=.2)[1] -6.000000e-01 -4.000000e-01 -2.000000e-01 1.110223e-16 2.000000e-01 [6] 4.000000e-01 6.000000e-01 8.000000e-01 Aliás, formatando a sequência com scientific = FALSE, veja que resultado "curioso": > format(seq(-.6,.8,by=.2),scientific=FALSE)[1] "-0.5999999999999999777955" "-0.3999999999999999666933" [3] "-0.1999999999999999555911" " 0.0000000000000001110223" [5] " 0.2000000000000000666134" " 0.4000000000000000222045" [7] " 0.6000000000000001998401" " 0.8000000000000000444089" Imagino que isso seja um problema de alguma configuração do meu sistema/máquina. Ou alguém tem o mesmo problema? Saudações, Alexandre From: Ivan Bezerra Allaman <ivanalaman(a)yahoo.com.br> To: R Brasil <r-br(a)listas.c3sl.ufpr.br> Subject: Re: [R-br] problemas com função "seq" Message-ID: <1337965493.37364.YahooMailNeo(a)web161806.mail.bf1.yahoo.com> Content-Type: text/plain; charset="iso-8859-1" Não há nada de errado! Para retornar exatamente o que você quer existem várias opções. Dentre elas, Não há nada de errado! Para retornar exatamente o que você quer existem várias opções. Dentre elas, a <- seq(-.6,.8,by=.2) round(a,2) format(a,scientific=TRUE) format(a,scientific=FALSE) format(a,digits=3,scientific=FALSE) formatC(a,format='f',digits=2,drop0trailing=TRUE) formatC(a,format='f',decimal.mark=',') as.numeric(formatC(a,format='f',decimal.mark='.')) (S,f,P) Allaman

5 4

Re: [R-br] problemas com função "seq"
by Ivan Bezerra Allaman 25 Mai '12

25 Mai '12

Não há nada de errado! Para retornar exatamente o que você quer existem várias opções. Dentre elas, a <- seq(-.6,.8,by=.2) round(a,2) format(a,scientific=TRUE) format(a,scientific=FALSE) format(a,digits=3,scientific=FALSE) formatC(a,format='f',digits=2,drop0trailing=TRUE) formatC(a,format='f',decimal.mark=',') as.numeric(formatC(a,format='f',decimal.mark='.')) (S,f,P) Allaman \begin{signature} <<>>= Prof. Dr. Ivan Bezerra Allaman Universidade Estadual de Santa Cruz Departamento de Ciências Exatas e Tecnológicas Ilhéus/BA - Brasil Fone: +55 73 3680-5596 E-mail: ivanalaman@yahoo.com.br/ivanalaman@gmail.com @ \end{signature}

1 0