R Notebook

#Faza Syifa Wibowo
#5003251201
#Assignment 3

#soal 1A
eksponensial <- function (x, n){
  sum <- 1
  for (i in 1:n ){
    sum <- sum + x^i/factorial(i)
    
  }
  return (sum)
}
eksponensial (-1, 5)

[1] 0.3666667

#soal 1B
faktorial <- function (x){
  fakt <- 1
  if (x <= 0){
    return (1)
  }else{
    for (i in 1:x){
      fakt <- fakt*i
    }
    return (fakt)
  }
}

sin_function <- function(x){
  sum <- x
  
  i <- 1
  suku <- 1
  
  while (suku > 10^(-5)){
    pembilang <- x^(2*i + 1)
    penyebut <- sum + (-1)^i * suku
    
    i = i+1
  }
  return (sum)
}

sin_function (pi/6)

#soal 2
data <- c(4.1, 4.9, 6.2, 6.9, 6.8, 4.4, 5.7, 5.8, 6.9, 4.7, 6.9)
moving_average <- function (data){
  n <- length (data)
  mt <- rep(NA, n) 
  
  for (t in 3:n){
    mt [t] <- (data[t] + data[t] + data[t-2]) / 3
  }
  return (mt)
}

moving_average(data)

 [1]       NA       NA 5.500000 6.233333 6.600000 5.233333 6.066667 5.333333 6.500000 5.066667 6.900000