Displaying 1 result from an estimated 1 matches for "signal_donoho_alpha".
2009 Feb 18
0
Index-G1 error
...d-Zero-Moments.txt",header=T)
## EXTRACT SIGNALS ID
insig <- features.tab[,"SignalID"]
## GENERATE DISTANCE MATRIX LABELS
rwn <- NULL
for(i in 1:length(insig)) {
rwn <- c(rwn,as.character(insig[i]))
}
## EXTRACT FEATURES VECTOR
alpha.vec <- features.tab[,"Signal_Donoho_Alpha"]
## CALCULATE DISTANCE MATRIX - EUCLIDEAN DISTANCE
## ATTACH SIGNAL LABELS
dist.mat <- dist(as.matrix(alpha.vec),method = "euclidean")
yy <- as.matrix(dist.mat)
rownames(yy) <- rwn
nc.min <- 2 #MINIMUM CLUSTERS NUM.
nc.max <- length(a...