Displaying 1 result from an estimated 1 matches for "skalarprodukt".
2002 Jan 25
1
Fw: Summary for Distance matrix by cosine?
...(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
}
}
print(c)
return (c)
}
# und somit ist der Cosinus identisch mit dem Skalarprodukt
# and thus the Cosine is identical to the inner product
distmatrix_cos <- function(c) {
d <- crossprod(t(c))
row.names(d) <- row.names(c)
colnames(d) <- row.names(c)
return(d)
}
# Hauptprogramm/ Main program
library(mva)
tab <- read.table("C:/Programme/Perl/ind...