R语言 总是找不到物件是为什么?

小白求问 想做一个简单的计算问题
代码如下

a1 <- 20000 ##principle
a2 <- 0.03 ##profit ratio
i <- 1

while(i < 30){
  i <- i+1
  j[1] <- a1*a2 ##profit1
  j[i] <- j[i-1] + a1*a2^i
}
j[i]

总是报错说找不到对象j是为什么?qwq
报错↓

> while(i < 30){
+   i <- i+1
+   j[1] <- 600
+   j[i] <- j[i-1] + a1*a2^i
+ }
錯誤: 找不到物件 'j'

求解答!!qwq

https://www.dxy.cn/bbs/newweb/pc/post/31174889