滑走窓方でなくても使えるスクリプトです。 とりあえず部分時系列を得たい方推奨です。 ans<-spliting(data,1,3500,20) kmeans(ans,3) data:時系列データ。複数行不可 start:与えた行列のスタートしたい地点。1が推奨 end:与えた行列の終わりにしたい地点。…

行のラベルを動的に配置することができるか、テスト test <- function(){ x <- matrix(1:2, nrow=1, ncol=2) # 行列rownames(x) <- c("up") # 行 xx <-c("unchi")xxx <-c("unchi2")xx <- rbind ( xx, xxx ) colnames(x) <- c(xx) # 列の名前 return(x) } > a…