各位老师，请问下这个最后输出x,为什么运行结果是NULL？？
代码：
library('quantmod')
getSymbols("AAPL",from="2000-01-01",to="2021-09-10")
AAPL
AAPL$AAPL.Adjusted
s0=AAPL$AAPL.Adjusted[length(AAPL$AAPL.Adjusted)]
n<-length(AAPL$AAPL.Adjusted)-1
dp=NULL
x<-c(rep(0,n))
for(i in 1:n){x[i]<-AAPL$AAPL.Adjusted[i+1]/AAPL$AAPL.Adjusted[i]}
x

报错：
从for语句开始报错：
for(i in 1:n){x[i]<-AAPL$AAPL.Adjusted[i+1]/AAPL$AAPL.Adjusted[i]}
Error in x[i] <- AAPL$AAPL.Adjusted[i + 1]/AAPL$AAPL.Adjusted[i] :
  replacement has length zero


非常感谢