一个xpt文件用read.xport打不开怎么办？

library（foreign）
demo_data<-read.xport('~/Desktop/DEMO_I.xpt
打不开出现下面这些语言是什么原因？

read.xport这个函数不存在。