PARAFACでの座標点の再構築に関して

Question

前提・実現したいこと

人の歩行動作のデータをprocGPAにて整列し,標準化を行った後,RのパッケージであるCANDPARA(PARAFAC)にて分析をかけ,その結果から元の整列後の座標点を再構築したい.

発生している問題・エラーメッセージ

座標点の再構築を行った後,整列後に行った標準化の際の標準偏差と平均を用いて標準化を元に戻しているが上手くいかない.

該当のソースコード

k <- 57#標識点数
m <- 3#次元数
nf <- 50#フレーム数今回は50フレーム
hik <- 288#フォルダ内の57個揃っているデータの数
nfh <- nf*hik
reclmtensor1 <- array(NA, dim=c(nf,(k*m),hik))
for ( i in  1:nrow(result(sol2)$scores[[1]]) ) {
  for( j in  1:nrow(result(sol2)$scores[[2]]) ) {
    for( h in  1:nrow(result(sol2)$scores[[3]]) ) {
      tmp <- matrix(0,ncol=30)
      for( n in  1:ncol(result(sol2)$scores[[1]])) {
        tmp[,n] <- ((result(sol2)$scores[[3]][h,n]*result(sol2)$core[n])*result(sol2)$scores[[1]][i,n] * result(sol2)$scores[[2]][j,n])
      }
      reclmtensor1[i,j,h] <- sum(tmp)#*sdlmd2[j]
    }
  }
}

scores[1]は時系列の因子負荷量scores[2]は標識点座標の因子負荷量scores[3]には動作者の因子得点が入るようになっており,coreにはCANDPARAの結果である特異値ベクトルを入れて計算している.

試したこと

CANDPARAの因子数を増やして再構築をしている

補足情報（FW/ツールのバージョンなど）

扱っているデータは288人の歩行動作のデータでフレーム数が違うため50フレームでリサンプルをしたのちにprocGPAで整列している。