A apostila contendo o conteúdo e os exercícios estão disponíveis em https://resendejss.github.io/introducaoALinguagemR/

Exercício 01

Crie uma matriz com a sequência de 1 a 20, contendo 4 linhas

matriz <- matrix(1:20, nrow = 4)
matriz
##      [,1] [,2] [,3] [,4] [,5]
## [1,]    1    5    9   13   17
## [2,]    2    6   10   14   18
## [3,]    3    7   11   15   19
## [4,]    4    8   12   16   20

Exercício 02

Calcule a média de todas as colunas da matriz do exercício anterior.

# exemplo 01
colMeans(matriz)
## [1]  2.5  6.5 10.5 14.5 18.5
# exemplo 02
mean(matriz[,1])
## [1] 2.5
mean(matriz[,2])
## [1] 6.5
mean(matriz[,3])
## [1] 10.5
mean(matriz[,4])
## [1] 14.5
mean(matriz[,5])
## [1] 18.5

Exercício 03

Calcule a média dos números pares de todas as colunas da matriz do exercício 1.

soma <- 0
n = 0

for (i in 1:ncol(matriz)) {
  for (j in 1:nrow(matriz)) {
    if(matriz[j,i]%%2 == 0){
    soma = soma + matriz[j,i]
    n = n + 1
    }
  }
}

media <- soma/n
media
## [1] 11

Exercício 04

Crie um objeto com 100 valores aleatórios de uma distribuição uniforme. Quantos elementos são maiores ou iguais a 0,5?

val_ale <- runif(100)

# exemplo 01
val_ale_maior0.5 <- val_ale > 0.5
table(val_ale_maior0.5)
## val_ale_maior0.5
## FALSE  TRUE 
##    55    45
# exemplo 02
table(val_ale > 0.5)
## 
## FALSE  TRUE 
##    55    45
# exemplo 03
length(val_ale[val_ale > 0.5])
## [1] 45