R help - Jul 2008 - loop calculation

something like:
   
## set PIJ to be negative
while (any(PIJ<0)) {
   ## calculate PIJ
}