Re: [R] problem with previous code

2014-03-27 Thread Elio Shijaku
Excellent Arun, it worked, many thanks. E. On Thu, Mar 27, 2014 at 11:55 AM, arun wrote: > HI Elio, > > May be this helps: > indx <- order(gsub("\\d+","",colnames(res))) > res1 <- res[indx,indx] > A.K. > > > > > > > > On

Re: [R] problem with previous code

2014-03-05 Thread Elio Shijaku
mes=rep(list(c("a9","a4","a6","a12")),2)) > vec1 <- paste0(rownames(m1)[row(m1)],colnames(m1)[col(m1)]) > vec2 <- paste0(rownames(m2)[row(m2)],colnames(m2)[col(m2)]) > indx <- match(vec1,vec2) > indx1 <- indx[!is.na(indx)] > > indx2

Re: [R] matrix merging question

2014-02-25 Thread Elio Shijaku
> #[1] TRUE > dim(res) > #[1] 90 90 > > > A.K. > > > > > On Tuesday, February 25, 2014 4:17 PM, Elio Shijaku > wrote: > > Hi Arun, > > Yes, I figured that, thanks a lot for your help. > > Howver, when I test res1 for symmetricity I get: > >

Re: [R] matrix merging question

2014-02-25 Thread Elio Shijaku
mes), ncol=ncol(lst2[[1]]), > dimnames=list(uNrownames,NULL)) > > for(i in seq_along(lst2)){ > mat1 <- lst2[[i]] > res1[rownames(mat1),] <- res[rownames(mat1),] + mat1 > res1 > } > > dim(res1) > #[1] 90 90 > > > > A.K. > > > > &g