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)

disciplina=read.xls("/home/edicleia/Desktop/PSE/media.xls",h=T)

str(disciplina)

===== criando data.frame =================================

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

================ Dados do Curso de estística 1999-2008 =========

** Observando a média dos estudantes por diciplina segundo o ano **

################ Impotando dados media dos  alunos 2004  #######

dados04=read.xls("MEDIA04.XLS")

############### Impotando dados media dos  alunos 2004 #########

dados05=read.xls("MEDIA05.XLS")

############### Impotando dados media dos  alunos 2004 #########

dados06=read.xls("MEDIA06.XLS")

===== Informação adicianal =====

shapes