Exercícios - parte 1

Edneide Ramalho

Exercício 1 — Calculadora R

Use o R para calcular:

  • Quantos segundos há em uma semana?

  • Qual é a raiz quadrada de 2025?

  • Quanto é 7 elevado à 4ª potência?

7 * 24 * 60 * 60
[1] 604800
# Criando objetos
dias = 7
horas_dia = 24
segundos_em_uma_hora = 60 * 60
segundos_em_uma_semana = dias * horas_dia * segundos_em_uma_hora

segundos_em_uma_semana
[1] 604800
# Raiz quadrada de 2025
raiz_2025 = sqrt(2025)
raiz_2025
[1] 45
# Potenciação
7 ^ 4
[1] 2401
7 ** 4
[1] 2401

Exercício 2 — Seu vetor

Crie um vetor chamado temperaturas com as temperaturas máximas de Recife nos últimos 7 dias (invente valores entre 28 e 35°C). Calcule a média, o máximo e o mínimo.

temperaturas <- c(28, 35, 33, 30, 25, 32, 27)
class(temperaturas)
[1] "numeric"
length(temperaturas)
[1] 7
temp_media <- mean(temperaturas, na.rm = TRUE)
temp_max <- max(temperaturas, na.rm = TRUE)
temp_min <- min(temperaturas, na.rm = TRUE)

temp_media
[1] 30
temp_max
[1] 35
temp_min
[1] 25

Exercício 3 — Filtragem

Usando o vetor notas <- c(4.0, 7.5, 8.5, 3.0, 9.0, 6.5, 7.0, 2.5, 8.0, 5.5):

  • Quantos alunos foram aprovados (nota ≥ 7)?

  • Qual é a média da turma?

  • Qual é a média apenas dos aprovados?

notas <- c(4.0, 7.5, 8.5, 3.0, 9.0, 6.5, 7.0, 2.5, 8.0, 5.5)
class(notas)
[1] "numeric"
length(notas)
[1] 10
# Aprovados
aprovados <- notas[notas >= 7]
length(aprovados)
[1] 5
# Média da turma
media_turma <- mean(notas, na.rm = TRUE)
media_turma
[1] 6.15
# Média dos aprovados
media_aprovados <- mean(aprovados, na.rm = TRUE)
media_aprovados
[1] 8

Exercício 4 — Desafio

Crie um vetor com 5 cidades e outro com suas populações (aproximadas). Use

which.max() para descobrir qual cidade tem mais habitantes. Use

?which.max para ver a documentação.

?which.max
# Exemplo
x <- c(1:4, 0:5, 11)
which.min(x)
[1] 5
which.max(x)
[1] 11
x[5]
[1] 0
x[11]
[1] 11
x[which.min(x)]
[1] 0
x[which.max(x)]
[1] 11
cidades <- c("Brasília", "Recife", "Rio de Janeiro", "São Paulo",
             "Natal")
populacoes <- c(3100000, 1600000, 6700000, 12300000, 900000)

names(populacoes) <- cidades
populacoes[which.min(populacoes)]
Natal 
9e+05 
populacoes[which.max(populacoes)]
São Paulo 
 12300000