R Notebook

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

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 <- faktorial(2*i + 1)
    suku <- pembilang/penyebut 
    sum <-  sum + (-1)^i * suku
    
    i = i+1
  }
  return(sum)
}

sin_function(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,4.9)
sum <- 0
n <- length(data)

mxt <- function(k){
  sum <- 0
  kantong <- c() 
  
  for(i in 3:n){
    sum = k[i]+k[i-1]+k[i-2] 
    rerata <- sum/3
    kantong <- c(kantong, rerata)
  }
    return(kantong)
}

mxt(data)

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