title: “Atividade de Revisão” author: “Ronald de Castro,Harry Sampaio, Kalebe de Souza, Matthews Gabriel” date: “2024-08-27” output: html_document —

#Ablitando os pacotes

#Importando os dados

tabela <- read_excel("data-raw//Espessura.xlsx")

#Tabela de distribuição de Frequencia

dtf <- fdt(tabela)
print(dtf)

## espessura 
##      Class limits  f   rf rf(%)  cf cf(%)
##  [408.87,419.245)  1 0.01     1   1     1
##  [419.245,429.62)  4 0.04     4   5     5
##  [429.62,439.995) 17 0.17    17  22    22
##  [439.995,450.37) 30 0.30    30  52    52
##  [450.37,460.745) 28 0.28    28  80    80
##  [460.745,471.12) 15 0.15    15  95    95
##  [471.12,481.495)  4 0.04     4  99    99
##  [481.495,491.87)  1 0.01     1 100   100

#Estatística

describe(tabela$espessura)

##    vars   n   mean    sd median trimmed   mad min max range skew kurtosis   se
## X1    1 100 450.01 13.43    450  449.91 13.34 413 487    74 0.02    -0.08 1.34

var(tabela$espessura)

## [1] 180.2928

##A média é de 450,01
##A variação é de 180,2928
##O desvio padrão é de 13,43

#boxplot do dados

boxplot(tabela,
        main = "Boxplot de Espessura",
        ylab = "metros",
        col = "red",
        horizontal = TRUE)

#Histograma da espessura

hist(tabela$espessura)