我是这么输入的: kmodes(data,10,10,rep(0.1,10))
结果报错了:
Error in n_obj[i] <- weight[which(names == obj[different[i]])] :
replacement has length zero
In addition: Warning message:
In if (weighted) { :
the condition has length > 1 and only the first element will be used