# Arquivo "script", para executar uma linha ou seleção digite
#  [Ctrl] R
# Leitura dos dados no arquivo "Cap01_Corrar_etal_2007.csv"
dados <- read.table("Cap01_Corrar_etal_2007.csv",header=TRUE,sep=";")
# Considerando a variavel CAP como categorica (factor)
dados$CAP <- factor(dados$CAP,labels=c("Capital Aberto","Capital Fechado"))
# Considerando a variavel TAM como categorica (factor)
dados$TAM <- factor(dados$TAM,labels=c("Pequena","Média","Grande"))
# Disponibiliza as variáveis do dataframe
attach(dados)
# Boxplot, sem mostrar outliers
boxplot(PL~TAM,ylab="PL($)",xlab ="Tamanho",range=0)
# Gráfico de colunas para dados categóricos
barplot(table(TAM),xlab="Tamanho",ylab="Contagem")
# Gráfico de pizza para dados categóricos
pie(table(TAM))
# Intervalo de confiança para média com teste t:
t.test(AC, conf.level=.90)
# Intervalo de confiança proporção
# contagem de itens válidos 
n = length(CAP)                  
# contagem de itens = Capital Aberto
k = sum(CAP == "Capital Aberto") 
# Teste de proporção
prop.test(k, n)