R/mgswrite.RLINE_regulargrid.R

In michellegrace/mgs.dispersion: This reads and plots dispersion related inputs and outputs.

#' Writes a text file with a regular spaced grid ready fro R-LINE to use.
#' NOTE: if you do nto want to go in one of the directions put start=end and d = 0. 
#'
#' @param fname output file name for grid
#' @param Xstart begining in X-direction
#' @param Xend end in X-direction
#' @param dX steps in X-direction
#' @param Ystart begining in Y-direction
#' @param Yend end in Y-direction
#' @param dY steps in Y-direction
#' @param Zstart begining in Z-direction
#' @param Zend end in Z-direction
#' @param dZ steps in Z-direction
#'
#' @export mgswrite.RLINE_regulargrid
#########################################################################

mgswrite.RLINE_regulargrid <- function(fname,Xstart,Xend,dX,Ystart,Yend,dY,Zstart,Zend,dZ){
    
    Xs <- seq(from=Xstart,to=Xend,by=dX)
    Ys <- seq(from=Ystart,to=Yend,by=dY)
    Zs <- seq(from=Zstart,to=Zend,by=dZ)
    
    write("This file contains receptor locations",file=fname,append=FALSE)  
    write("X_coordinate    Y_Coordinate    Z_Coordinate",file=fname,append=TRUE)  
    write("----------------------------------------------",file=fname,append=TRUE)  
    
    for(x in Xs){
      for(y in Ys){
        for(z in Zs){
          write(paste(x,y,z,sep='\t\t\t\t\t'),file=fname,append=TRUE)
        }
      }
    }
    
  }