## get nutrient data
data(apacpnut)
swmp1 <- apacpnut
# remove replicate nutrient data
rem_reps(swmp1)
# use different function to aggregate replicates
func <- function(x) max(x, na.rm = TRUE)
rem_reps(swmp1, FUN = func)
Run the code above in your browser using DataLab