- R-br - DINF UFPR

gráfico de medianas
by Diego Bilski 03 Out '14

03 Out '14

Caros, tenho um resultado da seguinte forma: structure(list(phi = c(0.15, 0.164, 0.042, 0.033, 0.161, 0.027, 0.01, 0.01, 0.208, 0.093), lambda = c(0.648, 0.654, 0.726, 0.728, 0.64, 0.696, 0.756, 0.748, 0.605, 0.678), gamma = c(0.202, 0.183, 0.232, 0.239, 0.198, 0.277, 0.234, 0.242, 0.186, 0.228), phi = c(0.08, 0.022, 0.081, 0.138, 0.139, 0.01, 0.01, 0.01, 0.135, 0.043), lambda = c(0.714, 0.79, 0.689, 0.665, 0.644, 0.75, 0.753, 0.762, 0.68, 0.714), gamma = c(0.206, 0.189, 0.23, 0.197, 0.216, 0.24, 0.237, 0.228, 0.184, 0.242)), .Names = c("phi", "lambda", "gamma", "phi", "lambda", "gamma"), row.names = c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10"), class = "data.frame") onde lambda, phi e gamma são parâmetros estimados para 5 variáveis, e a soma deles é um para todas as variáveis. Alguém pode me sugerir um gráfico que represente a mediana e intervalos para as 5 variáveis na mesma figura? Pensei num boxplot, mas queria ressaltar a ideia de que os 3 parâmetros somam um para cada variável, e fica bem poluído com 15 caixas. Um stacked barplot representa bem, mas fica muito feio com as barras de erro. obrigado Diego

2 1

função de interpolação
by Fernando Souza 03 Out '14

03 Out '14

Caros amigos Estou necessitando faze a interpolação de algumas pesagens tomadas em diferentes animais. Eu preciso da interpolação feita para cada animal separadamente e o intervalo entre medidas não é fixo. Eu estou utilizando a função approx() no entanto devido ao número de animais utilizados fica muito dispendioso fazer fazer esta interpolação uma a uma. Por isso gostaria de uma função onde um pudesse automatizar este procedimento. set.seed(20) dados<-data.frame(ANIMAL=factor(rep(1:5,each=4)),Peso=rnorm(20,30,4), data=sample(seq(as.Date("01/04/2009",'%d/%m/%Y'), as.Date("30/04/2009",'%d/%m/%Y'),length.out=30),20),day=1:20) Estou tentando fazer uma função que estime os pontos da interpolação agrupados por Animal . Entretanto tenho pouco conhecimento em programação para fazer isso. Tenho tentado fazer isso, sem muito sucesso. Alguém poderia me ajudar? Abraços aprendendo<-function(dados){ niveis<-levels(dados$ANIMAL) dia<-diff(dados$data) for(i in min(niveis):max(niveis)){ b<- approx(dados[dados$ANIMAL==as.numeric(i),]$Peso,dados[dados$ANIMAL==as.numeric(i),]$data),n=15) } return(b) }

3 10

Ajuda com apply
by Wagner Bonat 02 Out '14

02 Out '14

Caros o seguinte tenho um pequeno problema para manipular arrays dentro de um apply olhe o seguinte exemplo. Eu tenho este pequeno array my.array <- array(1:18, dim = c(3,3,2)) Quero aplicar esta função a cada elemento do array e obter outro array do mesmo tamanho igualzinho mas com informacao diferente.Veja so ID.median <- function(x, median,n.array){ if(n.array == 1){ saida <- ifelse(x < median, 0, 1)} if(n.array == 2){ saida <- ifelse(x < median, 10,20)} return(saida) } É claro que aqui só tem dois arrays, mas o fato relevante é que a minha depende de qual o número de array que eu estou. Agora quero usar o apply pra aplicar minha função a cada componente do meu array. apply(my.array, 1:3, ID.median, median = 10, n.arrray = ???) Como fazer isso ? alguma outra idéia ?? Valeu -- Wagner Hugo Bonat LEG - Laboratório de Estatística e Geoinformação UFPR - Universidade Federal do Paraná

2 1

Solicitação de texto
by Daniel Marcelino 02 Out '14

02 Out '14

Alguém da lista tem o texto abaixo? Não consigo encontra-lo de jeito nenhum. Deville, Jean-Claude (1991) A Theory of Quota Surveys. Suruey Methodology. Vol. 17, N° 2. pp. 163-181. Obrigado, Daniel

1 0

Parte de um número
by Vanessa Felix 02 Out '14

02 Out '14

Pessoal, Alguém pode me ajudar me informando se naquela função read.fwf tem como eu voltar e ler os primeiros dígitos de novo. Por exemplo, eu tenho um dado 20131100001500129856 20131100001500286416 20131100001500356871 20131100001500482267 20131100001500569716 20131100001500621563 20131100001500797165 Eu queria ler do 1-15 e do 5- 6, alguém tem alguma ideia pra ajudar? Eu posso ler do 1-15 e ter um vetor numérico, mas depois não sei extrair dele a quinta e sexta posição. 20131100001500797165 Desde já obrigada, -- ------------------------------------------------------------------------------------------ Vanessa Felix do Nascimento Sergio Graduada em Estatística - ICE/UFJF Mestranda em Saúde Coletiva - IMS/UERJ (32) 8854-4881 / 9142-8428 (21) 97656-3448 -------------------------------------------------------------------------------------------

2 2

[OFF] Oportunidade de Estágio na BM&FBovespa
by Wilson Nascimento De Freitas 02 Out '14

02 Out '14

