Where is the error

P <- vector(mode="numeric",length =10)

SS<-function(){for(id in 0:9){
	if(0<P[id]) 
	print("ss")
else
print("ss")
 }}

SS()
-------------------------------------------------------
Error in if (0 < P[id]) print("ss") else print("ss") : 
  argument is of length zero

View this message in context: http://www.nabble.com/Where-is-the-error-tp19477706p19477706.html
Sent from the R help mailing list archive at Nabble.com.