#************************************************************************
# Trabalho 1      *******************************************************
#
# Insira os dois últimos dígitos USP:
F = 1
G = 2
N1= 10*F + G
N2 = G
#
dados.ciy <- read.table("Choice_is_Yours_Fundos.csv",header=TRUE,sep=";",dec=",")
dados.nike <- read.table("Nike_Malhotra_4aEd_462.csv",header=TRUE,sep=";",dec=",")
#
dados.ciy <- dados.ciy[-N1,]
dados.nike <- dados.nike[-N2,]
#
#####################################################################
# Análise da base 1 - Choice is Yours   #############################
dados <- dados.ciy
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"))
#
# 2.1: Medidas Estatísticas:
summary(dados)
#
# 2.2: Gráficos Estatísticos:
# Gráficos para variáveis categóricas -----------------------------
#
barplot(prop.table(table(dados$Risco)))

Cat.Risco <- table(dados$Risco,dados$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(dados$Retorno.3.Anos,freq=F)
hist(dados$Retorno.5.Anos,freq=F)
hist(dados$Retorno.2005,freq=F)
#
# 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(dados$Retorno.3.Anos,xlab="Retorno 3 Anos",ylim=ylim)
boxplot(dados$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(dados$Retorno.3.Anos~dados$Risco,xlab="Retorno 3 Anos",ylim=ylim)
boxplot(dados$Retorno.5.Anos~dados$Risco,xlab="Retorno 5 Anos",ylim=ylim)
par(mfrow=c(1,1))

#####################################################################
# Análise da base 2 - Nike   ########################################
dados <- dados.nike
names(dados)
dados[,1] <- factor(dados[,1])
dados[,3] <- factor(dados[,3])
dados[,4] <- factor(dados[,4])
dados[,5] <- factor(dados[,5])
dados[,6] <- factor(dados[,6])
dados[,7] <- factor(dados[,7])
dados[,8] <- factor(dados[,8])
dados[,9] <- factor(dados[,9])
#
# 2.1: Medidas Estatísticas:
summary(dados)
#
# 2.2: Gráficos Estatísticos:
# Gráficos para variáveis categóricas -----------------------------
#
attach(dados)
# Grafico de barras p/ uso e Uso-Gênero
barplot(prop.table(table(Uso)))
#
tab <- table(Uso,Gênero)
barplot(prop.table(t(tab),2),beside=T,legend.text=colnames(tab))
#
# Grafico de barras p/ Consciência e Consciência-Gênero
barplot(prop.table(table(Consciência)))
#
tab <- table(Consciência,Gênero)
barplot(prop.table(t(tab),2),beside=T,legend.text=colnames(tab))
#
# Grafico de barras p/ Atitude e Atitude-Gênero
barplot(prop.table(table(Atitude)))
#
tab <- table(Atitude,Gênero)
barplot(prop.table(t(tab),2),beside=T,legend.text=colnames(tab))
#
# Grafico de barras p/ Preferência e Preferência-Gênero
barplot(prop.table(table(Preferência)))
#
tab <- table(Atitude,Gênero)
barplot(prop.table(t(tab),2),beside=T,legend.text=colnames(tab))
#
# Grafico de barras p/ Intenção e Intenção-Gênero
barplot(prop.table(table(Intenção)))
#
tab <- table(Intenção,Gênero)
barplot(prop.table(t(tab),2),beside=T,legend.text=colnames(tab))
#
# Grafico de barras p/ Lealdade e Lealdade-Gênero
barplot(prop.table(table(Lealdade)))
#
tab <- table(Lealdade,Gênero)
barplot(prop.table(t(tab),2),beside=T,legend.text=colnames(tab))
#
# Gráficos para variáveis numéricas -----------------------------
# Histograma - Idade
eixox <- range(0,50)
hist(Idade,freq=F,xlim = eixox)
#
# Boxplot - Idade
eixoy <- range(0,50)
boxplot(Idade,ylab="Idade",ylim=eixoy)
#
detach(dados)
#
#************************************************************************