Pessoal, Estamos com uma vaga para estagiário na BM&FBovespa em modelagem de Pricing na Diretoria de Administração de Risco. Utilizamos R em diversas de nossas análises, de forma que familiaridade com R ou vontade de aprender sejam grandes diferenciais. Segue abaixo a descrição da vaga. Wilson Freitas Oportunidade de Estágio em Modelagem na BM&FBOVESPA A Gerência de Modelagem de Preços da BM&FBovespa procura jovens inteligentes e talentosos para compor o seu time por meio do programa de estágio. Descrição da área A Gerência de Modelagem de Preços desenvolve modelos de apreçamento de derivativos e metodologias para construção de dados de mercado, como curvas de juros, superfícies de volatilidade, dentre outros. Os preços e dados de mercado produzidos por estes modelos e metodologias são utilizados pela bolsa na sua gestão de risco, no cálculo dos valores de liquidação dos contratos e também nos sistemas de negociação, além de serem utilizados por diversas instituições para marcação de seus ativos. A área tem um forte viés de pesquisa quantitativa e incentiva a participação de todos nas soluções dos problemas. Responsabilidades ̶ Atuação conjunta com a equipe de modelagem de preços. ̶ Coleta de informações diárias e intra-diárias para análise de dados e simulações. ̶ Implementação e execução de relatórios de validação de modelos e validação de dados. ̶ Desenvolvimento e apresentação de estudos envolvendo técnicas utilizadas na modelagem de preços. Requisitos necessários ̶ Estar cursando graduação em áreas de ciências exatas: Física, Computação, Matemática, Estatística, Engenharia ou áreas relacionadas. ̶ Gostar de programação, análise de dados e simulação. ̶ Disponibilidade de 30 horas semanais (horário flexível). Requisitos desejáveis (não necessários) ̶ Conhecimento de linguagens de programação científica: R, Python, Matlab ̶ Conhecimento de Excel/VBA. ̶ Leitura em Inglês. Benefícios ̶ Bolsa auxílio compatível com o mercado. ̶ Vale alimentação, vale refeição, vale transporte, seguro de vida, plano de saúde, plano odontológico e férias remuneradas. Enviar currículo para: wfreitas(a)bvmf.com.br<mailto:wfreitas@bvmf.com.br>, com Assunto: “Vaga de Estagiário”. ' ________________________________ Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não deverá utilizar, copiar, alterar, divulgar a informação nela contida ou tomar qualquer ação baseada nessas informações. Se você recebeu esta mensagem por engano, por favor avise imediatamente o remetente, respondendo o e-mail e em seguida apague-o. Agradecemos sua cooperação. This message may contain confidential and/or privileged information. If you are not the addressee or authorized to receive this for the addressee, you must not use, copy, disclose, change, take any action based on this message or any information herein. If you have received this message in error, please advise the sender immediately by reply e-mail and delete this message. Thank you for your cooperation. '

1 0

Coeficiente de correlação em curvas de calibração analítica
by Ari Clecius 02 Out '14

02 Out '14

O coeficiente de correlação pode ser aplicado a dados de calibração química, já que os valores de x são escolhidos e não aleatórios? Li em um artigo que o coeficiente de correlação é aplicável apenas a variáveis aleatórias, como proceder? Att, Ari Clecius Alves de Lima Engenheiro Químico Me. Engenharia Civil (085)88412345 (085)33669042 #Curva de calibraçao em química analítica y=c(31527,26523,21318,15454,8902,6303,2530) x=c(50,40,30,20,10,5,2.5) lm.1=lm(y~x) library(chemCal) calplot(lm.1)

3 4

Criar função no R com if e for
by Rodolfo Souza 01 Out '14

01 Out '14

Olá pessoal, gostaria mais uma vez da ajuda de vocês. Eu estou precisando criar uma função no R que tem três condições e após testar todas as condições o programa me retorne um resultado na forma de vetor para cada valor (input) na função. Segue o código que consegui fazer até agora: x=c(-5,-4,-3,-2,-1,0,1,2,3,4,5);x fr=function(x){ r=numeric(length = length(x)); for(i in seq(along=x)){ if(x<-3){r[i]=0} else if(x>=-3 && x<=2){r[i]=3*x} else{r[i]=1} } return(r) } rs=fr(x);rs O resultado saí: 0 0 0 0 0 0 0 0 0 0 0 Se eu tenho só um valor no vetor e não utilizo o "for" consigo resolver, mas se o vetor tem mais de um valor dá erro. Desde já grato pela atenção/ajuda. -- Rodolfo Marcondes Silva Souza Engenheiro Agrônomo Mestre em Produção Vegetal - UFRPE/UAST Doutorando em Tecnologias Energéticas e Nucleares - UFPE/DEN Currículo Lattes <http://lattes.cnpq.br/4486320338778858>

5 5

Gerar vetor de dados com assimetria negativa no R
by Andre Oliveira 01 Out '14

01 Out '14

Pessoal, como posso gerar um vetor de tamanho n de dados assimétricos com assimetria negativa? Pode ser qualquer distribuição! André Oliveira Souza. Graduação em Matemática, mestrado em estatística aplicada.Instituto Federal de Educação, Ciência e Tecnologia do Espirito Santo. IFES

2 3

Função
by Andre Oliveira 01 Out '14

01 Out '14

Pessoal tenho uma matriz 10 por 10 com nome de dados. Gostaria que fazer o seguinte para i variando de 1 a 10 e guardar a média e desviopadrão. sd(dados2[,i]) mean(dados2[,i]) André Oliveira Souza. Graduação em Matemática, mestrado em estatística aplicada.Instituto Federal de Educação, Ciência e Tecnologia do Espirito Santo. IFES

4 4