R/simSyn.R

simSyn <-
function(sims,weight) {  
  # 入力ベクトルの長さをチェック
  len = length(sims)
  if (len!=length(weight)) {
    stop(message="different lengths between sims and weight")
  }
  
  # 類似度を合成する
  sim <- weight[1] * sims[[1]]
  for (i in 2:len) {
    sim <- sim + weight[i] * sims[[i]]
  }
  
  return(sim)
}

Try the smdc package in your browser

Any scripts or data that you put into this service are public.

smdc documentation built on May 1, 2019, 8:48 p.m.