UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONÓMICAS

CARRERA DE ESTADÍSTICA

PRIMERAS PRACTICAS EN R 8

Manual

En el siguiente texto podremos encontrar una serie de códigos elaborados en el programa Rstudio que darán solución a un determinado ejercicio enfocados en el uso de funciones.

Ejercicio 1

FUNCIÓN SUMA

  1. Asignaremos la función a una variable. En los paréntesis colocaremos las variables a usar dentro de la función.
suma<-function(x,y)
  1. Abrimos llaves y escribimos dentro la función a evaluar.
suma<-function(x,y){
 x+y
}
  1. Escribimos fuera de la función el nombre de la variable y dentro de paréntesis los valores que tomaran las variables dentro de la función.
suma (2,3)

Ejecución del código en R

SINTAXIS COMPLETA
##EJERCICIO 1

#Función Suma.

suma<-function(x,y){
  x+y
}

suma(2,3)
RESULTADO FINAL
## [1] 5

Ejercicio 2

POTENCIA (paste y cat)

  1. Asignaremos la función a una variable. En los paréntesis colocaremos las variables a usar dentro de la función.
potencia<-function(x,y)
  1. Abrimos llaves y escribimos dentro una variable a la que asignaremos la función a evaluar.
potencia<-function(x,y){
  result<-x^y
}
  1. Usando los comandos paste o cat agregaremos una frase que se mostrara junto al resultado.
potencia<-function(x,y){
 result<-x^y
 paste(x,"elevado a la potencia de", y, "es", result)
}
  1. Escribimos fuera de la función el nombre de la variable y dentro de paréntesis los valores que tomaran las variables dentro de la función.
potencia(2,3)

Ejecución del código en R

SINTAXIS COMPLETA
##EJERCICIO 2

#Función Potencia (paste o cat).

potencia<-function(x,y){
  result<-x^y
  paste(x,"elevado a la potencia de", y, "es", result)
}

potencia(2,3)
RESULTADO FINAL
## [1] "2 elevado a la potencia de 3 es 8"

Ejercicio 3

VALOR ABSOLUTO (con condiciones)

  1. Asignaremos la función a una variable. En los paréntesis colocaremos la variable a usar dentro de la función.
absoluto<-function(x)
  1. Abrimos llaves y usando el condicional if escribiremos dentro del paréntesis la condición. Abrimos llaves nuevamente para introducir lo que se mostrara si la condición es verdad.
absoluto<-function(x){
 if (x<0){-x}
}
  1. Escribimos fuera de la función el nombre de la variable y dentro de paréntesis el valor que tomara la variable dentro de la función.
absoluto(-5)

Ejecución del código en R

SINTAXIS COMPLETA
##EJERCICIO 3

#Función Valor Absoluto (con condiciones).

absoluto<-function(x){
  if (x<0){-x}
}

absoluto(-5)
RESULTADO FINAL
## [1] 5

Ejercicio 4

VALOR A TROZOS

  1. Asignaremos la función a una variable. En los paréntesis colocaremos la variable a usar dentro de la función.
ftrozos <- function(x)
  1. Abrimos llaves y usando el condicional if escribiremos dentro del paréntesis la condición. Abrimos llaves nuevamente para introducir lo que se mostrara si la condición es verdad.
ftrozos <- function(x){
 if(x<5){0}
  1. Usando el condicional else indicaremos lo que sucede si la condición es falsa. Usando llaves.
ftrozos <- function(x){
 if(x<5){0}
 else{10}
}
  1. Escribimos fuera de la función el nombre de la variable y dentro de paréntesis el valor que tomara la variable dentro de la función. Probamos con dos valores.
ftrozos(5)
ftrozos(3)

Ejecución del código en R

SINTAXIS COMPLETA
##EJERCICIO 4

#Función a Trozos.

ftrozos <- function(x){
  if(x<5){
    0
  }
  else{
    10
  }
}

ftrozos(5)
ftrozos(3)
RESULTADO FINAL
## [1] 10
## [1] 0

Ejercicio 5

TASA DE METABOLISMO BASAL

  1. Asignaremos la función a una variable. En los paréntesis colocaremos las variables a usar dentro de la función.
TMB<-function(sexo,altura,peso,edad)
  1. Abrimos llaves y usando el condicional if escribiremos dentro del paréntesis la condición. Abrimos llaves nuevamente para introducir el calculo que se debe realizar si la condición es verdadera.
TMB<-function(sexo,altura,peso,edad){
 if(sexo=="mujer"){655+(9.6*peso)+(1.8*altura)-(4.7*edad)}
  1. Usando el condicional else indicaremos dentro de llaves, el cálculo a realizar si la condición es falsa.
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)}
}
  1. Escribimos fuera de la función el nombre de la variable y dentro de paréntesis los valores correspondientes a las variables que intervienen en la función.
