Resolução da Atividade 2

—————————————————————————–

AULA 5 - Operações Básicas no R

2026.2

Caroline Sanmartin Lima

UFSM

Códigos Referentes ao Capítulo 5 do Livro de ADAR

—————————————————————————–

# Exemplo de operação
1 : 10

 [1]  1  2  3  4  5  6  7  8  9 10

## ----operação1--------------------------------------------------------------------
15 + 6^2/3 - pi

[1] 23.85841

## ----operação2--------------------------------------------------------------------
15 + ((6^2)/3) - pi   # Uso de parênteses para fixar ordem

[1] 23.85841

(15 + 6^2)/3 - pi

[1] 13.85841

15 + 6^2/(3 - pi)

[1] -239.2505

15 + 6^(2/3) - pi

[1] 15.16033

## -----operação3-------------------------------------------------------------------
14 %% 3   # Resto da divisão

[1] 2

15 %% 3

[1] 0

## -----operação4-------------------------------------------------------------------
17 / 4    # Divisão exata

[1] 4.25

17 %/% 4  # Divisão inteira

[1] 4

## ----operação5--------------------------------------------------------------------
8/100000

[1] 8e-05

## -----operação6-------------------------------------------------------------------
8e-5

[1] 8e-05

8E-5

[1] 8e-05

8 * 10^-5

[1] 8e-05

## ----operação7------------------------------------------------------------------
# opção de dígitos padrão
pi

[1] 3.141593

getOption("digits")

[1] 7

pi

[1] 3.141593

# alterando para 10
options(digits = 10)
pi

[1] 3.141592654

getOption("digits")

[1] 10

# redefinindo para o número de casas decimais padrão
options(digits = 7)
getOption("digits")

[1] 7

pi

[1] 3.141593

## ----operação8, message=FALSE---------------------------------------------------
exp(-Inf)

[1] 0

exp(Inf)

[1] Inf

plot(x = -5:5, y = exp(-5:5), type = "o")

(0:1)^Inf

[1] 0 1

0/Inf

[1] 0

0/50

[1] 0

(-1 * Inf)^0

[1] 1

50^0

[1] 1

# NA: valor faltante
NA + 10

[1] NA

exp(NA)

[1] NA

NA / NaN

[1] NA

palavra <- "programacao"
letras_sep <- c("p", "r", "o", "g", "r", "a", "m", "c")
letras_sep

[1] "p" "r" "o" "g" "r" "a" "m" "c"

# vetor com dados de umidade relativa do ar (%)
umidade_diaria <- c(62, 65, 70, NA, 68, NA)
umidade_diaria

[1] 62 65 70 NA 68 NA

mean(umidade_diaria, na.rm = TRUE)

[1] 66.25

## ----operação9-------------------------------------------------------------------
# seno de 45°
angulo_graus <- 45
angulo_rad <- angulo_graus * pi / 180
sin(angulo_rad)

[1] 0.7071068

## ----operação10-------------------------------------------------------------------
# raiz quadrada de 144
sqrt(144)

[1] 12

sqrt(x = 144)

[1] 12

## ----operação11-------------------------------------------------------------------
log(27, base = 3)

[1] 3

log(x = 27, base = 3) # Chamada explícita de argumentos

[1] 3

log(base = 3, x = 27)

[1] 3

# função para substituir uma string por outra
gsub(pattern = "a", replacement = "X", x = "banana")

[1] "bXnXnX"

## ----operação12-------------------------------------------------------------------
# exponencial de 2
exp(2)

[1] 7.389056

# fatorial de 5 (5*4*3*2*1)
factorial(5) 

[1] 120

# logaritmo de 27 na base 3
log(x = 27, base = 3) 

[1] 3

log(27, 3)        

[1] 3

## -----------------------------------------------------------------------------
m <- 700
# para mostrar a variável digite o nome da variável
m

[1] 700

# ou use a função print()
print(m)

[1] 700

## -------------error=TRUE------------------------------------------------------
m

[1] 700

# M não existe 

## -------------eval = FALSE----------------------------------------------------
g <- 10   # não imprime nada
g         # digitando o nome da variável também mostra o valor de g

[1] 10

(g <- 10) # a mesma chamada com parênteses define e mostra o valor de g

[1] 10

## -----echo = FALSE, eval = TRUE-----------------------------------------------
g <- 9.81   # não imprime nada
g         # digitando o nome da variável também mostra o valor de g

[1] 9.81

(g <- 9.81) # a mesma chamada com parênteses define e mostra o valor de g

[1] 9.81

## -----echo = FALSE, eval = TRUE-----------------------------------------------
g <- 9.81   # não imprime nada


## -----------------------------------------------------------------------------
(p <- m * g)

[1] 6867

## -----------------------------------------------------------------------------
ls() # listar objetos na sessão de trabalho

[1] "angulo_graus"   "angulo_rad"     "g"              "letras_sep"    
[5] "m"              "p"              "palavra"        "umidade_diaria"

## -----------------------------------------------------------------------------
rm(m)
ls()

[1] "angulo_graus"   "angulo_rad"     "g"              "letras_sep"    
[5] "p"              "palavra"        "umidade_diaria"

## -----------------------------------------------------------------------------
rm(g, p, umidade_diaria)
ls()

[1] "angulo_graus" "angulo_rad"   "letras_sep"   "palavra"     

## -------------eval = FALSE----------------------------------------------------
## # apagando tudo
rm(list = ls())
## ls()
m <- 700
g <- 9.81
p <- m * g
p <- 20

## --------------eval=FALSE------------------------------------------------------
# Exemplos com ERROS de sintaxe ao nomear variáveis:
# 2oSemestre <- 2026        # Erro: não pode começar com número
# raizDe16 <- sqrt(9)       # Incoerência no nome/valor
# valor total <- 150.5      # Erro: não pode ter espaço no nome


## -------------eval=FALSE------------------------------------------------------
## # Nomes alternativos e válidos para as variáveis
semestre2 <- 2026
valor_total <- 150.5
valor.total <- 155.0


## -------------error=TRUE------------------------------------------------------
# Operadores e caracteres especiais proibidos: ^, !, $, @, +, -, /, *
# mes-1 <- 5                # Erro: R entende como a operação "mes minus 1"

# Alternativa correta:
mes_1 <- 5

## -----------------------------------------------------------------------------
# Variáveis com acentuação (válido no R, mas evitado na prática)
primavera <- "MAM"
primavera

[1] "MAM"