Colaborador: Ing. Francisco Valverde P.hD en informática 
En una función tenemos 3 tipos de elementos:

1. Argumentos (o valores de entrada).
2. Cuerpo: operaciones que han de realizarse. Se deben localizar entre corchetes "{}”.
3. Resultado (o valores de salida): la última expresión que se ejecuta.
#mifuncion <- function(argumento1, argumento2, …) { cuerpo resultado }
Las funciones también son objetos y por tanto les daremos un nombre, en este caso se llamará "mifuncion". Debes evitar utilizar nombres que ya estén en uso en R, por ejemplo "mean". Los argumentos se separan por una coma dentro de "función()". Puede ser cualquier tipo y cantidad de argumentos. Los argumentos son los ingredientes que necesitas para que se ejecute la función. Los argumentos pueden tener un valor predeterminado, por ejemplo si escribimos argumento2=10:
#mifuncion <- function(argumento1, argumento2=10, …) { cuerpo resultado }
El cuerpo de la función contiene las operaciones que deseamos que se ejecuten sobre cada uno de los argumentos detallados anteriormente. Vienen dados entre corchetes "{}" y se ejecutan cada vez que llamamos la función. El resultado es el valor devuelto por la función que se genera en las operaciones que se han ejecutado en el cuerpo de la función. Puede ser cualquier tipo de datos. La última línea del código será el valor que devolverá la función. Veamos algunos ejemplos:

Ejemplo 1. Función suma

La última operación evaluada es el valor que ha de retornar la función (también llamada salida).Por ejemplo, si evaluamos la función para los valores x=2 e y=3 obtenemos:

suma<-function(x,y) {
  x+y
}
suma(x=2,y=3)
## [1] 5

Ejemplo 2. Función potencia con paste y cat

Cuando queremos que el resultado de una función contenga texto podemos utilizar las función paste().

potencia<-function(x,y) {
  result=x^y
  paste(x,"elevado a la",y,"es igual a ",result)
}
potencia(2,3)
## [1] "2 elevado a la 3 es igual a  8"

También podemos utilizar la función cat(), que tiene mayor versatilidad. Por ejemplo:

x<-2 
cat(x) 
## 2
cat("María") 
## María
cat("María tiene", x, "hijos", ".")
## María tiene 2 hijos .
cat("María tiene", x, "hijos", "\b.") #\b quita el último espacio . 
## María tiene 2 hijos .
cat("María tiene\n", x, "hijos", "\b.") #\n divide la expresión en dos 
## María tiene
##  2 hijos .

Ejemplo 3. Función de valor absoluto con condicionales (if)

El valor absoluto de un número, en otras palabras, es el valor que resulta de eliminar el signo correspondiente a este.

absoluto<-function(x) {
  if(x<0){
    paste(x*(-1))
  }else {
    paste(x)
  }
}
absoluto(-3)
## [1] "3"

Aquí le estamos diciendo que si el valor de “x” es negativo nos devuelva su opuesto, en caso contrario que nos devuelva el valor original de “x”.

Ejemplo 4. Función a trozos con condicionales (if).

Función a trozos: si x es menor a 5 toma el valor 0 y en caso contrario el valor 10.

f_trozos<-function(x) {
  if(x<5){
    x=0
    paste(x)
  }else{
    x=10
    paste(x)
  }
}
f_trozos(8)
## [1] "10"

Ejemplo 5. Cálculo de la tasa de metabolismo basal

La Tasa de Metabolismo Basal (TMB), es la cantidad mínima de energía que necesita tu cuerpo para funcionar. Nunca debemos ingerir menos cantidad de calorías de las que marca la tasa metabólica. La TMB se calcula siguiendo las siguientes ecuaciones

\[TMB Mujer = 655 + (9.6 * P) + (1.8 * A) – (4.7 * E)\] \[TMB Hombre = 66 + (13.7 * P) + (5 * A) – (6.8 * E)\] donde necesitamos información del: Sexo, A=Altura, P=Peso y E=Edad de cada persona, nuestros argumentos.

TMB<-function(S,A,P,E) {
  if(S=="Femenino"){
    TMB_MUJER=655+(9.6*P)+(1.8*A)-(4.7*E)
    paste("La Tasa de Metabolismo Basal es de",TMB_MUJER)
  }else{
    TMB_MASCULINO=66+(13.7 * P)+(5 * A)-(6.8 * E)
    paste("La Tasa de Metabolismo Basal es de",TMB_MASCULINO)
  }
}
TMB("Masculino",170,57,32)
## [1] "La Tasa de Metabolismo Basal es de 1479.3"

En este caso le decimos a la función que calcule el TMB con una fórmula si el sujeto es mujer y otra si es hombre.

Ejemplo 6. Varias formas de obtener resultados.

Imagina que queremos calcular el valor de la hipotenusa de un triángulo a partir de los valores de sus catetos. Único valor. Si solo queremos obtener el valor de la hipotenusa:

hip<-function(cat1,cat2) {
  hipotenusa=sqrt(cat1^2+cat2^2)
  paste("La hipotenusa es: ",round(hipotenusa, 3)) #Round para acortar los decimales
  }
hip(2,4)
## [1] "La hipotenusa es:  4.472"

Lista de valores. Si queremos que en el resultado se muestren los valores iniciales y finales:

hip<-function(cat1,cat2) {
  hipotenusa=sqrt(cat1^2+cat2^2)
 list(cateto1=cat1,cateto2=cat2,hipotenusa=hipotenusa)#Colocamos en lugar de paste,list
}
hip(2,4)
## $cateto1
## [1] 2
## 
## $cateto2
## [1] 4
## 
## $hipotenusa
## [1] 4.472136

Con más de un valor para cada cateto. Si queremos que el resultado tenga varios tipos de información (numérica o categórica) podemos utilizar una lista.

hip(2:4,3:5)
## $cateto1
## [1] 2 3 4
## 
## $cateto2
## [1] 3 4 5
## 
## $hipotenusa
## [1] 3.605551 5.000000 6.403124

Resultado como data.frame. Si queremos que el resultado sea de un mismo tipo pero con múltiples variables podemos utilizar el data.frame.

hip<-function(cat1,cat2) {
  hipotenusa=sqrt(cat1^2+cat2^2)
  data.frame(CATETO1=cat1,CATETO2=cat2,HIPOTENUSA=hipotenusa)
}
hip(2:4,3:5)
##   CATETO1 CATETO2 HIPOTENUSA
## 1       2       3   3.605551
## 2       3       4   5.000000
## 3       4       5   6.403124

Ejemplo 7. Función return

También se puede utilizar la función “return()” para obtener el resultado de un paso en particular en la ejecución, no necesariamente el último. Es útil por ejemplo para identificar un error.

f<-function(x,y){      
if(is.character(y))
return("y debe ser numerico") 
  x+y
}
f(2,"hola")
## [1] "y debe ser numerico"
NOTA: recuerda que si no se utiliza return de manera explícita en una función, el valor de la última expresión evaluada se devuelve automáticamente en el resultado de la función.