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
Postar um comentário