if (FALSE) {
# Create nested data structure
nested_data <- nestedFunBuilder(iris, "Species", "Sepal.Length > 5")
# Apply function to each subset
means <- nestedFunBuilder(iris, "Species",
.fun = function(data) mean(data$Sepal.Length)
)
# Multiple factors with function
results <- nestedFunBuilder(mydata, "site", "species", "treatment",
.fun = myAnalysisFunction,
.funArgs = list(method = "robust")
)
}
Run the code above in your browser using DataLab