R/write.snns.R

In write.snns: Function for exporting data to SNNS pattern files.

	#################################################
	# write.snns.R (v0.0-4.2) 2007/04/03	 	#
	# Authors: 			 		#
	# Manuel Castejon Limas.			#
	# mail: manuel.castejon@unileon.es       	#
	# Joaquin Ordieres Mere.			#	
	# mail: joaquin.ordieres@dim.unirioja.es	#
	# Francisco Javier de Cos Juez			#
	# mail: decos@api.uniovi.es	                #
	# Francisco Javier Martinez de Pison		#
	# mail: fjmartin@dim.unirioja.es	        #
	#################################################

# This function creates a SNNS pattern file 
# from a data.frame or matrix.

write.snns <- function(x,file="", noutputs=1)
{
 file.create(file)
 cat(" SNNS pattern definition file v3.2\n", file=file, append=TRUE)
 cat(paste("  generated at ",date(),"\n\n\n\n\n\n\n"), file=file, append=TRUE)
 cat(paste(" No. of patterns      :",nrow(x),"\n"), file=file, append=TRUE)
 cat(paste(" No. of input units   :",ncol(x)-noutputs,"\n"), file=file, append=TRUE)
 cat(paste(" No. of output units  :",noutputs,"\n\n"), file=file, append=TRUE)
 for (i in 1:nrow(x))
   {
      
      cat(paste("\n#",i,"\n"), file=file, append=TRUE)
      numcol <- ncol(x)
      while( numcol >10)
         {
            line <- as.character(x[i,1])
            for(j in 2:10)
              line <- paste(line,x[i,j])
            cat(line, file=file, append=TRUE)
            cat("\n", file=file, append=TRUE)
            numcol <- numcol - 10
         }
      line <- as.character(x[i,1])
      for(j in 2:numcol)
        line <- paste(line,x[i,j])
      cat(line, file=file, append=TRUE)
      cat("\n", file=file, append=TRUE)
   }
}