# NOT RUN {
meth_aggregate(fake_methylation, id = gene, value = meth, fun = mean)
meth_aggregate(fake_methylation, id = gene, value = meth, fun = var)
# custom functions can be used as well
mean_diff <- function(x) {
mean(diff(x))
}
meth_aggregate(fake_methylation, id = gene, value = meth, fun = mean_diff)
# }
Run the code above in your browser using DataLab