download.file('http://econ.korea.ac.kr/~chirokhan/book/data/klips11subset.rds', 'klips11subset.rds') klips <- readRDS('klips11subset.rds')