TMB("mujer",155,51,22)

Ejecución del código en R

SINTAXIS COMPLETA
##EJERCICIO 5

#Tasa de metabolismo basal.

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("mujer",155,51,22)
RESULTADO FINAL
## [1] 1320.2

Ejercicio 6

VARIOS RESULTADOS

  1. Asignaremos la función a una variable. En los paréntesis colocaremos las variables a usar dentro de la función.
hipotenusa<-function(cateto1,cateto2)
  1. Abrimos llaves y escribimos dentro una variable a la que asignaremos la función a evaluar.
h<-sqrt(cateto1^2+cateto2^2)
  1. Con la función list o data.frame, dentro de paréntesis escribimos el nombre de las columnas que contendrán los diferentes resultados.
list(cateto1=cateto1,cateto2=cateto2,hipotenusa=h)
data.frame(cateto1=cateto1,cateto2=cateto2,hipotenusa=h)
  1. Escribimos fuera de la función el nombre de la variable y dentro de paréntesis los valores que tomaran las variables dentro de la función, en forma de serie para cada variable o un único valor.
hipotenusa(2,3)
hipotenusa(2:4,4:6)

Ejecución del código en R

SINTAXIS COMPLETA
##EJERCICIO 6

#Varios Resultados.

hipotenusa<-function(cateto1,cateto2){
  h<-sqrt(cateto1^2+cateto2^2)
  list(cateto1=cateto1,cateto2=cateto2,hipotenusa=h)
}

hipotenusa(2,3)
hipotenusa(2:4,4:6)


hipotenusa1<-function(cateto1,cateto2){
  h<-sqrt(cateto1^2+cateto2^2)
  data.frame(cateto1=cateto1,cateto2=cateto2,hipotenusa=h)
}

hipotenusa1(2:4,4:6)
RESULTADO FINAL
## $cateto1
## [1] 2
## 
## $cateto2
## [1] 3
## 
## $hipotenusa
## [1] 3.605551
## $cateto1
## [1] 2 3 4
## 
## $cateto2
## [1] 4 5 6
## 
## $hipotenusa
## [1] 4.472136 5.830952 7.211103
##   cateto1 cateto2 hipotenusa
## 1       2       4   4.472136
## 2       3       5   5.830952
## 3       4       6   7.211103

Ejercicio 7

FUNCÓN “return”

  1. Asignaremos la función a una variable. En los paréntesis colocaremos las variables a usar dentro de la función.
f<-function(x,y)
  1. Abrimos llaves y usando el condicional if escribiremos dentro del paréntesis la condición, que será el tipo de dato de la variable que interviene en la función y junto, entre paréntesis, la variable.
if(is.character(y))
  1. Usando la función return agregaremos una frase que se mostrara si la condición es verdadera. Finalmente, y aun dentro de las llaves, escribimos la operación.
f<-function(x,y){
 if(is.character(y)) return("y debe ser numerico")
 x+y
}
  1. Escribimos fuera de la función el nombre de la variable y dentro de paréntesis los valores que tomaran las variables dentro de la función.
f(4,"hola")

Ejecución del código en R

SINTAXIS COMPLETA
##EJERCICIO 7

#Función "return".

f<-function(x,y){
  if(is.character(y)) return("y debe ser numérico")
  x+y
}

f(4,"hola")
RESULTADO FINAL
## [1] "y debe ser numérico"
COLABORADOR: Phd.Francisco Valverde Alulema.