Update Black_White.r

add final loop