#!/usr/bin/Rscript methodA <- function(n) # O(n^3) { x <- y <- 0 for(i in 1:n) # O(n^3) { for(j in 1:i) x <- x+1 # O(i) for(j in 1:i) for(k in 1:i) y <- y+1 # O(i^2) } return(x+y) } methodB <- function(n,k) # O(n*k) { y <- 0 for(i in 1:n) for(j in 1:k) y <- y+1 # O(n*k) return(y) } methodC <- function(n,k) # O(k*n^4) { y <- 0 for(i in 1:n) for(j in 1:k) y <- y + methodA(n) # O(n*k*n^3) return(y) }