#************************************************************************ # Choice Is Yours ******************************************************* dados <- read.table("Choice_is_Yours_Fundos.csv",header=TRUE,sep=";",dec=",") dados summary(dados) names(dados) # # Reordenando as categorias dados$Categoria <- factor(dados$Categoria,labels=c("Baixo Cap","Médio Cap","Gde.Vol.Cap")) dados$Risco <- factor(dados$Risco,labels=c("Baixo","Médio","Alto")) # attach(dados) # Tabelas --------------------------------------------------------------- table(Categoria) table(Objetivo) table(Risco) table(Categoria,Risco) table(Risco,Categoria) table(Categoria,Objetivo,Risco) # # Estatísticas descritivas ---------------------------------------------- min(Retorno.2005) # Mínimo max(Retorno.2005) # Máximo mean(Retorno.2005) # Média sd(Retorno.2005) # Desvio Padrão sum(Retorno.2005) # Soma de valores median(Retorno.2005) # Mediana quantile(Retorno.2005, p=0.75) # Quantil quantile(Retorno.2005, p=c(0.0, 0.25, 0.5, 0.75, 1.0)) # Números boxplots # # Média (mean) de desvio padrão (sd) por grupos ------------------------- mean(Retorno.2005) sd(Retorno.2005) tapply(Retorno.2005,Risco,mean) tab <- tapply(Retorno.2005,Risco,sd) tapply(Retorno.2005,list(Risco,Categoria),sd) # detach(dados) # # Gráficos para variáveis categóricas ----------------------------- tRisco <- table(Risco) prop.tRisco <- prop.table(tRisco) barplot(prop.tRisco) # Ou, de forma alternativa: barplot(prop.table(table(Risco))) Cat.Risco <- table(Risco,Categoria) barplot(prop.table(t(Cat.Risco),2),beside=T,legend.text=colnames(Cat.Risco)) # Gráficos para variáveis numéricas ----------------------------- # Histogramas # Retorno.3.Anos hist(Retorno.3.Anos,freq=F) curve(dnorm(Retorno.3.Anos), add=T) # # Boxplot para duas variáveis distintas, por ex. # Retorno.3.Anos e Retorno.5.Anos ---------- par(mfrow=c(1,2)) ylim <- range(-30,45) boxplot(Retorno.3.Anos,xlab="Retorno 3 Anos",ylim=ylim) boxplot(Retorno.5.Anos,xlab="Retorno 5 Anos",ylim=ylim) par(mfrow=c(1,1)) # # Boxplot para duas variáveis distintas, por ex. # Retorno.3.Anos e Retorno.5.Anos ---------- par(mfrow=c(1,2)) ylim <- range(-30,45) boxplot(Retorno.3.Anos~Risco,xlab="Retorno 3 Anos",ylim=ylim) boxplot(Retorno.5.Anos~Risco,xlab="Retorno 5 Anos",ylim=ylim) par(mfrow=c(1,1)) # library("lattice")