[R] function stays in loop

[Mkkl]

function <- function(p){
i <- 2
r <- 0
while(i < p) {
	q <- (p/i)
		while(q>=1) {
			q=(q-1)
}
		if (q==0) {
			r=1
} 		else 
			i=i+1
}
return(r)
}

This function stays in some kind of loop when I enter 4 as a function value.
It immediately returns 0 when I inter 3 though.
I don't seem te get why it does not give me just a result. Can someone tell
me why it stays in a loop?

Kind regards,

Michiel



--
View this message in context: http://r.789695.n4.nabble.com/function-stays-in-loop-tp4651619.html
Sent from the R help mailing list archive at Nabble.com.