大家好，求问如何用R来编写一段程序用于数值计算，我本人编写的程序如下，但是个人觉得程序存在问题，主要在于第二条公式的累加问题，但我自己看不出来。。。。。。求助论坛里的老师们帮帮忙
price <- c(3,4,5,9)
t <- diff(log(price))
bb=0
for(j in seq(t)){
bb=bb+t[j]
j=j+1 }
bb
g <- bb*(1/(3-1)) + 1/2*d^2
g/3 # 计算出第一条公式答案
c <- (t - bb*(1/(3-1)))^2
nn = 0
for(i in seq(c)){
nn=nn+c[i]
i=i+1 }
nn
d <- sqrt(((1/(3-2))*nn)/sqrt(3))
d # 计算出第二条公式答案
本人所需要写的公式如图，我贴在了github上
