ozzi wrote > > Dear Berend, > > the coding is not working for more than 6. Try to plug 10 or other number. > Would you please correct ? >
My mistake. mkupper <- function(A) { n <- length(A) m <- (1+sqrt(1+8*n))/2 stopifnot(m==as.integer(m)) print(m) L <- matrix(0,nrow=m,ncol=m) L[lower.tri(L)] <- A U <- t(L) U } A <- 1:6 mkupper(A) -- View this message in context: http://r.789695.n4.nabble.com/how-to-convert-a-vector-to-an-upper-matrix-tp3587715p4633630.html Sent from the R help mailing list archive at Nabble.com. ______________________________________________ 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.