Displaying 1 result from an estimated 1 matches for "descvect".
Did you mean:
descent
2005 Apr 18
2
Very Slow Gower Similarity Function
..., na.rm=T)-apply (mat,2,min,na.rm=T) #descr ranges
DESCRIPT <- 1:MATDESC #descriptor index vector
smat <- matrix(1, nrow = OBJ, ncol = OBJ) #'empty' similarity matrix
for (i in 1:OBJ){
for (j in i:OBJ){
##calculate index vector of non-NA descriptors between objects i and j
descvect <- intersect (setdiff (DESCRIPT, DESCRIPT[is.na(mat[i,DESCRIPT])]),
setdiff (DESCRIPT, DESCRIPT[is.na (mat[j,DESCRIPT])]))
descnum <- length(descvect) # number of valid descr for i~j comparison
partialsim <- (1- abs(mat[i,descvect]-mat[j,descvect])/MRANGE[descvect])
sma...