FUNCIONES

INTRODUCCIÓN.

En el presente artículo realizaremos una serie de ejercicios sobre funciones en R, realizados por estudiantes de la Facultad de Ciencias Económicas, carrera de Estadística de la Universidad Central del Ecuador, estos programas nos será de ayuda para nuestro aprendizaje.

SUMA DE DOS NÚMEROS.

Usamos la función “function” para realizar este ejercicio.

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

POTENCIA DE UN NÚMERO.

Usamos la función “function” para realizar este ejercicio.

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

VALOR ABSOLUTO DE UN NÚMERO.

Usamos la función “function” para realizar este ejercicio.

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

CONDICIONAL IF ELSE.

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

Usamos la función “function” para realizar este ejercicio.

ftrozos<- function(x)
{
  if(x < 5)
  {
    0
  }else
  {
    10
  }
} 
ftrozos(3)
## [1] 0
ftrozos(5)
## [1] 10

TASA DE METABOLISMO.

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(Sexo,Altura,Peso,Edad)
{
  if(Sexo=="mujer")
  {
    655+(9.6*Peso) + (1.8*Altura) - (4.7*Edad)
  }else
  {
    66 + (13.7*Peso) + (5*Altura) - (6.8*Edad)
  }
}
TMB("hombre",170,57,32)
## [1] 1479.3

HIPOTENUSA DE UN TRIÁNGULO.

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:

Usamos la función “function” para realizar este ejercicio.

hipotenusa<- function(cateto1, cateto2)
{
  sqrt(cateto1^2+cateto2^2)
}
hipotenusa(2,4)
## [1] 4.472136

FUNCION RETURN.

Usamos la función “function” para realizar este ejercicio y la función “return”

f<- function(x,y)
  {
  if(is.character(y))
    return("y debe ser numérico")
  x+y
  }
f(2,"hola")
## [1] "y debe ser numérico"