# a beeping function
# when a program finished call it to notify you it is finished

beep <- function(n = 5){
  for(i in seq(n)){
    system("rundll32 user32.dll,MessageBeep -1")
    Sys.sleep(.5)
  }
}

beep()