编程错误，求指点

针对以上公式，我编了如下程序：
remove(list=ls(all=T))
RH<-read.csv("DD.csv")
T<-RH[seq(from=1,to=93,by=1),1]
DD<-RH[seq(from=1,to=93,by=1),2]


for (k in 3:93)  {
  n=seq(from=1,to=k-1,by=1)
  for (i in n){
   B=median((DD[k]-DD[k-1])/(T-T[i-1]))
   
  }
}

程序能运行，但结果是错误的！请指点，谢谢！

ryoeng 发表于 2015-2-11 17:45
不明白问题，是这样么？

从已知数据中产生新的数组，然后求这个数组的中值。新的数组为(xi-xj)/(i-j),然后用中值函数median，求出中值。这个中值仅是一个数。求指导？

ryoeng 发表于 2015-2-12 00:02
俺看到您原本都是把中值数栽在For Loop中，当然会有93-3+1个啦？！
羞羞，还是您觉得91个太多了？只能选 ...

就是选一个，谢谢您的指导，新手，忘您见谅！