Displaying 1 result from an estimated 1 matches for "tp25118139p25118139".
2009 Aug 24
2
[] for R
...}
else
{ out <- rep(-Inf,length(x))
out[1+xi*xx>0] <- (-1/xi-1)*log(1+xi*xx[1+xi*xx>0]) -
(1+xi*xx[1+xi*xx>0])^(-1/xi) -log(sigma)
}
if (!(logvalue))
out <- exp(out)
out
}
--
View this message in context: http://www.nabble.com/---for-R-tp25118139p25118139.html
Sent from the R help mailing list archive at Nabble.com.