if (condition) true_action

if (condition) true_action else false_action

x = "Leonardo"
if(class(x)=="character"){
  cat(" O objeto x=",x,"é da classe character",sep=" ")
}
#>  O objeto x= Leonardo é da classe character

x = 1

if(class(x)=="character"){
  paste(" O objeto x=",x,"é da classe character",sep=" ")
} else{
  paste(" O objeto x=",x,"não é da classe character",sep=" ")
}
#> [1] " O objeto x= 1 não é da classe character"

x = 70
 if (x >= 90 & x <= 100) {
    "A"
  } else if (x >= 80 & x < 90) {
    "B"
  } else {
    "C"
  }
#> [1] "C"

x = 80
 if (x >= 100 | x <= 70) {
    "Extremo"
  } else {
    "Não é extremo"
  } 
#> [1] "Não é extremo"

x = 1:10
ifelse(x %% 2 == 0, "par", "ímpar")
#>  [1] "ímpar" "par"   "ímpar" "par"   "ímpar" "par"   "ímpar" "par"   "ímpar"
#> [10] "par"

for (variavel in sequencia) {
  # código a ser executado em cada iteração
}

for (i in 1:5) {
  quadrado <- i^2
  cat("O quadrado de", i, "é", quadrado, "\n")
}
#> O quadrado de 1 é 1 
#> O quadrado de 2 é 4 
#> O quadrado de 3 é 9 
#> O quadrado de 4 é 16 
#> O quadrado de 5 é 25

soma <- 0
for (i in 1:10) {
  soma <- soma + i
}
cat("A soma dos primeiros 10 números naturais é:", soma, "\n")
#> A soma dos primeiros 10 números naturais é: 55

cumsum(1:10) # forma alternativa
#>  [1]  1  3  6 10 15 21 28 36 45 55

n = 10 # linhas
m=3 # colunas
matrix_normal = matrix(0,nrow = n,ncol = m) # criando a matriz

set.seed(2) # gerar sempre as mesmas amostras
for(k in 1:m){
  x = rnorm(n,mean = 0,sd = 1) # gerando amostra da distribuição normal
  matrix_normal[,k] <- x # guardando a amostra gerada na coluna
}
matrix_normal
#>              [,1]        [,2]         [,3]
#>  [1,] -0.89691455  0.41765075  2.090819205
#>  [2,]  0.18484918  0.98175278 -1.199925820
#>  [3,]  1.58784533 -0.39269536  1.589638200
#>  [4,] -1.13037567 -1.03966898  1.954651642
#>  [5,] -0.08025176  1.78222896  0.004937777
#>  [6,]  0.13242028 -2.31106908 -2.451706388
#>  [7,]  0.70795473  0.87860458  0.477237303
#>  [8,] -0.23969802  0.03580672 -0.596558169
#>  [9,]  1.98447394  1.01282869  0.792203270
#> [10,] -0.13878701  0.43226515  0.289636710

# forma alternativa
set.seed(2)
replicate(m,rnorm(n,mean = 0,sd = 1))
#>              [,1]        [,2]         [,3]
#>  [1,] -0.89691455  0.41765075  2.090819205
#>  [2,]  0.18484918  0.98175278 -1.199925820
#>  [3,]  1.58784533 -0.39269536  1.589638200
#>  [4,] -1.13037567 -1.03966898  1.954651642
#>  [5,] -0.08025176  1.78222896  0.004937777
#>  [6,]  0.13242028 -2.31106908 -2.451706388
#>  [7,]  0.70795473  0.87860458  0.477237303
#>  [8,] -0.23969802  0.03580672 -0.596558169
#>  [9,]  1.98447394  1.01282869  0.792203270
#> [10,] -0.13878701  0.43226515  0.289636710

# Criar uma matriz 3x3
matriz <- matrix(0, nrow = 3, ncol = 3)

# Preencher a matriz com números sequenciais usando um loop for
contador <- 1

for (i in 1:3) {
  for (j in 1:3) { # fixa o i e varia o j
    matriz[i, j] <- contador 
    contador <- contador + 1
  }
}

print(matriz)
#>      [,1] [,2] [,3]
#> [1,]    1    2    3
#> [2,]    4    5    6
#> [3,]    7    8    9

while (condition) {
  # código executado enquanto a condição for verdade 
}

i = 0
while(i<5){
  cat(i,"é menor que 5","\n")
  i = i+1
}
#> 0 é menor que 5 
#> 1 é menor que 5 
#> 2 é menor que 5 
#> 3 é menor que 5 
#> 4 é menor que 5

numero_escolhido <- 6
resultado_dado = 1
while (resultado_dado!=numero_escolhido) {
  resultado_dado = sample(1:6,1,replace = T,prob = NULL) # sorteando número de 1 a 6
  cat("Número do dado é",resultado_dado,"\n")
}
#> Número do dado é 1 
#> Número do dado é 2 
#> Número do dado é 4 
#> Número do dado é 5 
#> Número do dado é 6

repeat {
  # código será executado repetidamente 
  if (condition) {
    break  # se a condição for satisfeita, para a repetição 
  }
}

# Gera um número aleatório entre 1 e 10
numero_correto <- sample(1:10, 1,replace = T)

# Inicializa a variável para armazenar a tentativa do usuário
tentativa_usuario <- NULL

# Use um loop repeat para continuar o jogo até que o número correto seja adivinhado
repeat {
  # Solicita que o usuário insira uma tentativa
  tentativa_usuario <- as.integer(readline("Tente adivinhar o número (entre 1 e 10): "))
  
  # Verifica se a tentativa do usuário é correta
  if (tentativa_usuario == numero_correto) {
    cat("Parabéns! Você adivinhou corretamente.\n")
    break  # Sai do loop quando adivinha corretamente
  } else {
    cat("Tente novamente. Dica: ", ifelse(tentativa_usuario < numero_correto, "Tente um número maior.", "Tente um número menor."), "\n")
  }
}

media = 30
desvio_padrao = 5
erro = 10^(-3) # escolha com cuidado, pode travar o computador
n = 1 # tamanho da amostra inicial
crescimento_do_n = 3 # se a condição não for satisfeita, o n anterior será multiplicado por 3
# escolha com cuidado, pode travar o computador

repeat{
  x = rnorm(n,mean = media,sd = desvio_padrao) # gerando amostra
  media_x = mean(x) # média da amostra
  
  if(abs(media_x-media)<erro){
    cat("n=",n,"media_x"=",media_x=",media_x,"\n")
    break
  }else{
    n = n*crescimento_do_n
     cat("n=",n,"media_x"=",media_x",media_x,"\n")
  }
}

numero = 1
dia <- switch(numero,
                "1"="Domingo",
                "2"="Segunda-feira",
                "3"="Terça-feira",
                "4"="Quarta-feira",
                "5"="Quinta-feira",
                "6"="Sexta-feira",
                "7"="Sábado"
               )
cat("O dia correspondente ao número", numero, "é", dia, "\n")
#> O dia correspondente ao número 1 é Domingo

PROP = "25%"
prop <- switch (PROP,
    "25%" = 0.25,
    "50%" = 0.5,
    "75%" = 0.75
  )
prop
#> [1] 0.25