Assignment 3

Fungsi exponen dengan pendekatan Deret Mclaurin mengggunakan input x dan n

mcl <- function(x , n_input){
hasil <- 0
n <- 0:n_input
operasi <- x^n / factorial(n)

hasil <- sum(operasi)

hasil  
}
mcl(-1, 5)

## [1] 0.3666667

Fungsi Mencari Nilai Sin dengan input x pendekatan deret mclaurin

mcl_sin <- function(x){
  hasil <- 0
  k <- 0
  
  while (TRUE){
    operasi <- (-1)^k * x^(2*k +1) / factorial(2*k+1)
    hasil <- hasil + operasi
    
    if (abs(operasi) < 1e-5){
      break
    }
    
    k <- k + 1
  }
  
  return(hasil)
}
mcl_sin(pi/6)

## [1] 0.5

Fungsi untuk menghitung rata-rata bergerak dari suatu data ( 𝑀𝑡(𝑘)).

moving_avg <- function(data, k = 3){
  n <- length(data)
  hasil <- c()
  
  for (i in k:n){
    rata <- mean(data[(i-k+1):i])
    hasil <- c(hasil, rata)
  }
  
  return(hasil)

}
data <- c (4.1 , 4.9, 6.2, 6.9, 6.8, 4.4, 5.7, 5.8, 6.9, 4.7, 6, 4.9 )
moving_avg(data, 3)

##  [1] 5.066667 6.000000 6.633333 6.033333 5.633333 5.300000 6.133333 5.800000
##  [9] 5.866667 5.200000