Trabalhoestatisica

[pic 1]          Universidade Federal de Ouro Preto               [pic 2]

Instituto de Ciências Exatas e Biológicas

Trabalho computacional de Estatística

Alunos:Camila Linhares Amaral

Paulo André Castelo Branco

Rosemberg Freitas

Rene Diniz

Thiago Pires Sampaio

Turma:EST202-84T 

QUESTÃO 1

I

Interpretações das alternativas:

A )Quartil 1: Em janeiro,25% dos dias teve o sistema off line no máximo 2 vezes por dia.

    Mediana: Em janeiro,50% dos dias teve o sistema off line no máximo ou no mínimo 3 vezes por dia.

     Quartil 3 : Em janeiro,75% dos dias teve o sistema off line no máximo 4 vezes ao dia.

B ) Média: Durante janeiro de 2006,o sistema ficou off line em média 2.870968 vezes por dia.

Moda: É o número que aparece mais vezes.  Durante janeiro de 2006, o sistema ficou off line mais frequentemente  2 vezes por dia.

C ) Substituindo 0 por 500 observamos uma variação no valor da média para 19 e a permanência no da mediana,concluindo assim que a mediana é uma medida que divide os dados em duas partes iguais,é uma medida mais robusta do que a média.

D ) Desvio padrão: O número médio de vezes por dia que o sistema ficou off line é 2,870968, podendo este número se distanciar de 1.431594, para mais ou para menos.

Coeficiente de variação: A variabilidade do número de vezes por dia que o sistema ficou off line é 49.86452% do valor da média.

II

Histograma:

[pic 3]

Box-Plot: [pic 4]

Pirâmide Demográfica:

[pic 5]

Gráfico de Setores:

[pic 6]

Gráfico de Séries Temporais:

[pic 7]

Gráfico de Dispersão:     

   [pic 8]

QUESTÃO 2

A )

q1 <- c(114.7, 144.7, 119.1, 113.7, 108.9, 96.7, 87.6, 132.4)

q2 <- c(144.7, 173.4, 154.2, 154.7, 125.9, 119.5, 155.7, 213.9, 156.2, 159)

q3 <- c(153.1, 192.5, 145.5, 168.8, 141.5, 141.2, 189.6, 178.4, 208.6)

boxplot(q1, q2, q3, xlab = "quadrimestre", ylab = "índice")

[pic 9]

Interpretações:

Observando o gráfico o terceiro quadrimestre é o que mais vende e também possui menor dispersão.

O segundo quadrimestre está em segundo lugar em vendas e possui o maior índice de dispersão. O primeiro quadrimestre possui o menor índice de vendas.

B )

q1.m <- c(mean(q1), sd(q1), 100 * sd(q1)/mean(q1))

q2.m <- c(mean(q2), sd(q2), 100 * sd(q2)/mean(q2))

q3.m <- c(mean(q3), sd(q3), 100 * sd(q3)/mean(q3))

names(q1.m) <- names(q2.m) <- names(q3.m) <- c("média", "desvio padrão", "CV")

q1.m

        média desvio padrão            CV

    114.72500      18.22751      15.88800

q2.m

        média desvio padrão            CV

    155.72000      25.89379      16.62843

q3.m

        média desvio padrão            CV

    168.80000      24.91726      14.76141

Interpretações:

Com o gráfico observamos que em média se vende mais no terceiro quadrimestre, e este tem um desvio padrão menor. O segundo quadrimestre possui maior desvio padrão. E em média se vende menos no primeiro quadrimestre.

QUESTÃO 3

A )

dadosmat<-matrix(scan("matriz_exemplo.txt"),nrow=4,ncol=3,byrow=T)

Read 12 items

dadosmat

     [,1] [,2] [,3]

[1,]    1    2   10

[2,]    3    4   20

[3,]    5    6   30

[4,]    7    8   40

apply(dadosmat,1,mean)

[1]  4.333333  9.000000 13.666667 18.333333

Observações:

O programa R leu o arquivo com a matriz e imprimiu o comando na tela (apply(dadosmat,1,mean)) e este comando fez com que o R calculasse a média de cada linha da matriz.

apply(dadosmat,2,mean)

[1]  4  5 25

Depois retornou com a média de cada coluna da matriz.

apply(dadosmat,1,sd)

[1]  4.932883  9.539392 14.153916 18.770544

O R nos deu o valor do desvio padrão calculado com os números de cada linha.

apply(dadosmat,2,sd)

[1]  2.581989  2.581989 12.909944

O R nos deu o valor do desvio padrão calculado com os números de cada coluna.

B )

sample(x=1:5, size=4, replace = FALSE)

[1] 1 5 4 2

Observações:

O comando sample retorna aleatoriamente quatro valores => size=4 no intervalo determinado (x=1:5) sem que se repita o valor =>replace = FALSE.

sample(x=1:60, size=6, replace = FALSE)

[1] 21 54 39 42  7  9

choose(60,6)

[1] 50063860

for (i in 6:15)

{

cat("Na megasena, se você jogar um cartão com",i,"números, pagarás R$",choose(i,6)*2.00,",

pois isso equivale a jogar",choose(i,6),"cartões simples (6 dezenas);\n", sep=" ")

}

Na megasena, se você jogar um cartão com 6 números, pagarás R$ 2 ,

pois isso equivale a jogar 1 cartões simples (6 dezenas);

Na megasena, se você jogar um cartão com 7 números, pagarás R$ 14 ,

pois isso equivale a jogar 7 cartões simples (6 dezenas);

Na megasena, se você jogar um cartão com 8 números, pagarás R$ 56 ,

...