Kenneth Cabrera
18 septiembre, 2019
Las funciones se crean con la instrucción function() y
se guardan en R como cualquier objeto. Son de la clase “function”.
f <- function(<argumentos>) {
## Instrucciones
}
return)Las funciones tienen argumento con nombre los cuales tienen potencialmente valores por omisión.
formals muestra una lista de todos los argumentos
de una función.En R los argumentos de las funciones se pueden indicar por su posición o por su nombre.
misdatos <- rnorm(100)
formals(sd)
sd(misdatos)
sd(x = misdatos)
sd(x = misdatos, na.rm = FALSE)
sd(na.rm = FALSE, x = misdatos)
sd(na.rm = FALSE, misdatos)
formals(lm)
args(lm)
x <- rnorm(1000, mean = 50, sd = 10)
y <- 1 + 5 * x + rnorm(1000)
misdatos <- data.frame(x,y)
lm(data = misdatos, y ~ x, model = FALSE, 1:100)
lm(y ~ x, misdatos, 1:100, model = FALSE)
Se puede mezclar el emparejamiento por posición y por nombre. Cuándo se empareja por nombre, se “saca” de la lista de argumentos y los demás argumentos siguen el orden en que están definidos.
Los argumentos de las funciones pueden ser parcialmente emparejadas, lo cuál es útil en un trabajo interactivo.
El orden de emparejamiento es:
f <- function(a, b = 1, c = 2, d = NULL) {
}
Además de no definir un valor por omisión se puede establecer como un argumento de NULL.
Los argumentos de una función se evalúan de manera perezosa, de forma que se evalúan si se necesitan.
f <- function(a, b){
a^2
}
f(2)
Debido a que esta función realmente no utiliza el argumento b,
el llamado la función f(2) no produce ningún error, porque
el 2 se empareja con la variable a.
f <- function(a, b){
print(a)
print(b)
}
f(45)
Note que se muestra el 45 antes que se muestre el error.
Sólo se muestra el error cuando se evalúa print(b)
El argumento ... indica un número variable de argumentos,
que usualmente se pasan a otras funciones.
... se usa para extender otra función y no se quiere copiar
la lista completa de los argumentos de la función.miplot <- function(x, y, type = "l", ...){
plot(x,y, type = type, ...)
}
... para que los argumentos
extras se pasen a los métodos. (POO).mean
function (x, ...)
UseMethod("mean")
<bytecode: 0x55d6ca844a28>
<environment: namespace:base>
El argumento ... es necesario cuando el número de
argumentos que se pasan a una función no se sabe
con anticipación.
args(paste)
function (..., sep = " ", collapse = NULL)
NULL
args(cat)
function (..., file = "", sep = " ", fill = FALSE, labels = NULL,
append = FALSE)
NULL
Todo argumento que aparezca depués de ... deberá
ser nombrado explícitamente y no se puede emparejar
parcialmente.
args(paste)
function (..., sep = " ", collapse = NULL)
NULL
paste("a", "b", sep = ":")
paste("a", "b", se = ":")
fmala <- function(x, y) {
z1 <- 2 * x + y
z2 <- x + 2 * y
z3 <- 2 * x + 2 * y
z4 <- x / y
}
r1 <- fmala(8, 10)
r1
[1] 0.8
fcorrecta <- function(x, y) {
z1 <- 2 * x + y
z2 <- x + 2 * y
z3 <- 2 * x + 2 * y
z4 <- x / y
return(c(z1, z2, z3, z4))
}
r1 <- fcorrecta(1, 2)
r1
[1] 4.0 5.0 6.0 0.5
f2 <- function(x, y) {
z1 <- x + y
z2 <- x + 2 * y
list(z1, z2)
}
f2(2, 5)
f2(2, 5)[[2]]
f2(2, 5)$z1
f3 <- function(x, y) {
z1 <- x + y
z2 <- x + 2 * y
list(result1 = z1, result2 = z2)
}
f3(2, 5)
f3(2, 5)[[2]]
f3(2, 5)$result2
v1 <- c(2, 3, 5, 7)
v2 <- c(4, 0, 1, 9)
f3(v1, v2)
m1 <- matrix(c(1, 2, 3, 4, 5, 6), ncol=2)
m2 <- matrix(c(2, 4, 6, 8, 10, 12), ncol = 2)
f3(m1, m2)
f4 <- function(a, b, c, d){
stopifnot(a >= 0, a <= 1, b > 1, c > 0)
r1 <- c(qnorm(a), log(b-1), sqrt(c))
return(r1)
}
f4(2, 2, 0.5)
f4(0.1, 0.5, 0.5)
f4(0.1, 5, -2)
f4(0.1, 0.5, -1)