¿Cómo repetir eficientemente una función en un conjunto de datos en R?

Question

Digamos que tengo una función funToRepeat:

funToRepeat <- function(df){
    rows <- nrow(df)
    cols <- ncol(df)
    err <- runif( rows * cols )
    dfNew <- df + as.data.frame( matrix(err, nrow=rows, ncol=cols) )
    dfNew
}

Quiero operar funToRepeat a dfTest (un juguete conjunto de datos), múltiples veces, decir n.

dfTest <-
  structure(list(V1 = 1:2, V2 = 3:4), .Names = c("V1", "V2"), 
  row.names = c(NA,-2L), class = "data.frame")                                  

¿Cómo puedo hacer esto y media de la n salidas de funToRepeat en R, de manera eficiente?

Un ejemplo muy malo con n=10 puede ser:

dfAvg <- as.data.frame(list(V1=c(0, 0), V2=c(0, 0)))
for(i in 1:10){
    dfAvg <- dfAvg + funToRepeat(dfTest)
}
dfAvg <- dfAvg/10

Note por favor, que no estoy tratando de bootstrap. Quiero operar funToRepeat en mi conjunto de datos y tomar el promedio de la n salidas. Yo quiero hacer esto como estoy agregando err, un azar de plazo, a mis datos.marco y desea proporcionar una razonable respuesta. (Yo no estoy haciendo exactamente esto en la vida real, pero algo muy similar)

Answer 1

Yo se todo lo que la lista y luego usar .

Luego convertir a data.frame que necesita después de división de longitud de la lista para obtener la media.

Tenga en cuenta que su función no es necesario toda una para operar, sólo sus dimensiones. La conversión a data.frame es innecesario coste aquí, así que es mejor no usarlo.