Uma análise de desvio padrão

# Criando o conjunto de dados
Rua_VERMELHA = c(40,55,95,80,65)
rua_Azul = c(70,55,65,70,75)

# Calculo de média
media_vermelha = mean(Rua_VERMELHA)
media_azul = mean(rua_Azul)
media_vermelha
## [1] 67
media_azul
## [1] 67
# Variancia
var_vermelha = var(Rua_VERMELHA)
var_Azul = var(rua_Azul)
var_vermelha
## [1] 457.5
var_Azul
## [1] 57.5

Base de dados

library(readxl)
## Warning: package 'readxl' was built under R version 4.2.3
QE <- read_excel("C:/Users/13979399745/Desktop/Base_de_dados-master/Questionario_Estresse.xls")

tabela_Namorado = table(QE$Namorado_a)
tabela_Namorado
## 
##  1  2 
## 47 48

Nota média

Conjunto1 = c(8,9,10,11,12,13,14)
mean(Conjunto1)
## [1] 11
median(Conjunto1)
## [1] 11
conjunto2 = c(8,9,10,11,12,13,140000)
mean(conjunto2)
## [1] 20009
median(conjunto2)
## [1] 11
median(QE$Desempenho)
## [1] 8.7

Boxplot

boxplot(QE$Horas_estudo, col="#00FFFF",horizontal=TRUE,main="Grafico 1 - boxplot das horas de estudo")

Base de dados CARRO

load("C:/Users/13979399745/Desktop/Base_de_dados-master/CARROS.RData")

#Histograma Peso do carro

hist(CARROS$Peso, col="#8470FF",main="Gráfico 3- Histograma do peso do carro", ylab = "frequência", xlab ="Peso do carro")