R Notebook

#Nama : Cahya Abiyu Dzikrulloh #NRP : 5003251009 #Kelas: Komstat D

exp_mclaurin <- function(x, n) {
  hasil <- 0
  
  for (i in 0:n) {
    hasil <- hasil + (x^i) / factorial(i)
  }
  
  return(hasil)
}

exp_mclaurin(-1, 5)

## [1] 0.3666667

sin_maclaurin <- function(x) {
  hasil <- 0
  i <- 0
  suku <- x  # suku pertama
  
  while (abs(suku) >= 1e-5) {
    suku <- ((-1)^i * x^(2*i + 1)) / factorial(2*i + 1)
    hasil <- hasil + suku
    i <- i + 1
  }
  
  return(hasil)
}


sin_maclaurin(pi/6)

## [1] 0.5

data <- c(4.1, 4.9, 6.2, 6.9, 6.8, 4.4, 5.7, 5.8, 6.9, 4.7, 6.0, 4.9)

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

moving_average(data, 3)

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