That's perfect, thanks! baptiste
On 10 March 2010 14:47, Gabor Grothendieck <ggrothendi...@gmail.com> wrote: > Try this. It takes a matrix or data.frame, codes= which is a vector > of % codes and other text and file= and other cat arguments. If no > ... args are given it outputs the character string that it would have > handed to cat. > > write.mat <- function(mat, codes, sep = "", ...) { > s <- do.call(sprintf, unname(c(paste(codes, collapse = ""), > as.data.frame(m)))) > if (length(list(...)) > 0) cat(s, sep = sep, ...) else s > } > > # test - m is from original post > write.mat(m, rep(c("%i", " %15.7e", "\n"), c(1, 6, 1)), file = "") > > > On Wed, Mar 10, 2010 at 7:52 AM, baptiste auguie > <baptiste.aug...@googlemail.com> wrote: >> Thanks, it is indeed a bit cleaner. I was hoping for a more generic >> solution but I guess people use cat() and sprintf() in such cases. >> >> Thanks, >> >> baptiste >> >> On 10 March 2010 12:46, Berend Hasselman <b...@xs4all.nl> wrote: >>> >>> >>> >>> baptiste auguie-5 wrote: >>>> >>>> >>>> This is a lot easier >>>> >>>> for(k in >>>> seq(1,nrow(m))){cat(c(sprintf("%7d",m[k,1]),sprintf("%16.7e",m[k,2:8]),"\n")) >>>> >>>> Berend >>>> >>> >>> Oops. >>> Missing sep="" and closing }. >>> The correct line is >>> >>> for(k in >>> seq(1,nrow(m))){cat(c(sprintf("%7d",m[k,1]),sprintf("%16.7e",m[k,2:8]),"\n"),sep="")} >>> >>> Berend >>> -- >>> View this message in context: >>> http://n4.nabble.com/write-fortran-tp1587119p1587272.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. >>> >> >> ______________________________________________ >> 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.