Displaying 1 result from an estimated 1 matches for "tobit3".
Did you mean:
tobit
2013 Apr 22
0
Copula fitMdvc:
...felse(Y1>0,
pnorm((Y1-x%*%beta)/sigma),(1-pnorm((x%*%beta)/sigma)))}
dtobit2 <- function(beta,sigma,x,y2) {ifelse(Y2>0, dnorm(Y2,x%*%beta,
sigma),(1-pnorm((x%*%beta)/sigma)))}
ptobit2 <- function(beta,sigma,x,y2) {ifelse(Y2>0,
pnorm((Y2-x%*%beta)/sigma),(1-pnorm((x%*%beta)/sigma)))}
dtobit3 <- function(beta,sigma,x,y3) {ifelse(Y3>0, dnorm(Y3,x%*%beta,
sigma),(1-pnorm((x%*%beta)/sigma)))}
ptobit3 <- function(beta,sigma,x,y3) {ifelse(Y3>0,
pnorm((Y3-x%*%beta)/sigma),(1-pnorm((x%*%beta)/sigma)))}
#mvdc object
myMvdc <- mvdc(copula = ellipCopula("normal", param =...