Probabilidade e Estatística - Engenharia 2º ano - 2018 - AEDB

Resultado da avaliação de Probabilidade e Estatística - Engenharia 2A e 2B - AEDB

1º Bimestre

---

library(readr)
notas <- read_delim("notas.CSV", 
    ";", escape_double = FALSE, col_types = cols(notas = col_number()), 
    trim_ws = TRUE)
notas$notas <-notas$notas/10

library(psych)
table(notas)

     turma
notas ENG_2A ENG_2B
  4.7      1      0
  5.5      1      0
  5.6      2      0
  5.7      8      0
  5.9      1      0
  6.2      0      2
  6.4      0      1
  6.6      0      1
  6.8      1      1
  6.9      4      1
  7        2      1
  7.1      2      4
  7.2      0      1
  7.4      1      0
  7.5      0      1
  7.6      0      2
  7.7      2      4
  7.8      0      2
  7.9      0      1
  8        1      3
  8.3      1      0
  8.4      0      1
  8.5      0      5
  8.6      0      2
  8.7      0      1
  8.8      1      4
  8.9      2      8
  9        1      8
  9.2      1      1
  9.3      3      2
  9.4      1      0
  9.5      5      0

library("graphics")
### Mosaic plot of observed values
mosaicplot(table(notas),  las=2, col="steelblue",
           main = "Tabulação das notas")

summary(notas$notas)

   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
  4.700   7.000   8.000   7.856   8.900   9.500 

describeBy(notas$notas)

no grouping variable requested

   vars  n mean   sd median trimmed  mad min max range  skew kurtosis   se
X1    1 98 7.86 1.25      8    7.94 1.41 4.7 9.5   4.8 -0.54    -0.87 0.13

describeBy(notas$notas,notas$turma)

 Descriptive statistics by group 
group: ENG_2A
   vars  n mean   sd median trimmed  mad min max range skew kurtosis   se
X1    1 41 7.42 1.54    7.1    7.42 2.08 4.7 9.5   4.8 0.05    -1.52 0.24
----------------------------------------------------------------- 
group: ENG_2B
   vars  n mean   sd median trimmed  mad min max range  skew kurtosis   se
X1    1 57 8.17 0.87    8.5    8.25 0.74 6.2 9.3   3.1 -0.66    -0.79 0.12