Displaying 1 result from an estimated 1 matches for "intgfun".
2012 Sep 25
1
how to pass a function to a function inside a function
...9; function that is copy-paste-edited. If built
separatey, these functions work well. However that is not the case if
combines together, where certainly I made mistake somewhere when
constructing the code.
can someone help point out the mistakes for me please?
Thanks!
Aehan
____________________
intgfun<- function(a,b,c,mu,alpha,xi,upper, ...,subdivisions = 100, rel.tol
= .Machine$double.eps^0.25,
abs.tol = rel.tol, stop.on.error = TRUE, keep.xy = FALSE,
aux = NULL)
{
x<-vector()
fs<-function(x){
temp<-(-xi^(-1))*log(1-xi*(x-mu)/alpha)
(((alpha^(-1))*(exp((-(1-xi)*temp)-exp(-...