tmp <- dfts(SPYUS500$data[, 1:100],
name = "SP500 100 Days",
labels = SPYUS500$labels[1:100], fparam = SPYUS500$fparam
)
cidr(tmp)
tmp <- dfts(SPYUS500$data[, 1:100],
name = "SP500 100 Days",
labels = SPYUS500$labels[1:100], fparam = SPYUS500$fparam
)
ocidr(tmp)
Run the code above in your browser using DataLab