https://github.com/cran/fields
Tip revision: 6769ffc81115fbf0bf7d9c566cf7ac81be0049dc authored by Doug Nychka on 25 July 2005, 00:00:00 UTC
version 3.04
version 3.04
Tip revision: 6769ffc
radbas.constant.r
"radbas.constant" <-
function (m, d)
{
# local gamma function to avoid imprecision warnings for negative arguments.
gamma.local <- function(x){
if( x<0){
temp<- 1
while( x<0){
temp<- temp*x
x<- x+1
}
return(gamma(x)/temp)}
else{
gamma(x)}
}
if (d%%2 == 0) {
Amd <- (((-1)^(1 + m + d/2)) * (2^(1 - 2 * m)) *
(pi^(-d/2)))/(gamma(m) * gamma.local(m - d/2 + 1))
}
else {
Amd <- (gamma.local(d/2 - m) * (2^(-2 * m)) * (pi^(-d/2)))/gamma(m)
}
Amd
}