stiltRunner<-"/project/tss/adesai" # whose directory is STILT being run in? stiltDir<-paste(stiltRunner,"/stilt",sep="") rData<-paste(stiltDir,"/Rsc/.RData",sep="") rDataFltPlan<-paste(stiltDir,"/Fltplan/Rsc/.RData",sep="") attach(rData,warn.conflicts=FALSE) #functions needed for flight planning attach(rDataFltPlan,warn.conflicts=FALSE) #functions needed for flight planning fdat <- scan("fconv.txt",what=character(0)) inpath<-fdat[1] outpath<-fdat[2] infile<-fdat[3] outfile<-fdat[4] cnames <- c("time","index","lat","lon","agl","grdht","foot","temp0","swrad","zi","dens","dmass") fcdat<-NULL dat <- matrix(scan(paste(inpath,infile,sep=""),skip=1,quiet=T),byrow=T,ncol=12) fcdat<-rbind(fcdat,dat) dimnames(fcdat)<-list(NULL,cnames) assignr(xname=outfile,value=fcdat,path=outpath,printTF=T) #plot the graph to PNG file, save in inpath as infile2(.png)