data("mtcars")
head(mtcars, 5)
## mpg cyl disp hp drat wt qsec vs am gear carb
## Mazda RX4 21.0 6 160 110 3.90 2.620 16.46 0 1 4 4
## Mazda RX4 Wag 21.0 6 160 110 3.90 2.875 17.02 0 1 4 4
## Datsun 710 22.8 4 108 93 3.85 2.320 18.61 1 1 4 1
## Hornet 4 Drive 21.4 6 258 110 3.08 3.215 19.44 1 0 3 1
## Hornet Sportabout 18.7 8 360 175 3.15 3.440 17.02 0 0 3 2
# Ordenar por milhas por (mpg)
mtcars_sorted <- mtcars %>%
arrange(desc(mpg)) %>%
select(mpg, cyl, disp, hp, wt)
# Filtrar carros com 6 cilindros
mtcars_filtered <- mtcars_sorted %>%
filter(cyl == 6)
# Adicionar potência por peso (hp/wt)
mtcars_filtered <- mtcars_filtered %>%
mutate(hp_per_wt = hp / wt)
mtcars_filtered
## mpg cyl disp hp wt hp_per_wt
## Hornet 4 Drive 21.4 6 258.0 110 3.215 34.21462
## Mazda RX4 21.0 6 160.0 110 2.620 41.98473
## Mazda RX4 Wag 21.0 6 160.0 110 2.875 38.26087
## Ferrari Dino 19.7 6 145.0 175 2.770 63.17690
## Merc 280 19.2 6 167.6 123 3.440 35.75581
## Valiant 18.1 6 225.0 105 3.460 30.34682
## Merc 280C 17.8 6 167.6 123 3.440 35.75581
datatable(mtcars_filtered,
options = list(pageLength = 5,
autoWidth = TRUE,
order = list(1, 'desc')))
O Teorema de Pitágoras é dado pela fórmula: \(a^2 + b^2 = c^2\)
A fórmula de Baskara é a seguinte: \(x = \frac{-b \pm \sqrt{b^2 - 4ac}}{2a}\)
A soma dos primeiros \(n\) termos de uma PA é dada por: \(S_n = \frac{n \cdot (a_1 + a_n)}{2}\)
A soma dos primeiros \(n\) termos de uma PG é dada por: \(S_n = \frac{a_1 \cdot(q^n - 1)}{q - 1}\)
Fórmula lei de Força Elétrica: \(F = k_e \frac{|q_1 q_2|}{r^2}\)
da Silva et al. (2023) Boulic and Renault (1991) Nigro (1984) Smith and Jones (1999) Lane (1993)