Análise questionário magalhães, Exercícios de Probabilidade. Universidade Tecnológica Federal do Paraná (UTFPR)
andersonlincoln
andersonlincoln10 de Setembro de 2016

Análise questionário magalhães, Exercícios de Probabilidade. Universidade Tecnológica Federal do Paraná (UTFPR)

TXT (2 KB)
2 páginas
83Número de visitas
Descrição
Análise questionário magalhães
20pontos
Pontos de download necessários para baixar
este documento
baixar o documento
Pré-visualização2 páginas / 2
baixar o documento

### Entrada de Dados ###

dados = read.table("C:/Users/Angélica/Dropbox/UTFPR/Probabilidade e Estatística/ dados.txt", header = T) dados attach(dados)

### Renomeando as variáveis ###

names(dados) turma = dados$Turma sexo = dados$Sexo id = dados$Idade filhos = dados$Filhos Fuma = dados$Fuma Toler = dados$Toler

### Distribuições de Frequencias - variáveis qualitativas ###

table(turma) prop.table(table(turma))

ni=table(turma) ##frequencia absoluta fi = ni/sum(ni) ##frequencia relativa dist=cbind(ni,fi) ##distribuição de frequências

### Gráfico de Setores ###

pie(table(turma), main = "Gráfico de Setores para a variável Turma")

### Gráfico de Barras ###

barplot(table(turma), main = "Gráfico em Barras para a variável Turma", ylab = "frequências absolutas", xlab = "Turma", col = "cyan") ?barplot

### Distribuições de Frequencias - variáveis discretas ###

table(Filhos) prop.table(table(Filhos)) plot(table(Filhos))

### Gráfico de Dispersão ###

plot(table(Filhos), ylab = "Frequências Absolutas", xlab = "Número de Filhos", type = "p", main = "Gráfico de Dispersão para o Número de Filhos")

col = c("purple", "violetred1", "green3", "cornsilk", "cyan", "white"))

#### Variáveis Contínuas ####

"Idade" "Alt" "Peso"

brid = seq(15, 27, by=3) id.cut = cut(id, brid, right=FALSE) id.freq = table(id.cut) id.freq

hist(id, breaks = seq(15, 27, by=3), freq = F, right=F, ylim = c(0,0.25))

install.packages('fdth') library(fdth)

tabela=fdt(id, start=15, h=3, end=27) print(tabela) plot(tabela,type='fp') # Polígono de Frequências plot(tabela,type='cfp') # Polígono de Frequências Acumuladas

## Polígono de frequências

h = hist(id, breaks = seq(15, 27, by=3), freq = F, right=F, ylim = c(0,0.25)) plot(c(min(h$breaks), h$mids, max(h$breaks)), c(0,h$counts, 0), type = "b", main="Polígono de frequências das Idades", xlab="Idades", ylab="Frequências Absolutas")

comentários (0)
Até o momento nenhum comentário
Seja o primeiro a comentar!
baixar o documento