# Carregando o dataset
data("airquality")
# Imprimindo o cabeçalho
head(airquality)
## Ozone Solar.R Wind Temp Month Day
## 1 41 190 7.4 67 5 1
## 2 36 118 8.0 72 5 2
## 3 12 149 12.6 74 5 3
## 4 18 313 11.5 62 5 4
## 5 NA NA 14.3 56 5 5
## 6 28 NA 14.9 66 5 6
# Carregando a library "dplyr"
library(dplyr)
# Ordenando os dados pelo Wind
airquality %>%
arrange(desc(Wind)) %>%
head()
## Ozone Solar.R Wind Temp Month Day
## 1 37 284 20.7 72 6 17
## 2 8 19 20.1 61 5 9
## 3 6 78 18.4 57 5 18
## 4 11 320 16.6 73 5 22
## 5 NA 66 16.6 57 5 25
## 6 14 20 16.6 63 9 25
# Filtrando o dataset para Temp > 90
airquality %>%
filter(Temp > 90)
## Ozone Solar.R Wind Temp Month Day
## 1 NA 259 10.9 93 6 11
## 2 NA 250 9.2 92 6 12
## 3 97 267 6.3 92 7 8
## 4 97 272 5.7 92 7 9
## 5 NA 291 14.9 91 7 14
## 6 NA 222 8.6 92 8 10
## 7 76 203 9.7 97 8 28
## 8 118 225 2.3 94 8 29
## 9 84 237 6.3 96 8 30
## 10 85 188 6.3 94 8 31
## 11 96 167 6.9 91 9 1
## 12 78 197 5.1 92 9 2
## 13 73 183 2.8 93 9 3
## 14 91 189 4.6 93 9 4
# Criando uma nova coluna com temperatura em celsius
airquality %>%
mutate(Temp_Celsius = (Temp-32) * 5/9) %>%
select(Temp, Temp_Celsius, everything()) %>%
head()
## Temp Temp_Celsius Ozone Solar.R Wind Month Day
## 1 67 19.44444 41 190 7.4 5 1
## 2 72 22.22222 36 118 8.0 5 2
## 3 74 23.33333 12 149 12.6 5 3
## 4 62 16.66667 18 313 11.5 5 4
## 5 56 13.33333 NA NA 14.3 5 5
## 6 66 18.88889 28 NA 14.9 5 6
# Carregando o pacote DT
library(DT)
# Criando a tabela
datatable(
airquality,
options = list(
pageLength = 10,
lenghtMenu = list(c(5, 10, 15))
),
caption = "Tabela Interativa: Qualidade do ar em Nova York (1973)"
)
\[
P(H_i | D) = \frac{P(D | H_i) \, P(H_i)}{\sum_{j=1}^{n} P(D | H_j) \,
P(H_j)}
\]
\[
\frac{d^n}{dx^n}[f(x)g(x)] = \sum_{k=0}^{n} \binom{n}{k} f^{(k)}(x)
g^{(n-k)}(x)
\]
\[
\chi^2 = (\mathbf{x} - \boldsymbol{\mu})^\top \boldsymbol{\Sigma}^{-1}
(\mathbf{x} - \boldsymbol{\mu})
\]
\[
i \hbar \frac{\partial \Psi(\mathbf{r}, t)}{\partial t} =
\left( -\frac{\hbar^2}{2m} \nabla^2 + V(\mathbf{r}, t) \right)
\Psi(\mathbf{r}, t)
\]
\[
f(\mathbf{x}) \approx f(\mathbf{a}) +
\nabla f(\mathbf{a})^\top (\mathbf{x} - \mathbf{a}) +
\frac{1}{2} (\mathbf{x} - \mathbf{a})^\top H_f(\mathbf{a}) (\mathbf{x} -
\mathbf{a}) + \cdots
\]
[Cao (2017)] [Brady (2019)] [Donoho (2017)] [Igual and Seguı́ (2024)] [Van Der Aalst (2016)]