Skip to content

Vectorizing loop

1 message · Rainer M Krug

Original
Rainer M Krug
# 
Hi

I have the following loop and would like to vectorize it. Any ideas if 
it is possible?

Thanks,

Rainer

Tha Loop:

for (i in 2:Result$NoSims)
{
	ppp <- runifpoint(Result$NoPlants)
	K <- Kest(ppp)
	Result$LSim[i,] <- sqrt(K$iso / pi) - K$r
	CM <- (Result$LSim[i,] * Result$LSim[i,]) / abs(K$r[2] - K$r[1])
	Result$SigCM[i] <- sum(CM, na.rm=TRUE)
	print(i)
	flush.console()
}