I'm not sure I follow: the matrix Iske doesn't have row or column
names....though if you perhaps mean you want to use the pasted
together rows as names on the distance matrix rather than the
converted characters, this will do it:
Iske.rows <- apply(Iske, 1, paste, collapse = "") # Perhaps subtract
out the 33 you added in
dimnames(Iske.levens) <- list(Iske.rows, Iske.rows)
On Fri, Oct 21, 2011 at 1:57 AM, Jörg Reuter <jo...@reuter.at> wrote:
> Hi,
> I am very happy. My problems are solved without one little thing:
>
> (Iske <- matrix(c(1, 1, 1, 2, 2, 2, 1, 1, 1, 5, 1, 2, 2, 2, 1, 1, 1,
> 4, 4, 4, 4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 4, 4, 4, 4, 4, 4, 2,
> 2, 2, 2, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 1, 2), ncol = 5)) #My Matrix
>
> Iske<- Iske+33 #I want see the letters
>
> (Iske.char<-apply(Iske, 1, function(x) rawToChar(as.raw(x)))) #Numbers to Char
> LD <- function(s1, s2){
> require(vwr)
> s1 = as.character(s1)
> s2 = as.character(s2)
> t(sapply(s1, levenshtein.distance, s2))
> }
> Iske.levens<-(LD(Iske.char,Iske.char)) #Calculate the Levenshtein-Distanz
>
> The result:
> !"#$% !"#$% !"#$% "!#$% ....
> !"#$% 0 0 0
> !"#$% 0 0 0
> !"#$% 0 0 0
> .
> .
> .
> It is all beautiful. But is there a simple way to change the
> column/row-name to the original from the Matrix Iske?
>
> Thanks a lot for the help yesterday. It was a big step in my life :-)
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
