Displaying 1 result from an estimated 1 matches for "unnorm2".
Did you mean:
unnorm
2003 Apr 16
2
trying to plot function using curve
...os==1) || (pos==3))
{
unnorm1 <- function(y) ##here y is 2-dim
{
ifelse(y[2] == 0,2*theta,
(1/y[2])*(exp(y[1]*y[2] + y[2]*theta)
- exp(y[1]*y[2] - y[2]*theta)))
}
unnorm2 <- function(y)
{
## return(unnorm1(c(x,y))) ##here y is 1-dim
ifelse(y == 0,2*theta,
(1/y)*(exp(x*y + y*theta)
- exp(x*y - y*theta)))
}
}
return(integrate(unnorm2,...