Just thought about it, you can have this of course "cheaper" without the loops. Like this:
fun1 <- function(x) sum((x-mean(x))^2)/(length(x)+1) fun2 <- function(x) sum((x-mean(x))^2)/(length(x)) x <- rexp(15) fun1(x) fun2(x) -- View this message in context: http://r.789695.n4.nabble.com/some-R-exercises-tp4619850p4620163.html Sent from the R help mailing list archive at Nabble.com. ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
