Nothing
#################################################
# 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)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.