Displaying 1 result from an estimated 1 matches for "nspalt".
Did you mean:
ns_alt
2002 Jan 25
1
Fw: Summary for Distance matrix by cosine?
...e
matrix first, for I want to calculate the distance of the _rows_.
Regards,
Petra Steiner
#Funktion: Berechnung der Distanzmatrix mit dem Kosinus als Abstandsmass
library(Matrix)
normalize <- function(ma) {
# zunaechst werden die Zeilen der Matrix normalisiert
nreihe <- nrow(ma)
nspalte <- ncol(ma)
print(nspalte)
c <- matrix(NA, nreihe, nspalte)
row.names(c) <- row.names(ma)
colnames(c) <- colnames(ma)
for (i in 1:nreihe)
{
print(i)
normrow <- norm(ma[i,],"F")
for (j in 1:nspalte)
{
c[i,j] <-ma[i,j]/normrow...