R functions - backup

r_file.r

add_numbers <- function(x, y) {
    result <- x + y
    return(result)
}

sumArray = function(arrayOfNumbers) {
    result = 0
    if(typeof(arrayOfNumbers)=="double") {
        for(i in c(1:length(arrayOfNumbers))) {
            result = result + arrayOfNumbers[i]
        }
        result
    } 
    else 
        print("Warning: There is a non-numeric element in your array.")
}

HM = function(x) {
    if(prod(x)==0) {
        return (0)
    } else {
        length(x)/sum(1/x)
    }
}

GM <- function(x) {
    if (any(x <= 0)) {
        stop("All numbers must be positive for the geometric mean.")
    }
    return (prod(x)^(1/length(x)))
}

PM = function(x, p) {
    if (p ==0) {
        prod(x)^{1/length(x)}
    } else {
        mean(x^p)^{1/p}
    }
}

Which programing language it is?

R

What is R? Is R is a any programing language?