R/twodfunction.R

In JackStat/CompPack: Collection of Computational Statistic Tools

#' exp(-(x+y))
#' 
#' @description 
#' Generate exp(-(x+y) maxtrix
#' 
#' @param x vector of value
#' @param y vector of value
#' 
#' @examples
#' twodfunction(1,1)
#' 
#' @author Ernest Chan \email{faiernest@@gmail.com}
#' @export
twodfunction = function(x,y)
{
  z = matrix(0, nrow=length(x), ncol=length(y))
  for(i in 1:length(y))
  {
    for(j in 1: length(x))
    {
      z[i,j] = exp(-x[j] + -y[i])
    }
  }
  z
}