Nothing
make_filenames<-function(WD,climate,environment,inival,start,end){
filenames<-paste(WD,"Filenames",sep="")
cat("[in]",file=filenames,sep="\n")
cat(paste("directory=",WD,"input/",sep=""),file=filenames,append=TRUE,sep="\n")
cat(paste("climate=",climate,sep=""),file=filenames,append=TRUE,sep="\n")
cat(paste("environment=",environment,sep=""),file=filenames,append=TRUE,sep="\n")
cat("parameters= param.txt",file=filenames,append=TRUE,sep="\n")
cat(paste("initval=",inival,sep=""),file=filenames,append=TRUE,sep="\n")
cat(file=filenames,append=TRUE,sep="\n")
cat("[out]",file=filenames,append=TRUE,sep="\n")
cat(paste("directory=",WD,"output/",sep=""),file=filenames,append=TRUE,sep="\n")
cat("month=outmo.txt",file=filenames,append=TRUE,sep="\n")
cat("year=outyr.txt",file=filenames,append=TRUE,sep="\n")
cat(file=filenames,append=TRUE,sep="\n")
cat("[year]",file=filenames,append=TRUE,sep="\n")
cat(paste("start=",start,sep=""),file=filenames,append=TRUE,sep="\n")
cat(paste("end=",end,sep=""),file=filenames,append=TRUE,sep="\n")
}
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.