Assignment 3 Komputasi Statistika D Laskar Brahimanov Riadi

Dibuat oleh Laskar Brahimanov Riadi 5003251048

Nomor 1

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

[1] 0.3666667

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

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

[1] 0.5

Nomor 2

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

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)
Mt3 <- moving_average(data, 3)
hasil <- data.frame(
  t    = 1:length(data),
  Data = data,
  Mt3  = round(Mt3, 2)
)
print(hasil)