找不到对象 应该怎么解决

浅墨初白

setwd("C:/桌面文件夹/R")
x<-read.csv("000002.SZ.csv",stringsAsFactors = F)

close<-as.numeric(x[,5])

open<-as.numeric(x[,2])

l=length(open)

MA10<-NA
MA20<-NA
MA30<-NA

for(i in 10:l)
{
  if(is.na(close[i])){close[i]=0}
  MA10[i]=(close[i]+colse[i-1]+colse[i-2]+colse[i-3]+colse[i-4]+colse[i-5]+colse[i-6]+colse[i-7]+colse[i-8]+colse[i-9]+colse[i-10])/10
}
MA10

###Error in colse : 找不到对象'colse'

ex: 数据调用是对的，在定义close行试了close[2]有数据出来，报错是在那一段循环后面，请问是什么原因？？
如果有能告诉下求MA10[i]时，怎样简单的用命令求啊，因为不会所以只有10个全加起来，后面还要求MA20 和NA30 就不能直接加了。