Buatlah fungsi untuk mencari turunan ke-k (ordo=k) dari fungsi X pangkat 9 # Membuat Fungsi

Turunan <- function(k) {
  # Fungsi asli: f(x) = x^9
  n <- 9
  
  # Validasi input
  if (k < 0) {
    warning("Ordo turunan harus bilangan bulat >= 0.")
    return(NULL)
  }
  if (k > n) {
    return(0)  # Turunan ke-k dari x^9 untuk k > 9 adalah 0
  }
  
  # Hitung koefisien turunan
  koefisien <- factorial(n) / factorial(n - k)
  
  # Eksponen baru setelah diturunkan
  eksponen_baru <- n - k
  
  # Return bentuk fungsinya (dalam bentuk ekspresi)
  hasil <- paste0(koefisien, "*x^", eksponen_baru)
  return(hasil)
}

Melakukan Uji Coba

Turunan(3)
## [1] "504*x^6"