latex test

This post tests if the website display LaTeX correctly.

1
2
3
4
5
6
7
lapply2 <- function(x, f, ...) {
out <- vector("list", length(x))
for (i in seq_along(x)) {
out[[i]] <- f(x[[i]], ...)
}
out
}