Help with "apply"

Hello R gurus,

I have a simple routine using for loops that i was just trying to make it
faster

y <- rnorm(10)
Nindiv <- 10
x <-matrix(sample(c(0:2),50,re = T),10)
gtemp <- rnorm(10)
ycorr <- array(0,c(Nindiv,1))
for (i in 1:Nindiv) {
	for (k in 1:ncol(x)) {
		ycorr[i] <- y[i] - x[i,k]*gtemp[k]
	}
}

It works fine but I wanted to make it faster and I think an apply function
could probably solve this problem.
Any suggestions? Thanks

--
View this message in context: http://r.789695.n4.nabble.com/Help-with-apply-tp3518773p3518773.html
Sent from the R help mailing list archive at Nabble.com.