Trab Final Multi DanyMisael 3

UFRRJ – Especialização em Estatística Aplicada
Modulo de Estatística Multivariada
Prof Luis Alberto Toscano DEMAT/UFRRJ
Danielle Misael de Sousa

Trabalho Final de Multivariada

Os dados da Tabela 4.6 (ver os dados de perfil psicológico:www.prenhall.comlstatistics) consistem de 130 observações geradas pela pontuação em um teste psicológico administrado a adolescentes peruanos (15, 16 e 17 anos). Para cada um destes adolescentes (masculino=1, feminino=2), status socioeconômico (baixo=1, médio = 2) também foram registrados os escores em cinco subescalas: independência (Indep), suporte (supp), benevolência (Benev), conformidade (conform) e liderança (leader).

Para efeito da aplicação das componentes principais, a pontuação dos cinco escores Indep, supp, benev, conform, e leader (X1, X2, X3, X4, X5) serão utilizadas.

> dados <- read.csv(file=file.choose(),head=T,sep=";",dec = ",") #onde está o arquivo
> dados
> dados = dados[, -7] #exclui a coluna 7
> dados

Exclui-se também a coluna 6; desta forma trabalha-se cinco escores Indep, supp, benev, conform, e leader (X1, X2, X3, X4, X5). Como a ideia é analisar estes dados, excluem-se as colunas com o gênero e status socioeconomico. Em seguida é realizada uma análise descritiva dos dados.

> dados = dados[, -6]
> dados X1 X2 X3 X4 X5
1 27 13 14 20 11
2 12 13 24 25 6
3 14 20 15 16 7
4 18 20 17 12 6
5 9 22 22 21 6
6 18 15 17 25 9
7 12 18 29 18 4
8 10 19 21 10 16
9 8 23 23 19 9
10 21 11 17 9 16
11 15 16 16 12 19
12 9 20 29 14 7
13 16 22 24 17 4
14 14 19 17 18 15
15 13 26 23 17 5
16 13 20 22 18 5
17 18 17 11 23 14
18 15 24 15 8 15
19 18 22 24 11 6
20 18 18 17 24 7
21 9 16 27 18 9
22 25 17 15 14 14
23 9 21 21 18 4
24 28 17 19 12 7
25 18 18 26 14 6
26 25 13 11 20 6
27 6 16 22 23 15
28 25 13 18 9 15
29 4 23 27 16 8
30 17 7 19 22 12
31 13 14 16 20 16
32 14 16 21 19 10
33 17 12 22 19 12
34 14 16 19 18 13
35 10 19 23 23 3
36 8 21 16 20 10
37 15 12