001    /*
002     * Copyright (C) 2008-2010 by Holger Arndt
003     *
004     * This file is part of the Universal Java Matrix Package (UJMP).
005     * See the NOTICE file distributed with this work for additional
006     * information regarding copyright ownership and licensing.
007     *
008     * UJMP is free software; you can redistribute it and/or modify
009     * it under the terms of the GNU Lesser General Public License as
010     * published by the Free Software Foundation; either version 2
011     * of the License, or (at your option) any later version.
012     *
013     * UJMP is distributed in the hope that it will be useful,
014     * but WITHOUT ANY WARRANTY; without even the implied warranty of
015     * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
016     * GNU Lesser General Public License for more details.
017     *
018     * You should have received a copy of the GNU Lesser General Public
019     * License along with UJMP; if not, write to the
020     * Free Software Foundation, Inc., 51 Franklin St, Fifth Floor,
021     * Boston, MA  02110-1301  USA
022     */
023    
024    package org.ujmp.core.io;
025    
026    import java.io.File;
027    import java.io.IOException;
028    import java.io.OutputStream;
029    import java.io.OutputStreamWriter;
030    import java.io.Writer;
031    
032    import org.ujmp.core.Matrix;
033    import org.ujmp.core.exceptions.MatrixException;
034    import org.ujmp.core.util.io.IntelligentFileWriter;
035    
036    public class ExportMatrixR {
037    
038            public static void toFile(File file, Matrix matrix, Object... parameters) throws IOException,
039                            MatrixException {
040                    IntelligentFileWriter writer = new IntelligentFileWriter(file);
041                    toWriter(writer, matrix, parameters);
042                    writer.close();
043            }
044    
045            public static void toStream(OutputStream outputStream, Matrix matrix, Object... parameters)
046                            throws IOException, MatrixException {
047                    OutputStreamWriter writer = new OutputStreamWriter(outputStream);
048                    toWriter(writer, matrix, parameters);
049                    writer.close();
050            }
051    
052            public static void toWriter(Writer writer, Matrix matrix, Object... parameters)
053                            throws IOException, MatrixException {
054                    String EOL = System.getProperty("line.separator");
055                    long nrow = matrix.getRowCount();
056                    long ncol = matrix.getColumnCount();
057                    writer.append("matrix(c(");
058                    for (int c = 0; c < ncol; c++) {
059                            writer.append("c(");
060                            for (int r = 0; r < nrow; r++) {
061                                    writer.append(String.valueOf(matrix.getAsDouble(r, c)));
062                                    if ((r + 1) < nrow) {
063                                            writer.append(",");
064                                    }
065                            }
066                            writer.append(")");
067                            if ((c + 1) < ncol) {
068                                    writer.append(",");
069                            }
070                    }
071                    writer.append("),ncol=" + ncol + ",nrow=" + nrow + ")" + EOL);
072            }
073    
074    }