[R] Vectorizing loop

[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()
}








-- 
NEW TELEPHONE NUMBER
Tel:		+27 - (0)72 808 2975 (w)

Rainer M. Krug, Dipl. Phys. (Germany), MSc Conservation
Biology (UCT)

Department of Conservation Ecology
University of Stellenbosch
Matieland 7602
South Africa

Tel:		+27 - (0)72 808 2975 (w)
Fax:		+27 - (0)21 808 3304
Cell:		+27 - (0)83 9479 042

email:	RKrug at sun.ac.za
       	Rainer at krugs.de