R/dF.R

Defines functions dF

Documented in dF

dF <- function( x ) {

    xdim <- dim( x )
    Kx <- Ky <- matrix( 0, 5, 5 )
    Kx[ 3, 1 ] <- -1
    Ky[ 1, 3 ] <- -1
    Kx[ 3, 3 ] <- 1
    Ky[ 3, 3 ] <- 1

    Kx <- 0.5 * Kx
    Ky <- 0.5 * Ky

    dFx <- kernel2dsmooth( x, K = Kx )
    dFy <- kernel2dsmooth( x, K = Ky )

    return( list( dFx = dFx, dFy = dFy ) )

} # end of 'dF' function.

Try the SpatialVx package in your browser

Any scripts or data that you put into this service are public.

SpatialVx documentation built on March 28, 2021, 1:10 a.m.