有人能帮忙看一下这个计算已实现波动率的代码错在哪吗？求解答，谢谢

代码如下：stock_close<-read.csv(file.choose(),header=T)
str（stock_close）
lnp<-log(stock_close$close_price)
lnp<-append(lnp,lnp[1])
lnp<-lnp[-1]
lnp<-lnp
stock_close$lncp<-log(stock_close$close_price)
stock_close$r<--100*(stock_close$lnp - stock_close$lncp)
stock_r<-stock_close[which(stock_close$index%%48!=0),]
write.csv(stock_r,'C:/Users/admin/Desktop/stock_r.csv',row.names=F)


运行完了打开stock_r.csv文件，结果是这样的：
"t","open_price","close_price","r","lncp"


我用的数据是这样的：
t,open_price,close_price,r
2016/04/15-09:35,2.071,2.065,
2016/04/15-09:40,2.064,2.068,
2016/04/15-09:45,2.068,2.074,
2016/04/15-09:50,2.073,2.075,
2016/04/15-09:55,2.075,2.074,
2016/04/15-10:00,2.075,2.072,

···········

因为毕设才开始学习R，代码也是参考网上的，不知道哪里有问题，一直没有出结果，希望大神们帮忙看一下问题在哪？

没办法帮您解决，帮顶！！！