R script for a book of SIDAEGOSI (http://www.edusd.co.kr/book/item.php?it_id=1406532220&cat_id=001015005)