R模糊隶属度函数工作不正常

我有一个二维数据集，我想计算一个新数据点对该数据集的隶属度得分。为此，我考虑使用模糊c均值聚类中使用的隶属函数，如下所示：

我在R中实现了此功能，其代码如下：

MembershipFunction <- function(dataPoint,class,ClassCenters,fuzzifier){
  C = nrow(ClassCenters)
  numerator = dist(rbind(dataPoint,ClassCenters[class,]))
  val=0
  for (k in 1:C){ 
    denominator = dist(rbind(dataPoint,ClassCenters[k]))
    val = val +  ( (numerator/denominator) ^ ( 2/(fuzzifier-1) ) )
  }
  answer = 1/val
  return(answer)
}

---

MembershipFunction您还可以发布一个您正在使用的数据集的简单小示例吗？另外，看起来您在子集设置中有一个错误：
ClassCenters[class，]
但是
ClassCenters[k]
（k后没有逗号）我在子集设置中犯了一个错误！谢谢你指出这一点。这是个错误。它现在可以正常工作了！