Atividade3.Rmd

library(readxl)

## Warning: package 'readxl' was built under R version 4.2.3

AptosCriciuma <- read_excel("C:/Users/17988111701/Downloads/AptosCriciuma.xls")

R Markdown

#media
mean(AptosCriciuma$Valor)

## [1] 107.5063

#mediana
median(AptosCriciuma$Valor)

## [1] 84

#desvio padrão
sd(AptosCriciuma$Valor)

## [1] 90.73032

hist((AptosCriciuma$Valor), col = "red", main = "Histograma do valor dos apartamentos na cidade de criciuma",
     xlab = "Valor dos apartamentos (em mil).", ylab = "frequência")

Resumo dos preços dos apartamentos

A média dos preços dos apartamentos é de R$ 107.505,00

A mediana dos preços dos apartamentos é de R$ 84.000,00

O desvio padrão é R$ 90.730,00