Trabalhoestatisica

...

QUESTÃO 3

A )

dadosmat

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 ,

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Observações:

Choose(60,6)- Esse comando gera o número de combinações de 6 números que pode ser formado em um conjunto de 60.

for (i in 6:15)- Esse comando substitui à variável i por valores inteiros de 6 a 15 para execução de um outro comando.Útil para fazer uma seqüência de comandos.

QUESTÃO 4

> ###questão 4

> ###Item A

> setwd("C:\\Users\\sampaio\\Desktop\\Estatistica")

> getwd()

[1] "C:/Users/sampaio/Desktop/Estatistica"

> milsa = read.table("exemplo_milsa.txt",header=T)

> milsa

id civil instrucao filhos salario ano mes regiao

1 1 1 1 NA 4.00 26 3 1

2 2 2 1 1 4.56 32 10 2

3 3 2 1 2 5.25 36 5 2

4 4 1 2 NA 5.73 20 10 3

5 5 1 1 NA 6.26 40 7 3

6 6 2 1 0 6.66 28 0 1

7 7 1 1 NA 6.86 41 0 1

8 8 1 1 NA 7.39 43 4 2

9 9 2 2 1 7.59 34 10 2

10 10 1 2 NA 7.44 23 6 3

11 11 2 2 2 8.12 33 6 1

12