R Break 语句

break

a <- 1            
repeat {          
  print("learnfk");    
  if(a >= 5)      
    break         
  a<-a+1          
}    

v <- c("Hello","Learnfk")  
count <- 2  
repeat {  
   print(v)  
   count <- count + 1  
   if(count > 5) {  
      break  
   }  
}  

a<-1    
while (a < 10) {    
  print(a)    
  if(a==5)    
    break    
  a = a + 1    
}    

for (i in c(2,4,6,8)) {  
  for (j in c(1,3)) {  
      if (i==6)  
        break  
     print(i)  
  }  
}  

num=7
learnfk = 0
if(num> 1) {
	learnfk = 1
	for(i in 2:(num-1)) {
		if ((num %% i) == 0) {
			learnfk = 0
			break
		}
	}
} 
if(num == 2)    learnfk = 1
if(learnfk == 1) {
	print(paste(num,"is a prime number"))
} else {
	print(paste(num,"is not a prime number"))
}