- R-br - DINF UFPR

Manipulação de String
by Eder David Borges da Silva 13 Dez '12

13 Dez '12

Pessoal, peço ajuda aos mestres em manipulação de String... eu ainda não me acertei com isso. A duvida é simples: x <- c("Eder David Borges da Silva","João Silva","Pedro Augusto Paulo") gostaria de transformar estes nomes em formato "Americano" ficando: Silva, Eder David Borges da Silva, João Paulo, Pedro Augusto. Em síntese pegar oque esta depois do ultimo espaço, e colar com tudo que esta antes dele, separando isso por uma virgula. Já tentei algumas coisa, mas sempre me confundo nas expressões regulares. Alguma dica? Obrigado

6 7

Re: [R-br] Qual pacote que tem o comando scripchart
by Walmes Zeviani 13 Dez '12

13 Dez '12

Infelizmente não sou capaz de te ajudar porque não entendi o seu problema. Forneça código reproduzível que sem dúvida é esclarecedor. Envie suas mensagens para lista de discussão pois mais pessoas podem colaborar, obter soluções diferentes, ter resposta em menos tempo, tópico ser útil para outras pessoas, ter as mensagens arquivadas para referência futura. À disposição. Walmes. ========================================================================== Walmes Marques Zeviani LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W) Departamento de Estatística - Universidade Federal do Paraná fone: (+55) 41 3361 3573 VoIP: (3361 3600) 1053 1173 e-mail: walmes(a)ufpr.br skype: walmeszeviani twitter: @walmeszeviani homepage: http://www.leg.ufpr.br/~walmes linux user number: 531218 ==========================================================================

1 0

Scatter plot de matriz
by Luciano F. Sgarbi 13 Dez '12

13 Dez '12

Prezados, Estou tentando inserir no "scatter plot de matriz" (veja o conjunto dados de exemplo, abaixo) as linhas de correlação entre as variáveis, entretanto não estou conseguindo de um modo mais direto. Seria para como usar para cada um dos gráficos o seguinte exemplo: #------- z <- lm(dist ~ speed, data = cars) plot(cars) abline(z) # equivalent to abline(reg = z) or abline(coef = coef(z)) #--------- Entretanto eu preciso colocar uma reta para cada plot abaixo #DADOS DE EXEMPLO var_1<-c(0.492077114759013 , 0.836016362765804 , 0.481298430124298 , 0.386469675228 , 0.777098514838144 , 0.617958343820646 , 0.219213913194835 , 0.678557483945042 , 0.423462828854099 , 0.829378235153854 , 0.806068887002766 , 0.337134317029268 , 0.661742311669514 , 0.619118098868057 , 0.788589890813455 , 0.279048688709736 , 0.820936637930572 , 0.247459845617414 , 0.752754796063527 , 0.934190914966166) var_2<-c(0.658414233683847 , 0.605210445823305 , 0.801341124716519 , 1.011018222403 , 0.572025150910094 , 0.836177895660953 , 1.03193629108894 , 0.656809315729027 , 0.949461899587905 , 0.553121786467357 , 0.817865236941146 , 0.925669452041572 , 0.578475899228501 , 0.476615221718288 , 0.571342170684858 , 0.867686931852481 , 0.615533868096807 , 0.926396173911956 , 0.667834629397337 , 0.65446214987638) var_3<-c(0.805190744576976 , 0.00357919884845614 , 0.296429808018729 , 0.147386643337086 , 0.224931408418342 , 0.967352513456717 , 0.88843358354643 , 0.991240894189104 , 0.906759183388203 , 0.635862796101719 , 0.90428285067901 , 0.755293083842844 , 0.484490071190521 , 0.0830997943412513 , 0.66727612237446 , 0.314308791654184 , 0.478725346503779 , 0.885625332361087 , 0.567443900275975 , 0.175529750995338) var_4<-c(1.51875793231285 , 2.08332774568708 , 1.85743044603302 , 1.94252530517918 , 1.70102115019736 , 1.4099218798547 , 1.37410255920602 , 1.63332942855045 , 1.59918963127413 , 1.54217901497363 , 1.39090041665641 , 1.56455567202422 , 1.70518441073333 , 1.96772731408659 , 1.76799247833419 , 1.85562083102216 , 1.81231983166867 , 1.58934006350458 , 1.77421167457209 , 2.01928129901513) data<-data.frame(var_1,var_2,var_3,var_4) plot(data,pch=16) Certo de vossa atenção, Atenciosamente, Luciano -- Luciano F. Sgarbi Mestrando em Ecologia e Evolução - UFG Laboratório de Ecologia de Insetos Cel. (62)8174-2262 Lab. (62)3521-1732

2 2

Guardar objetos dentro de uma função
by Leandro Marino 13 Dez '12

13 Dez '12

