R - Loop e Fatorial

loopFatorial.R

#Loop

AirPassengers

acumuladora = 0;
vetor = NULL;

for (passenger in AirPassengers) {
  acumuladora = acumuladora + passenger;
  vetor = c(vetor, acumuladora);
}

print(vetor)

?ts

ts(data = vetor, frequency = 12, start = c(1949,1))

air = AirPassengers
for (i in seq_along(AirPassengers)) {
  air[i] = vetor[i]
}
air


#Fatorial

func = function(num){
  
  init = 1;
  for (variable in seq_len(num)) {
    init = init * variable;
  }
  
  init
}

func(3)