myclass에는 어떤 현상이 발생 했습니까?

Question

다음 예에서 "myclass"가 왜 사라지나요? 어떻게 피할 수 있습니까?

# 
library(xts) 

# sample data 
fo <- "%Y-%m-%d %X" 
st <- Sys.time() 
delta <- seq(from=0, by=10, length.out=10) 
ma1 <- matrix(data=sin(delta/50), ncol=1, nrow=10) 
ma2 <- matrix(data=sin(delta/25), ncol=1, nrow=10) 
d1a <- xts(x=ma1, order.by=strptime(st, format=fo) + delta) 
d2a <- xts(x=ma2, order.by=strptime(st, format=fo) + delta) 
d1b <- xts(x=ma1, order.by=strptime(st, format=fo) + delta) 
d2b <- xts(x=ma2, order.by=strptime(st, format=fo) + delta) 
d1c <- xts(x=ma1, order.by=strptime(st, format=fo) + delta) 
d2c <- xts(x=ma2, order.by=strptime(st, format=fo) + delta) 

# original class 
class(d1a) 
class(d2a) 
# 
d3a <- d1a + d2a 

# class 
class(d1b) <- "myclass" 
class(d2b) <- "myclass" 
# 
d3b <- d1b + d2b 

# class 
class(d1c) <- c("myclass","xts","zoo") 
class(d2c) <- c("myclass","xts","zoo") 
# 
d3c <- d1c + d2c 

# 
class(d3a) 
[1] "xts" "zoo" 
class(d3b) 
[1] "myclass" 
class(d3c) 
[1] "xts" "zoo" # expected was "myclass" "xts" "zoo" 

Answer 1

당신이 myclass에 대한 + 방법을 정의하지 않은, 그래서 XTS 방법이 발송됩니다 때문에 아주 간단하게

, ... 그리고 그것은 XTS-클래스 객체를 반환합니다.

Ops.myclass <- xts:::Ops.xts