#' 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)
}
}
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.