# 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
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
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(QE$Horas_estudo, col="#00FFFF",horizontal=TRUE,main="Grafico 1 - boxplot das horas de estudo")
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")