R/meshgrid.R

In TauP.R: Earthquake Traveltime Calculations for 1-D Earth Models

Defines functions meshgrid

Documented in meshgrid

meshgrid <-
function(a,b){
  return(list(x=outer(b*0, a, FUN = "+"), y = outer(b, a*0, FUN = "+")))
}

Try the TauP.R package in your browser