modify break through.md
add break through R code