Graduação em Estatística UFPR

Contato — Edicleia Furlanetto

Estudo sobre o efeito de técnicas de motivação em alunos do curso de Estatística da Universidade Federal do Paraná

###### Carregando pacotes no R #####################################

require(spdep) require(gdata) require(MASS) require(RODBC)

pse=read.csv("FINAL08.csv",h=T) str(pse)

===== criando data.frame ================================= <code>

INSCRICAO=pse$INSCRICAO FASE1=pse$NOTAFASE1 FASE2=pse$NOTAFASE2

comp=data.frame(INSCRICAO,FASE1,FASE2)

# ORDENAR OS DADOS ######################################

sort(pse, decreasing=T)

## Data.frame das variaveis de um a cinco ################ Y1=pse$V1 Y2=pse$V2 Y3=pse$V3 Y4=pse$V4 Y5=pse$V5 Y7=pse$V7 Y8=pse$V8 identcand=data.frame(Y1,Y2,Y3,Y4,Y5,Y6,Y7)

## Data.frame das variaveis de dezoito a vinte e seis ###

Y18=pse$V18 Y19=pse$V19 Y20=pse$V20 Y21=pse$V21 Y22=pse$V22 Y23=pse$V23 Y24=pse$V24 Y25=pse$V25 Y26=pse$V26 Y27=PSE$V27 formacao=data.frame(Y18,Y19,Y20,Y21,Y22,Y23,Y24,Y25,Y26,Y27)

########## Nova tabela ##############################

nova=data.frame(comp,identcand,formacao) write.csv("nova.csv")

############# Cruzando variaveis #######################

table(Y1,Y27)

Y27

Y1 1 2 3 4 5

1 34 18 29 10  1
2 19 14 29  5  2

table(Y1,Y7)

 Y7

Y1 1 2 3 4 5 6 7 8

1  5 17 16  6 23  5 16  4
2  2 24  5  7 15  3  9  4

table(Y1,Y8)

Y8

Y1 2 3 4 5 6 7 8

1 31 13  7 24  6 10  1
2 26  9  5 12  5 10  2

shapes