Julho 2015 - R-br - DINF UFPR

Ajuste de regressão linear
by Andre Oliveira 02 Jul '15

02 Jul '15

Bom dia,este é um CMR hipotético. dados <- expand.grid(A=factor(paste("A", 1:3, sep="")),B=factor(paste("B", 1:4, sep="")), rep=1:4)dados$y <- rgamma(n=48,shape=2, scale = 2) summary(lm(y~rep, data = subset(dados,B=="B1")))plot(y ~resp) summary(lm(y~rep, data = subset(dados,B=="B2")))plot(y ~resp) summary(lm(y~rep, data = subset(dados,B=="B3")))plot(y ~resp) summary(lm(y~rep, data = subset(dados,B=="B4"))) Como posso automatizar estas regressões com um for? Alguma sugestão? Sem plot já está ótimo! Obrigado André Oliveira Souza

4 4

Gráfico de calor para uma matriz bidimensional
by Michelle Bau Graczyk 01 Jul '15

01 Jul '15

Boa noite, Eu preciso fazer um gráfico de calor de matrizes bidimensionais de correlacão entre volumes de 30 empresas. Eu tentei usar o heatmap.2 mas ele reorganiza as linhas e eu gostaria que ela ficasse na ordem que já estava. Vocês teria algum modelo no qual eu possa me espelhar ou alguma dica? Muuito obrigada, Michelle

2 1

Agregando ou reshape de dados?
by Pedro Emmanuel Alvarenga Americano do Brasil 01 Jul '15

01 Jul '15

Amigos de R, Há algumas horas estou empacado e ja tentei diversas coisas aqui, como o reshape e aggregate e não consigo. Bom a intensão é transformar os dados de tal forma que duas variáveis repetitivas sejam transformadas, de tal forma que as categorias dessas variáveis passem a ser as novas colunas e o seu conteúdo passe a ser True ou False para cada identificador, mais ou menos assim; Reparem que a linha 2 e 6 possuem o mesmo identificador Original: Unique_Identifier AdmissionReasonName_sec 1 {6841FBAD-EB26-4EB3-AD8C-3AE00E23A563} Trauma não-cirurgico 2 {D4BE0DF7-A143-4EE5-9B9F-659F198A817C} Neurológico 3 {A6240B7F-3571-473E-AEFF-944372B312A4} Infecção/Sepse 4 {946C597C-A79C-47A0-B0A6-16BEB9817571} Cardiovascular 5 {023FF83F-A65C-49FE-8E0C-D26D8BD82B40} Cardiovascular 6 {D4BE0DF7-A143-4EE5-9B9F-659F198A817C} Cardiovascular Formato desejado: Reparem que aqui o ID duplicado foi removido mas aparecem True nas variaveis Cardiovascular e Neurologico Unique_Identifier Trauma não-cirurgico Neurologico Infecção/Sepse Cardiovascular 1 {6841FBAD-EB26-4EB3-AD8C-3AE00E23A563} True False False False 2 {D4BE0DF7-A143-4EE5-9B9F-659F198A817C} False True False True 3 {A6240B7F-3571-473E-AEFF-944372B312A4} False False True False 4 {946C597C-A79C-47A0-B0A6-16BEB9817571} False False False True 5 {023FF83F-A65C-49FE-8E0C-D26D8BD82B40} False False False True Para montar o banco original s <- data.frame(Unique_Identifier=c("{6841FBAD-EB26-4EB3-AD8C-3AE00E23A563}","{D4BE0DF7-A143-4EE5-9B9F-659F198A817C}","{A6240B7F-3571-473E-AEFF-944372B312A4}","{946C597C-A79C-47A0-B0A6-16BEB9817571}","{023FF83F-A65C-49FE-8E0C-D26D8BD82B40}","{D4BE0DF7-A143-4EE5-9B9F-659F198A817C}"), AdmissionReasonName_sec=c("Trauma não-cirurgico","Neurológico","Infecção/Sepse","Cardiovascular","Cardiovascular","Cardiovascular")) s Abraço, Pedro Brasil

4 4