# Carregar dataset mtcars
data("mtcars")
# Criar nova variável "Tipo_Carro" com base no peso
mtcars_mod <- mtcars %>%
mutate(Tipo_Carro = case_when(
wt < 2.0 & cyl <= 4 & hp < 100 ~ "Compacto", # Peso baixo, 4 cilindros, potência baixa
wt >= 2.0 & wt < 2.8 & cyl <= 4 & hp < 120 ~ "Sedan", # Peso moderado, 4 cilindros, potência moderada
wt >= 2.8 & cyl > 4 ~ "SUV", # Peso maior e mais cilindros (normalmente SUVs)
wt >= 2.5 & cyl > 4 & hp >= 120 ~ "SUV", # SUVs mais potentes com maior peso
TRUE ~ "Sedan" # Caso não se encaixe nas condições anteriores
)) %>%
arrange(wt) # Ordenar pelo peso
# Exibir dados manipulados
kable(head(mtcars_mod), caption = "Dados manipulados do conjunto mtcars.")
| mpg | cyl | disp | hp | drat | wt | qsec | vs | am | gear | carb | Tipo_Carro | |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| Lotus Europa | 30.4 | 4 | 95.1 | 113 | 3.77 | 1.513 | 16.90 | 1 | 1 | 5 | 2 | Sedan |
| Honda Civic | 30.4 | 4 | 75.7 | 52 | 4.93 | 1.615 | 18.52 | 1 | 1 | 4 | 2 | Compacto |
| Toyota Corolla | 33.9 | 4 | 71.1 | 65 | 4.22 | 1.835 | 19.90 | 1 | 1 | 4 | 1 | Compacto |
| Fiat X1-9 | 27.3 | 4 | 79.0 | 66 | 4.08 | 1.935 | 18.90 | 1 | 1 | 4 | 1 | Compacto |
| Porsche 914-2 | 26.0 | 4 | 120.3 | 91 | 4.43 | 2.140 | 16.70 | 0 | 1 | 5 | 2 | Sedan |
| Fiat 128 | 32.4 | 4 | 78.7 | 66 | 4.08 | 2.200 | 19.47 | 1 | 1 | 4 | 1 | Sedan |
Explicação: - Criada a variável
Tipo_Carro: - Compacto: peso < 2.5. - Sedan: 2.5 ≤ peso
< 3.5. - SUV: peso ≥ 3.5. - Ordenados os dados pelo peso do
veículo.
# Criar tabela interativa com DT
datatable(mtcars_mod, options = list(pageLength = 5, autoWidth = TRUE),
caption = 'Tabela interativa do conjunto mtcars manipulados.')
Fórmula de Euler: \[e^{i\pi} + 1 = 0\] Uma das equações mais famosas, conectando os números mais importantes da matemática.
Transformada de Fourier: \[F(k) = \int_{-\infty}^{\infty} f(x)e^{-2\pi i k x} dx\] Transforma uma função no domínio do tempo para o domínio da frequência.
Equação de Onda: \[\frac{\partial^2 u}{\partial t^2} = c^2 \frac{\partial^2 u}{\partial x^2}\] Descreve como as ondas se propagam em um meio.
Equação de Schrödinger: \[i\hbar \frac{\partial}{\partial t}\Psi(x,t) = \hat{H}\Psi(x,t)\] Principio fundamental da mecânica quântica.
Entropia de Shannon: \[H(X) = - \sum_{i=1}^n p(x_i) \log p(x_i)\] Mede a incerteza em uma variável aleatória.