Exercícios - parte 1

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 à 4a potência?

#   Quantos segundos há em uma semana? 
segundos_minutos = 60
segundos_horas = segundos_minutos * 60
segundos_dias = segundos_horas * 24
segundo_semanas = segundos_dias * 7

segundo_semanas # 604800

[1] 604800

#   Qual é a raiz quadrada de 2025?
sqrt(2025) # 45

[1] 45

#   Quanto é 7 elevado à 4ª potência?
7^4 # 2401

[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, 30, 35, 33, 25, 32, 27)

mean(temperaturas, na.rm = TRUE)

[1] 30

max(temperaturas, na.rm = TRUE)

[1] 35

min(temperaturas, na.rm = TRUE)

[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)

# Quantos alunos foram aprovados ?
aprovados <- notas[notas >= 7]

length(aprovados) # 5

[1] 5

# Qual é a média da turma? 

mean(notas, na.rm = TRUE)

[1] 6.15

# Qual é a média apenas dos aprovados?
mean(aprovados, na.rm = TRUE)

[1] 8

Exercício 4 — Desafio

Crie um vetor com 5 cidades nordestinas 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.

cidades = c("Garanhuns", "Recife", "Caruaru", "Gravata", "Bezerros")
populacoes = c(142506, 1488920, 378048, 86516, 61694)

names(populacoes) <- cidades

populacoes[which.max(populacoes)]

 Recife 
1488920 

populacoes[which.min(populacoes)]

Bezerros 
   61694