Alunas: Andréia Diniz e Naara Melo
Data:16/10/2017
O presente estudo tem como objetivo traçar o perfil do aluno do curso de Biologia do Estado do Rio de Janeiro, e de também entender quais os fatores podem interferir em gostar ou não de estudar a mesma. Como metodologia foi usada uma base de dados baseada em entrevista a alunos de várias escolas do Rio de Janeiro e São Paulo. No entanto vamos nos ater nos alunos do Rio de Janeiro. Podemos então dizer que a maioria dos alunos entrevistados estudam em escolas públicas,a maioria foi do sexo masculino, a maioria é de raça Branca, tem idade média de 23,53 anos e que o sexo feminino tem uma maior variabilidade de idade. No histograma relacionando o tipo de escola(particular ou pública)com o gostar de estudar, podemos ver que não há diferença significativa entre elas, ou seja não há correlação. Já na relação entre sexo e o gostar de estudar, podemos ver que,as maiores notas atribuídas ao gostar de estudar está relacionada ao sexo masculino, então há correlação fraca entre as variáveis. Podemos concluir que o gostar ou não de Biologia está na verdade intrínseco ao aluno e que não há uma relevância nos fatores externos com relação a gostar ou não.
> Biologia <- readXL("C:/Users/Andreia/Desktop/biologia rj.xlsx", rownames=FALSE, header=TRUE, na="",
+ sheet="science", stringsAsFactors=TRUE)
> summary(Biologia)
Aluno Estado TipodeEscola Escola
Min. : 1.0 RJ :1336 Particular:403 Min. : 1.00
1st Qu.: 367.8 NA's: 932 Pública :933 1st Qu.:13.00
Median : 734.5 NA's :932 Median :20.00
Mean : 739.1 Mean :20.44
3rd Qu.:1112.2 3rd Qu.:30.00
Max. :1492.0 Max. :39.00
NA's :932 NA's :932
Classe.1.manhã..2...Tarde..3.Noite.4.Integral. Sexo
Min. :1.000 f :661
1st Qu.:1.000 m :673
Median :1.000 NA : 2
Mean :1.528 NA's:932
3rd Qu.:2.000
Max. :4.000
NA's :932
Gosta.de.Estudar.Biologia Turma IDADE Raça
Min. :1.000 17.1 : 50 Min. :17.00 Amarelo : 38
1st Qu.:4.000 36.2 : 44 1st Qu.:21.00 Branco :1142
Median :5.000 21.1 : 42 Median :24.00 Indígena: 11
Mean :5.096 36.1 : 37 Mean :23.53 Outra : 6
3rd Qu.:6.000 32.1 : 34 3rd Qu.:26.00 Preto : 139
Max. :8.000 (Other):1129 Max. :27.00 NA's : 932
NA's :932 NA's : 932 NA's :932
> library(abind, pos=14)
> library(e1071, pos=15)
> numSummary(Biologia[,"Gosta.de.Estudar.Biologia"], statistics=c("mean", "sd", "IQR",
+ "quantiles", "cv"), quantiles=c(0,.25,.5,.75,1))
mean sd IQR cv 0% 25% 50% 75% 100% n NA
5.095808 1.852569 2 0.3635476 1 4 5 6 8 1336 932
> with(Biologia, Barplot(TipodeEscola, xlab="TipodeEscola", ylab="Frequency"))
> A maioria estuda em escolas públicas
+ with(Biologia, Hist(Gosta.de.Estudar.Biologia, groups=TipodeEscola, scale="frequency",
+ breaks="Sturges", col="darkgray"))
Error: <text>:1:3: unexpected symbol
1: A maioria
^
Podemos ver que não há grande variação em relação a escola e o gostar de estudar
> with(Biologia, Hist(Gosta.de.Estudar.Biologia, groups=TipodeEscola, scale="percent",
+ breaks="Sturges", col="darkgray"))
> local({
+ .Table <- xtabs(~Raça+TipodeEscola, data=Biologia)
+ cat("\nFrequency table:\n")
+ print(.Table)
+ cat("\nTotal percentages:\n")
+ print(totPercents(.Table))
+ .Test <- chisq.test(.Table, correct=FALSE)
+ print(.Test)
+ })
Frequency table:
TipodeEscola
Raça Particular Pública
Amarelo 12 26
Branco 350 792
Indígena 1 10
Outra 1 5
Preto 39 100
Total percentages:
Particular Pública Total
Amarelo 0.9 1.9 2.8
Branco 26.2 59.3 85.5
Indígena 0.1 0.7 0.8
Outra 0.1 0.4 0.4
Preto 2.9 7.5 10.4
Total 30.2 69.8 100.0
Warning in chisq.test(.Table, correct = FALSE): Chi-squared approximation
may be incorrect
Pearson's Chi-squared test
data: .Table
X-squared = 3.2936, df = 4, p-value = 0.5099
> scatterplot(Gosta.de.Estudar.Biologia~Escola, reg.line=FALSE, smooth=FALSE,
+ spread=FALSE, boxplots=FALSE, span=0.5, ellipse=FALSE, levels=c(.5, .9), data=Biologia)
> Boxplot(Gosta.de.Estudar.Biologia~TipodeEscola, data=Biologia, id.method="y")
>
+
+ Nâo há variação no tipo de escola e gostar de estudar, não há correlação.
+ with(Biologia, Hist(Gosta.de.Estudar.Biologia, groups=Sexo, scale="percent",
+ breaks="Sturges", col="darkgray"))
Error: <text>:3:5: unexpected symbol
2:
3: Nâo há
^
Não há difeença por sexo em gostar de estudar