Data in R data single object format

to_R.m

+% This function is usefull to write a GNU Octave object in a filename which is
+% readable by GNU R.
+
+% Copyright 2012-2013 INRA, France, Jean-Benoist Leger
+%                                     <jbleger@bordeaux.inra.fr>
+% 
+% This software is a computer program whose purpose is to simulated 
+% ecological bipartite graphs, apply clustering methods on these graphs.
+% 
+% This software is governed by the CeCILL-B  license under French law and
+% abiding by the rules of distribution of free software. You can use, 
+% modify and/ or redistribute the software under the terms of the 
+% CeCILL-B license. The licence can be found in the LICENCE file in the
+% root directory.
+% 
+% As a counterpart to the access to the source code and rights to copy,
+% modify and redistribute granted by the license, users are provided only
+% with a limited warranty  and the software's author, the holder of the
+% economic rights, and the successive licensors have only limited
+% liability. 
+% 
+% In this respect, the user's attention is drawn to the risks associated
+% with loading, using, modifying and/or developing or reproducing the
+% software by the user in light of its specific status of free software,
+% that may mean that it is complicated to manipulate, and that also
+% therefore means that it is reserved for developers and experienced
+% professionals having in-depth computer knowledge. Users are therefore
+% encouraged to load and test the software's suitability as regards their
+% requirements in conditions enabling the security of their systems and/or 
+% data to be ensured and, more generally, to use and operate it in the 
+% same conditions as regards security. 
+% 
+% The fact that you are presently reading this means that you have had
+% knowledge of the CeCILL-B license and that you accept its terms.
+% 
+
+
+function to_R(filename,objectname,object)
+    
+    f=fopen(filename,'w');
+    fprintf(f,'%s <- %s', objectname, to_R_str(object));
+    fclose(f);
+end

to_R_str.m

+% this function convert a GNU Octave object to string which is understable by
+% GNU R. Recursive call are made.
+
+% Copyright 2012-2013 INRA, France, Jean-Benoist Leger
+%                                     <jbleger@bordeaux.inra.fr>
+% 
+% This software is a computer program whose purpose is to simulated 
+% ecological bipartite graphs, apply clustering methods on these graphs.
+% 
+% This software is governed by the CeCILL-B  license under French law and
+% abiding by the rules of distribution of free software. You can use, 
+% modify and/ or redistribute the software under the terms of the 
+% CeCILL-B license. The licence can be found in the LICENCE file in the
+% root directory.
+% 
+% As a counterpart to the access to the source code and rights to copy,
+% modify and redistribute granted by the license, users are provided only
+% with a limited warranty  and the software's author, the holder of the
+% economic rights, and the successive licensors have only limited
+% liability. 
+% 
+% In this respect, the user's attention is drawn to the risks associated
+% with loading, using, modifying and/or developing or reproducing the
+% software by the user in light of its specific status of free software,
+% that may mean that it is complicated to manipulate, and that also
+% therefore means that it is reserved for developers and experienced
+% professionals having in-depth computer knowledge. Users are therefore
+% encouraged to load and test the software's suitability as regards their
+% requirements in conditions enabling the security of their systems and/or 
+% data to be ensured and, more generally, to use and operate it in the 
+% same conditions as regards security. 
+% 
+% The fact that you are presently reading this means that you have had
+% knowledge of the CeCILL-B license and that you accept its terms.
+% 
+
+
+function out=to_R_str(in)
+    if(strcmp(class(in),'struct'))
+        out = 'list(';
+
+        f = fieldnames(in);
+        for i=1:length(f)
+            out = [out,f{i},'=',to_R_str(getfield(in,f{i}))];
+            if i~=length(f)
+                out = [out,','];
+            end
+        end
+        out = [out,')'];
+    end
+
+    if(strcmp(class(in),'cell'))
+        out = 'list(';
+
+        for i=1:numel(in)
+            out = [out,to_R_str(in{i})];
+            if i~=numel(in)
+                out = [out,','];
+            end
+        end
+        out = [out,')'];
+    end
+
+    if(ismatrix(in))
+        if(numel(in)==1)
+            out = num2str(in);
+        else
+            out = 'matrix(c(';
+            for i=1:numel(in)
+                out = [out,num2str(in(i))];
+                if i~=numel(in)
+                    out = [out,','];
+                end
+            end
+            out = [out,')'];
+            out = [out,',nrow=',num2str(size(in,1))];
+            out = [out,',ncol=',num2str(size(in,2))];
+            out = [out,',byrow=FALSE)'];
+        end
+    end
+
+    if(ischar(in))
+        out = ['"',in,'"'];
+    end
+
+end
+
+
+            
+    
+
+
+