rwiener.r

来自「支持向量机完整版（SVM）可以用来进行设别训练」· R 代码 · 共 7 行

rwiener <- function(end=1, frequency=1000) {

  z<-cumsum(rnorm(end*frequency)/sqrt(frequency))
  ts(z, start=1/frequency, frequency=frequency)
}