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)