在R中我们可以定义如下:
setClass("TimeSeries",
representation(
data = "numeric",
...start = "POSIXct",
end = "POSIXct"
)
)
在这段代码中,data/start/end用于存放数据,称作“槽(slot)...R语言提供了一个新建对象时的检验机制,只需要在setValidity函数中设置一下:
setValidity("TimeSeries",
function(object) {
...同时,我们知道运算符在R中也是相当于函数调用,也就是a+b与‘+’(a,b)是等价的。通过这个特性我们就可以重载R语言的运算符。
...#在S3类中,早已有对TimeSeries的定义,ts类对现在的R也是可用,现在我们来创建一个ts对象
my.ts <- ts(data=c(1, 2, 3, 4, 5), start=c(2009,