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-
On Exercise 5, how about this (I'm rather new to R as well, so no guarantee
this is right and I'm sure there are more efficient ways to do this!):
fun1 <- function(x) {
y <- 0
for (i in 1:length(x))
{y[i] <- (x[i]-mean(x))^2}
sum(y)/(length(x)+1)
}
fun2 <- function(x) {
y <- 0
for
2 matches
Mail list logo
