Exercício 1) - Dadas 3 variáveis com valores numéricos, apresentar o resultado da soma das combinações dois a dois destes três números. Por exemplo, variáveis A, B e C, mostrar A + B, A + C, B + C.
A <- 2 B <- 3 C <- 4
A + B ## [1] 5 A + C ## [1] 6 B + C ## [1] 7 Exercício 2) Definir duas variáveis A e B e trocar seus valores. Ex: Entrada: A=6 e B=8 Saída: A=8 e B=6.
A <- 6 B <- 8
Aux <- A A <- B B <- Aux
print(A) ## [1] 8 print(B) ## [1] 6 Exercício 3) Converter uma temperatura de Fahrenheit para Centígrados. C = (F - 32) * ( 5 / 9 ).
F <- 180
C <- (F - 32) * ( 5 / 9 )
cat(“A temperatura de”, F, “°F equivale a”, C, “°C.”) ## A temperatura de 180 °F equivale a 82.22222 °C. Exercício 4) Escrever um algoritmo que defina um número X e calcule:
X3 - 4 X <- 10
a <- (X^3)-4 cat(“X3 - 4=”, a, “”) ## X3 - 4= 996 O resto da divisão de X / 3 b <- X %% 3 cat(“X/3=”, b, “”) ## X/3= 1 X(x/3) + 2 c <- X * (X / 3) + 2 cat(“X(x/3)+2=”, c, “”) ## X(x/3)+2= 35.33333 Raiz quadrada de X2 d <- sqrt(X^2) cat(“Raiz quadrada de X2=”, d, “”) ## Raiz quadrada de X2= 10 Exercício 5) Crie um vetor numérico com os números de 1 a 10 e armazene-o em uma variável chamada “numeros”. Em seguida, imprima o vetor.
numeros <- 1:10
print(numeros) ## [1] 1 2 3 4 5 6 7 8 9 10 Exercício 6) Crie um vetor de caracteres com os nomes dos dias da semana e armazene-o em uma variável chamada “dias”. Em seguida, imprima o vetor.
dias <- c(“Segunda-feira”, “Terça-feira”, “Quarta-feira”, “Quinta-feira”, “Sexta-feira”, “Sábado”, “Domingo”)
print(dias) ## [1] “Segunda-feira” “Terça-feira” “Quarta-feira” “Quinta-feira” ## [5] “Sexta-feira” “Sábado” “Domingo” Exercício 7) Crie uma matriz 3x3 com os números de 1 a 9 e armazene-a em uma variável chamada “matriz”. Em seguida, imprima a matriz.
matriz <- matrix(1:9, nrow = 3, ncol = 3)
print(matriz) ## [,1] [,2] [,3] ## [1,] 1 4 7 ## [2,] 2 5 8 ## [3,] 3 6 9 8)Crie um data-frame com as informações de 3 pessoas: nome (caracter), idade (numérico) e cidade natal (caracter). Armazene o data-frame em uma variável chamada “pessoas” e imprima-o.
pessoas <- data.frame(nome = c(“Geandro”, “Adriene”, “Samuel”), idade = c(35, 32, 5), cidade_natal = c(“Rio de Janeiro”, “Rio de Janeiro”, “Rio de Janeiro”))
print(pessoas) ## nome idade cidade_natal ## 1 Geandro 35 RIo de Janeiro ## 2 Adriene 32 Rio de Janeiro ## 3 Samuel 5 Rio de Janeiro Exercício 9) Limpe as variáveis que estão no sistema e em seguida crie 3 variáveis, x, y e z e atribua valores numéricos para elas. Em seguida realize comparações entre elas (utilize TODOS os operadores de comparação (<. <. >=, <=, ==, !=).
rm(list = ls()) x <- 20 y <- 30 z <- 40
menor <- x < y
maior <- y > z
maior_igual <- x >= z
menor_igual <- y <= x
igual <- x == z
diferente <- x != y
print(menor) ## [1] TRUE print(maior) ## [1] FALSE print(maior_igual) ## [1] FALSE print(menor_igual) ## [1] FALSE print(igual) ## [1] FALSE print(diferente) ## [1] TRUE Exercício 10) Limpe as variáveis que estão no sistema e em seguida crie 3 variáveis, “rua”, “numero” e “bairro” e atribua valores (texto) para elas. Em seguida concatene essas variáveis em uma terceira chamada “endereco”.
rm(list = ls())
rua <- “Rua Pícui” numero <- “780” bairro <- “Bento Ribeiro”
endereco <- paste(rua, numero, bairro) print(endereco) ## [1] “Rua Miguel Fernandes 8 Méier” Exercício 11) Elabore um algoritmo que: a) Crie um vetor com uma sequência de 10 números. b) Faça um loop para calcular a soma dos números do vetor. c) Utilize o comando “vetor <- c(1:10)” para criar o vetor. d) Utilize o comando “for( i in 1:10) { …comandos}” para realizar a soma. e) Referencie os valores do vetor com o comando: “vetor[i]”, onde “i” é o índice referência (número) Ex. vetor: 1,2,3,4,5,6,7,8,9,10 | Soma dos números = 55.
vetor <- c(1:10) print(vetor) ## [1] 1 2 3 4 5 6 7 8 9 10 soma <- 0 for(i in 1:10){soma <- soma + vetor[i]} print(soma) ## [1] 55 Exercício 12) A partir do exercício anterior, faça a média dos valores contidos no vetor.
media <- soma/i print(media) ## [1] 5.5 Exercício Crie duas variáveis, x e y. Compare se x é maior que y. Se for, imprima “x é maior que y”, se não for, imprima “y é maior que x”. a) A sintaxe do comando de comparação é: if (x > y) {comandos…} else {comandos} b) O comando print(“texto ou variável”) imprime a resposta na tela.
x <- 10 y <- 20
if(x > y){ print(“x é maior que y”) }else{ print(“y é maior que x”) } ## [1] “y é maior que x” Exercício Repita o exercício “7)” realizando os seguintes ajustes: a) Substitua o sinal de maior (“>”) pelo de menor ou igual (“<=”) e ajuste dos dizeres da resposta.
x <- 10 y <- 20
if(x <= y){ print(“x é menor ou igual y”) }else{ print(“y é menor ou igual x”) } ## [1] “x é menor ou igual y” Exercício 15) A partir do exercício “5)”, faça a soma somente dos números pares. a) Utilize o comando “%%” para identificar o resto da divisão. Ex: “5%%2”, cinco dividido por dois terá como resto “1”. Ou seja, o resultado dessa operação será “1”. 2 b) Utilize o comando de decisão “if” para saber se o número é par ou ímpar.
numeros <- c(1:10) soma_pares <- 0 for(i in 1:10){if(i%%2 == 0){soma_pares <- soma_pares + vetor[i]}}
cat(“A soma dos números pares é”, soma_pares) ## A soma dos números pares é 30 Exercício 16) Faça um algoritmo que calcule e imprima o fatorial de um número inteiro.
fatorial <- 1 for(i in 1:5){fatorial <- fatorial * i} print(fatorial) ## [1] 120 Exercício 17) Crie uma matriz 4x4. a) Uma matriz no R comporta somente um tipo de dado (número, texto ou boleano). b) O comando para criar a matriz é “x <- matrix(data = 1, nrow = 4, ncol = 4, byrow = TRUE)”
matriz <- matrix(data=1, nrow=4, ncol=4, byrow=TRUE) print(matriz) ## [,1] [,2] [,3] [,4] ## [1,] 1 1 1 1 ## [2,] 1 1 1 1 ## [3,] 1 1 1 1 ## [4,] 1 1 1 1 Exercício 18) Agora, crie uma matriz com a sequência de 1 a 16.
matriz <- matrix(data=1:16, nrow=4, ncol=4, byrow=TRUE) print(matriz) ## [,1] [,2] [,3] [,4] ## [1,] 1 2 3 4 ## [2,] 5 6 7 8 ## [3,] 9 10 11 12 ## [4,] 13 14 15 16 Exercício 19) Transforme essa matriz em um data.frame a) Um data.frame é uma estrutura de dados similar a matriz que pode conter dados diferentes em suas variáveis. b) Lembre-se que também chamamos as colunas de variáveis e as linhas de registros. c) Uma variável (coluna) não pode conter dados diferentes. Ou todas as linhas dessa variável são números, ou todas são texto, ou ainda, boleanos. d) Utilize o comando “df <- as.data.frame(x)”
df <- as.data.frame(matriz) print(df) ## V1 V2 V3 V4 ## 1 1 2 3 4 ## 2 5 6 7 8 ## 3 9 10 11 12 ## 4 13 14 15 16 Exercício 20) Utilizando os comandos de repetição e decisão (se for necessário), calcule: a) a média de uma coluna da matriz do exercício “12)”. b) A média de todas as colunas da matriz do exercício “12)”. c) A média de todas as linhas da matriz do exercício “12)”. d) A média dos números pares de todas as colunas da matriz do exercício “12)”. e) A média dos números ímpares de todas as linhas da matriz do exercício “12)”. f) A soma da diagonal principal da matriz. g) A soma da diagonal secundária da matriz (desafio).
Exercício 21) Repita o exercício “14)” com os dados do data.frame do exercício “13)”.
Exercício 22) Crie um loop for que imprime os números de 1 a 10.
for(i in 1:10){print (i)} ## [1] 1 ## [1] 2 ## [1] 3 ## [1] 4 ## [1] 5 ## [1] 6 ## [1] 7 ## [1] 8 ## [1] 9 ## [1] 10 Exercício 23) Crie um vetor numérico com os números de 1 a 100. Em seguida, crie um novo vetor que contenha apenas os números pares do vetor original.
vetor <- c(1:100) print(vetor) ## [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 ## [19] 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 ## [37] 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 ## [55] 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 ## [73] 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 ## [91] 91 92 93 94 95 96 97 98 99 100 pares <- c() for(i in 1:100){if(i%%2 == 0) pares <- c(pares, vetor[i])} print(pares) ## [1] 2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 ## [20] 40 42 44 46 48 50 52 54 56 58 60 62 64 66 68 70 72 74 76 ## [39] 78 80 82 84 86 88 90 92 94 96 98 100
Exercício 24) Função maior elemento maior_elemento <- function(vet) { max_val <- vet[1] for(i in 2:length(vet)) { if(vet[i] > max_val) { max_val <- vet[i] } } return(max_val) } vet_test <- c(10, 5, 8, 2, 20, 15) print(maior_elemento(vet_test)) # 20