読者です 読者をやめる 読者になる 読者になる

課題の何か

HMM

本質的にHMMですね。

si_1 <- c(250, 260, 250)
si_2 <- c(220, 240, 230)
ka_1 <- c(240, 260, 230)
ka_2 <- c(250, 270, 260)

si <- c(240, 250, 230)
ka <- c(230, 260, 250)

target_cost <- function(x, y) {
  abs(x[1] - y[1]) +
    2 * abs(x[2] - y[2]) +
      abs(x[3] - y[3])
}

connection_cost <- function(x, y) {
  abs(x[3] - y[1])
}


# ターゲットコスト
target_cost(si, si_1)
target_cost(si, si_2)

target_cost(ka, ka_1)
target_cost(ka, ka_2)

# 接続コスト
connection_cost(si_1, ka_1)
connection_cost(si_1, ka_2)

connection_cost(si_2, ka_1)
connection_cost(si_2, ka_2)