Caros, boa tarde. Gostaria de tirar um dúvida. Estou preparando uma função básica e ela tem 3 objetos distintos de saída sendo um deles o resumo para o usuário e outros a informação linha por linha do arquivo de dados de entrada. O que gostaria de fazer é colocar estes dois últimos objetos escondidos na função de tal forma que quando o usuário rodasse só seria apresentado o resumo. Seria algo equivalente ao que o lm() faz. Se rodo o lm() só aparece o resumo, mas posso extrair os resíduos com o comando lm()$residuals . y <- rnorm(100) x <- rbinom(100,10,prob=.2) obj <- lm(y~x) names(obj) []s, Leandro

4 3

respostas
by Gilbert Queiroz 13 Dez '12

13 Dez '12

Só queria saber pq minhas respostas nunca vão p/ lista...

3 2

Dúvida strsplit
by Leandro Marino 13 Dez '12

13 Dez '12

Caros colegas, estou com a seguinte situação: vec <- c("001011001110010110000011010100", "101111111011100111110101111101", "101111111111111110111111111101", "111001100010111000100000101010", "100011110011000000100000000000", "110111111010110001111111011111", "001000010100010010001010001111", "000011000000000011001001110101", "011111110101111101111111111111", "110010111111101000010001010000") temp <- strsplit(vec,NULL) temp <- do.call(rbind,temp) no entanto, gostaria de transformar as linhas e colunas do temp para integer. Como fazer isto de forma eficiente? poderia transformar no momento do strsplit?! Abraços,

3 5

Lógica Fuzzy
by marcelo claro de souza 13 Dez '12

13 Dez '12

Olá pessoal, Vocês poderiam me sugerir algum material básico sobre construção de modelos utilizando lógica Fuzzy no R ou um exemplo comentado passo a passo. Muito obrigado. Marcelo

4 4

Derivar função não linear
by Fernando Antonio de souza 12 Dez '12

12 Dez '12

Caros amigos Estou precisando de uma ajuda que demanda conhecimentos matemáticos maiores que possuo. Procurei alguns professores aqui no departamento mas ninguem sabe como fazer, por isto estou novamente recorrendo a comunidade na esperança de encontrar uma solução. Estou necessitando fazer derivadas de algumas equações, conforme uma metodologia que estou seguindo. Mas não lembro mais como se faz isto. Da última vez o Tiago Marçal me ajudou, mas acontece que surgiu outra. possuo o seguinte modelo: log10(Y) = a-b*exp(-c*t) preciso derivá-la em função do tempo(t). onde Y é o conteúdo de energia em dado tempo (t) Na metodologia que estou seguindo após fazer esta derivada chegou-se ao seguinte modelo d(E)/d(t) = E(t)*0,0737*exp(-0,099643*t) onde E(t) é o conteúdo de energia no tempo(t) Necessito saber como ele fez para chegar nisto?E se possível como se chega! Desde já agradeçoa a atenção

2 10

instalação R studio
by Natalia Martins 12 Dez '12

12 Dez '12

Prezados bom dia, estou tentando instalar o R studio mas no momento da instalaçao ha o pedido de uma senha, algume sabe o porque isso ocorre? Att -- Natália da Silva Martins Bacharel em Estatística - Universidade Estadual de Maringá/ UEM Mestranda em Estatística e Experimentação Agronômica - ESALQ/ USP Contato: (19) 8306-4743

5 5

ajuda ifelse
by Sérgio Henrique almeida da silva ju 12 Dez '12

12 Dez '12

Amigos estou trabalhando com uma lista de doenças por municípios e vou plotar as mesmas em um mapa. Tenho por exemplo Doenças: a,b,c,d,e,d,f, categorizadas com 1.5 (o município possui a doença) e 0.5 (não possui), gostaria de categorizar os municípios, segundo a quantidade de doenças e para isso fiz: Municípios com todas as doenças: banco$todas <- ifelse(banco$a=="1.5" & banco$b=="1.5" & banco$c==1.5 & banco$d=="1.5" & banco$e=="1.5" & banco$f=="1.5"),1.5, 0.5) Municípios com pelo menos uma doença: banco$pelomenosuma <- ifelse(banco$a=="1.5" | banco$b=="1.5" | banco$c==1.5 | banco$d=="1.5" | banco$e=="1.5" | banco$f=="1.5"),1.5, 0.5) a partir dai tenho dificuldade de categorizar os municípios com por exemplo: 2 ou mais doenças, três ou mais doenças e assim por diante, eu tentei algumas coisas, porém não consegui. Como posso faze isso? Abraços -- Sérgio Henrique Almeida da Silva Junior Doutorando em Epidemiologia em Saúde Pública Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ http://lattes.cnpq.br/1611345552843383 Tel: (21) 68463637 / 94429486

5 8