一、实验内容:
编写代码s=DisFun(T,Sign),其中T为数据集,Sign为属性类型,d为相似性矩阵
二、源代码:
#num数值型
#fdc表示非对称二元
#dc表示对称二元
#bc表示标称属性
#p表示指示符
#xs表示序数属性
S = function(T,Sign){
d = data.frame(matrix(NA,nrow(T),nrow(T))) #相异性矩阵
distance = c() #距离
p = c() #指示符
G = T
for(i in 1:nrow(T)){
for(j in 1:i){
if(i == j){
d[i,j]=0
}
else{
for(f in 1:ncol(T)){
if(T[i,f] == 0&T[j,f] == 0&Sign[f]