library(foreign)
data1 <- read.dta("C:\\Users\\jacky\\Dropbox\\research\\crop insurance paper\\demand\\data\\CORN_8913original_test.dta")

如果出现报错：
Error in read.dta("C:\\Users\\jacky\\Dropbox\\research\\crop insurance paper\\demand\\DATA MANIPULATION\\cpi.dta") :
  not a Stata version 5-12 .dta file

意味着这个dataset是stata13生成的，foreign这个library无法读取stata12以后的版本生成的.dta.解决办法是用readstata13这个library。

安装readstata13，然后:

library(readstata13)
CPI <- read.dta13("C:\\Users\\jacky\\Dropbox\\research\\crop insurance paper\\demand\\DATA MANIPULATION\\cpi.dta")