R/Psi2Dname.R

Defines functions `Psi2Dname`

`Psi2Dname` <-
function(J, filter.number, family, switch)
{
#
# Program to return a specific character string format
# for a given 2-D Discrete autocorrelation wavelet
#
if(J >= 0.)
   stop("J must be a negative integer")
if(switch == "direction")
   return(paste("D2Psi.d.",  - J, ".", filter.number, ".", family,sep = ""))
if(switch == "level")
   return(paste("D2Psi.l.",  - J, ".", filter.number, ".", family,sep = ""))
else 
   stop("\nSwitch can only take the values direction and level!\n")
}

Try the LS2W package in your browser

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

LS2W documentation built on May 2, 2019, 3:27 a.m.