TSclust包的SAX函数产生错误

Question

我在SAX (符号聚合聚合)图中使用TSclust包。根据第25页上显示的示例，我使用了以下函数

SAX.plot(as.ts(df$power), w=30, alpha=4) 

但是，它生成的错误如下：

Error in if ((n <- as.integer(n[1L])) > 0) { : argument is of length zero

我无法调试它。甚至我也查看了SAX.plot函数的源代码，但没有找到输入的相关错误消息。

所需的R数据对象可以在链接中找到

R版本: 3.2

TSclust版本:1.2.3

Answer 1

很明显，这是因为您需要将数据规范化，请参阅下面的示例：

# Parameters
w <- 30 
alpha <- 4 

# PAA
x <- df$power
paax <- PAA(x, w) 
plot(x, type="l", main="PAA reduction of series x") 
p <- rep(paax,each=length(x)/length(paax)) #just for plotting the PAA
lines(p, col="red")

# SAX
convert.to.SAX.symbol(paax , alpha)
# [1] 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4
# You need to scale PAA result
convert.to.SAX.symbol(scale(paax) , alpha)
# [1] 1 1 1 1 1 1 1 1 1 2 2 1 4 3 3 1 2 2 2 4 4 4 1 1 2 4 3 3 4 4


# SAX plot : with scaling this works
SAX.plot(as.ts(scale(df$power)), w=w, alpha=alpha) 

这可能是您可以在函数帮助页面中找到的示例。