R/make_filenames.r

Defines functions make_filenames

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")
}

Try the NUCOMBog package in your browser

Any scripts or data that you put into this service are public.

NUCOMBog documentation built on May 2, 2019, 11:01 a.m.