Lógica vetorizada - Parte 2

Parte da seção Fundamentos do Journey de R da Coddy. Lição 21 de 78.

Assim como AND e OR têm versões vetorizadas, o operador NOT também funciona elemento a elemento em vetores. Quando você aplica ! a um vetor de valores lógicos, ele inverte cada elemento individualmente.

passed <- c(TRUE, FALSE, TRUE, FALSE)
!passed  # FALSE TRUE FALSE TRUE

Cada TRUE se torna FALSE, e cada FALSE se torna TRUE. Isso é particularmente útil quando você quer encontrar elementos que não atendem a uma determinada condição:

temperatures <- c(18, 25, 30, 15, 22)

# Encontre temperaturas que NÃO estão acima de 20
!(temperatures > 20)  # TRUE FALSE FALSE TRUE FALSE

Você pode combinar o NOT vetorizado com & e | para criar filtros complexos:

ages <- c(16, 25, 18, 30, 14)
has_permission <- c(TRUE, TRUE, FALSE, TRUE, TRUE)

# Pode participar se: idade >= 18 OR (menor de 18 AND tem permissão)
can_participate <- ages >= 18 | (ages < 18 & has_permission)
# TRUE TRUE FALSE TRUE TRUE

Lembre-se: use &, | e ! simples ao trabalhar com vetores, e && e || duplos ao comparar valores individuais.

Desafio

Fácil

Use o operador NOT vetorizado (!) junto com & e | para criar condições lógicas complexas elemento a elemento.

Os seguintes vetores são fornecidos:

scores <- c(45, 72, 88, 55, 91, 38, 67)
attended <- c(TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE)
submitted_homework <- c(TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE)

Use operadores lógicos vetorizados, incluindo o operador NOT, para criar os seguintes vetores lógicos:

Crie um vetor chamado failed que armazene TRUE para cada nota que NÃO seja maior ou igual a 60
Crie um vetor chamado absent que armazene o oposto de attended (inverta cada valor)
Crie um vetor chamado at_risk que armazene TRUE para cada estudante que NÃO tenha comparecido OU que NÃO tenha enviado a tarefa
Crie um vetor chamado passing_but_absent que armazene TRUE para cada estudante que tenha uma nota maior ou igual a 60 E que NÃO tenha comparecido
Crie um vetor chamado needs_support que armazene TRUE para cada estudante em que: (a nota seja menor que 50) OU (o estudante NÃO tenha comparecido E NÃO tenha enviado a tarefa)

Use a função print() para exibir failed, absent, at_risk, passing_but_absent e needs_support exatamente nessa ordem.

Experimente você mesmo

# Vetores dados
scores <- c(45, 72, 88, 55, 91, 38, 67)
attended <- c(TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, TRUE)
submitted_homework <- c(TRUE, FALSE, TRUE, TRUE, TRUE, FALSE, FALSE)

# TODO: Escreva seu código abaixo
# 1. Crie 'failed' - TRUE para scores NOT >= 60

# 2. Crie 'absent' - oposto de attended

# 3. Crie 'at_risk' - NOT attended OR NOT submitted homework

# 4. Crie 'passing_but_absent' - score >= 60 AND NOT attended

# 5. Crie 'needs_support' - (score < 50) OR (NOT attended AND NOT submitted homework)

# Imprima os resultados
print(failed)
print(absent)
print(at_risk)
print(passing_but_absent)
print(needs_support)