Agora vou começar a fazer meu trabalho de recuperação
###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 <- 1
b <- 2
c <- 3
a + b## [1] 3a + c## [1] 4b + c## [1] 5###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 <- 4
B <- 6
aux <- A
A <- B
B <- aux
print(A)## [1] 6print(B)## [1] 4C = (F-32) * (5/9)###Exercício 4
Escrever um algoritmo que defina um número X e calcule:
X3 - 4
O resto da divisão de X / 3
X(x/3) + 2
Raiz quadrada de X2
X <- 5
X^3 - 4## [1] 121X / 3## [1] 1.666667X^(X/3) + 2## [1] 16.62009sqrt(X^2)## [1] 5###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###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")###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.
mat <- matrix (1:9, nrow=3,ncol=3)###Exercício 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("Kelly", "Alexandra","Ana"), idade = c(51, 45, 19), cidade= c("RJ" , "RJ" , "RJ"))###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 (<. <. >=, <=, ==, !=).
x <- 2
y <- 4
z <- 2
x < y## [1] TRUEx > y## [1] FALSEx >= z## [1] TRUEx <= y## [1] TRUEx == z## [1] TRUEx != y## [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”.
rua <- "Rua Citeria"
numero <- "260"
bairro <- "Irajá"
endereco <- paste(rua, numero, bairro, ",")
print(endereco)## [1] "Rua Citeria 260 Irajá ,"###Exerecício 11
B. ALGORITMOS – ESTRUTURAS DE DECISÃO E REPETIÇÃO 11) Elabore um algoritmo que:
Crie um vetor com uma sequência de 10 números.
Faça um loop para calcular a soma dos números do vetor.
Utilize o comando “vetor <- c(1:10)” para criar o vetor.
Utilize o comando “for( i in 1:10) { …comandos}” para realizar a soma.
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)
"vetor<-c(1:10)"## [1] "vetor<-c(1:10)""for(i in 1:10){...comandos}"## [1] "for(i in 1:10){...comandos}"soma <- 0
for (i in 1:10) { soma <- soma + vetor [i]}
"vetor[i]"## [1] "vetor[i]"###Exercício 12
A partir do exercício anterior, faça a média dos valores contidos no vetor.
media <- soma / length(vetor)###Exercício 13
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 sintaxe do comando de comparação é: if (x > y) {comandos…} else {comandos}
O comando print(“texto ou variável”) imprime a resposta na tela.
x <- 2
y <- 1
if (x>y){print("x é maior que y")} else {print ("y é maior que x")}## [1] "x é maior que y"###Exercício 14
Repita o exercício “13)” realizando os seguintes ajustes:
if (x<=y){print("x é menor ou igual y")} else {print ("x é maior que y")}## [1] "x é maior que y"###Exercício 15
A partir do exercício “11)”, faça a soma somente dos números pares.
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”.
Utilize o comando de decisão “if” para saber se o número é par (o resto é zero) ou ímpar (o resto é 1).
Crie uma variável auxiliara para guardar o resultado da soma.
vetor <- c(1:10)
soma_pares <- 0
for (i in 1:10) { if (vetor [i] %% 2 == 0){soma_pares <- soma_pares + vetor [i]} }###Exercício 16
Faça um algoritmo que calcule e imprima o fatorial de um número inteiro.
número <- 6
fatorial <- 1
for (i in 1: número){fatorial <- fatorial * i }###Exercício 17
Crie uma matriz 4x4.
Uma matriz no R comporta somente um tipo de dado (número, texto ou boleano).
O comando para criar a matriz é “x <- matrix(data = 1, nrow = 4, ncol = 4, byrow = TRUE)”
x <- matrix ( data = 1, nrow = 4, byrow = TRUE)###Exercício 18
Agora, crie uma matriz com a sequência de 1 a 16.
x <- matrix ( data = 1 : 16, nrow = 4, ncol = 4, byrow = TRUE)###Exercício 19
) Transforme essa matriz em um data.frame
Um data.frame é uma estrutura de dados similar a matriz que pode conter dados diferentes em suas variáveis.
Lembre-se que também chamamos as colunas de variáveis e as linhas de registros.
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.
Utilize o comando “df <- as.data.frame(x)”
df <- as.data.frame(x)###Exercício 20
) Utilizando os comandos de repetição e decisão, calcule:
a média de uma coluna da matriz do exercício “18)”.
A média de todas as colunas da matriz do exercício “18)”.
A média de todas as linhas da matriz do exercício “18)”.
A média dos números pares de todas as colunas da matriz do exercício “18)”.
A média dos números ímpares de todas as linhas da matriz do exercício “18)”.
A soma da diagonal principal da matriz.
A soma da diagonal secundária da matriz (desafio).
soma <- 0
for(i in 1:4){
soma <- soma + x[i,2]
}
media <- soma/4
cat("A média da coluna é: " ,media)## A média da coluna é: 8# A média de todas as colunas do exercício 18.
for(j in 1: dim(x)[2]){
soma <- 0
for(i in 1:dim(x)[1]){
soma <- soma + x [i, j]
}
media <- soma/i
cat("A média da coluna", j, "é:", media, "\n")
}## A média da coluna 1 é: 7
## A média da coluna 2 é: 8
## A média da coluna 3 é: 9
## A média da coluna 4 é: 10for(coluna in 1:4)
for(linha in 1:4){
cat("coluna", coluna, "linha", linha)
}## coluna 1 linha 1coluna 1 linha 2coluna 1 linha 3coluna 1 linha 4coluna 2 linha 1coluna 2 linha 2coluna 2 linha 3coluna 2 linha 4coluna 3 linha 1coluna 3 linha 2coluna 3 linha 3coluna 3 linha 4coluna 4 linha 1coluna 4 linha 2coluna 4 linha 3coluna 4 linha 4# 20c A média de todas as linhas da matriz do exercício 18
for (i in 1:4) {
soma <- 0
for (j in 1:4) {
soma <- soma + x[i, j]
}
media <- soma / 4
print(media)
}## [1] 2.5
## [1] 6.5
## [1] 10.5
## [1] 14.5# 20d A Média dos números pares de todas as colunas.
for (j in 1:4) {
soma <- 0
quantidade <- 0
for (i in 1:4) {
if (x[i, j] %% 2 == 0) {
soma <- soma + x[i, j]
quantidade <- quantidade + 1
}
}
media <- soma / quantidade
print(media)
}## [1] NaN
## [1] 8
## [1] NaN
## [1] 10# 20e A Média dos números ímpares de todas as linhas.
for (i in 1:4) {
soma <- 0
quantidade <- 0
for (j in 1:4) {
if (x[i, j] %% 2 != 0) {
soma <- soma + x[i, j]
quantidade <- quantidade + 1
}
}
media <- soma / quantidade
print(media)
}## [1] 2
## [1] 6
## [1] 10
## [1] 14# 20f A Soma da diagonal principal.
soma <- 0
for (i in 1:4) {
soma <- soma + x[i, i]
}
print(soma)## [1] 34# 20g A Soma da diagonal secundária da matriz
soma <- 0
for (i in 1:4) {
soma <- soma + x[i, 5 - i]
}
print(soma)## [1] 34###Exercício 21
Repita o exercício “20)” com os dados do data.frame do exercício “18)”.
```{r}x <- matrix(} 1:16, nrow = 4, ncol = 4, byrow = TRUE )
###Exercício 22
Crie um loop for que imprime os números de 1 a 10.
``` r
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.
# Criando o vetor de 1 a 100
vetor <- 1:100
# Criando um novo vetor que contenha apenas os números pares do vetor original.
pares <- c()
# Percorrendo o vetor
for (i in 1:100) {
# Verificando se o número é par
if (vetor[i] %% 2 == 0) {
# Adicionando o número ao vetor pares
pares <- c(pares, vetor[i])
}
}
# Imprimindo o vetor com os números pares
print(pares)# Criando o vetor de 1 a 100## [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 100vetor <- 1:100
# Criando um novo vetor que contenha apenas os números pares do vetor original.
pares <- c()
# Percorrendo o vetor
for (i in 1:100) {
# Verificando se o número é par
if (vetor[i] %% 2 == 0) {
# Adicionando o número ao vetor pares
pares <- c(pares, vetor[i])
}
}
# Imprimindo o vetor com os números pares
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
24 Crie uma função chamada “maior_elemento” que recebe um vetor numérico como argumentoe retorna o maior elemento do vetor.
Em seguida, teste a função com o vetor c(10, 5, 8, 2, 20, 15).
maior_elemento <- function(vetor) {
maior <- vetor[1]
for (i in 2:length(vetor)) {
if (vetor[i] > maior) {
maior <- vetor[i]
}
}
return(maior)
}
# Teste da função
v <- c(10, 5, 8, 2, 20, 15)
resultado <- maior_elemento(v)
cat("O maior elemento é:", resultado, "\n")## O maior elemento é: 20