R/west_east.R

In simon-tarr/condRtis: A collection of useful functions for Condatis analyses

#' west_east
#'
#' This function sets the left-most column (west) of raster to '1' (i.e. the source) and the right-most column (east) of the raster to '2' (i.e. the target)
#' @param raster Raster file of your study extent
#' @keywords Condatis, raster
#' @export
#' @import raster
#' @examples
#' r <- raster::raster(nrow=10, ncol=10)
#' west_east(r)

west_east<-function(raster){

  x<-raster
  x[]<-NA
  x[,1] <- 1
  x[,nrow(x)]<-2

  return(x)


}