Cap 12 Linguagem R Exercício 1

#definindo pasta trabalho
setwd("C:/Users/bruno/OneDrive/PowerBI/CursoPowerBI2/Cap12/Exercicio")
getwd()

#carregando database
notas<- read.csv("Notas.csv", fileEncoding = "windows-1252")
#1-Apresente um resumo de tipos de dados e estatísticasdo dataset
#resumo dataset
head(notas)
tail(notas)
View(notas)
summary(notas)

#2- QUal a Média de cada turma?
#Media turma A
mean(notas$TurmaA)

#Media turma B
mean(notas$TurmaB)

#3-  Qual turma apresentou maior variabilidade de notas? Justifique sua resposta.
sd(notas$TurmaA)
sd(notas$TurmaB)

#4 -Calcule o coeficiente de variação das 2 turmas
media_ta <- mean(notas$TurmaA)
media_tb <- mean(notas$TurmaB)

#Calculo desvio padrao
sd_ta <- sd(notas$TurmaA)
sd_tb <- sd(notas$TurmaB)

#Calculo coeficiente de variação
cva <- sd_ta / media_ta *100
cvb <- sd_tb / media_tb *100
print(cva)
print(cvb)

#5- Qual nota apareceu mais vezes em cada turma?
calculaModa <- function(v) {
  uniqv <- unique(v)
  uniqv[which.max(tabulate(match(v, uniqv)))]
}
calculaModa(notas$TurmaA)
calculaModa(notas$TurmaB)


Comentários

Postagens mais visitadas