Running examples in 'thregI-Ex.R' failed
The error most likely occurred in:

> ### Name: hr.thregI
> ### Title: perform hazard ratio for threshold regression model
> ### Aliases: hr hr.thregI
> ### Keywords: hazard ratio interval-censored data survival analysis
> ###   threshold regression
> 
> ### ** Examples
> 
> #load the data "bcos"
> data("bcos", package="thregI")
> 
> #transform the "treatment" variable into factor variable f.treatment
> bcos$f.treatment=factor(bcos$treatment)
> 
> #fit the threshold regression model on the factor variable f.treatment
> fit<-thregI(Surv(left, right, type='interval2')~f.treatment|f.treatment,data=bcos)
Warning in log(su(para) + Fv(para) - 0.9999999) : NaNs produced
Warning in log(su(para) + Fv(para) - 0.9999999) : NaNs produced
Warning in nlm(logf, p, hessian = TRUE) :
  NA/Inf replaced by maximum positive value
Warning in log(su(para) + Fv(para) - 0.9999999) : NaNs produced
Warning in nlm(logf, p, hessian = TRUE) :
  NA/Inf replaced by maximum positive value
Warning in log(su(para) + Fv(para) - 0.9999999) : NaNs produced
Warning in nlm(logf, p, hessian = TRUE) :
  NA/Inf replaced by maximum positive value
Warning in log(su(para) + Fv(para) - 0.9999999) : NaNs produced
Warning in nlm(logf, p, hessian = TRUE) :
  NA/Inf replaced by maximum positive value
Warning in log(su(para) + Fv(para) - 0.9999999) : NaNs produced
Warning in nlm(logf, p, hessian = TRUE) :
  NA/Inf replaced by maximum positive value
Warning in log(su(para) + Fv(para) - 0.9999999) : NaNs produced
Warning in nlm(logf, p, hessian = TRUE) :
  NA/Inf replaced by maximum positive value
Warning in log(su(para) + Fv(para) - 0.9999999) : NaNs produced
Warning in nlm(logf, p, hessian = TRUE) :
  NA/Inf replaced by maximum positive value
Warning in log(su(para) + Fv(para) - 0.9999999) : NaNs produced
Warning in nlm(logf, p, hessian = TRUE) :
  NA/Inf replaced by maximum positive value
Warning in log(su(para) + Fv(para) - 0.9999999) : NaNs produced
Warning in nlm(logf, p, hessian = TRUE) :
  NA/Inf replaced by maximum positive value
Warning in log(su(para) + Fv(para) - 0.9999999) : NaNs produced
Warning in nlm(logf, p, hessian = TRUE) :
  NA/Inf replaced by maximum positive value
Warning in log(su(para) + Fv(para) - 0.9999999) : NaNs produced
Warning in nlm(logf, p, hessian = TRUE) :
  NA/Inf replaced by maximum positive value
Warning in log(su(para) + Fv(para) - 0.9999999) : NaNs produced
Warning in nlm(logf, p, hessian = TRUE) :
  NA/Inf replaced by maximum positive value
Warning in log(su(para) + Fv(para) - 0.9999999) : NaNs produced
Warning in nlm(logf, p, hessian = TRUE) :
  NA/Inf replaced by maximum positive value
Warning in log(su(para) + Fv(para) - 0.9999999) : NaNs produced
Warning in nlm(logf, p, hessian = TRUE) :
  NA/Inf replaced by maximum positive value
Warning in log(su(para) + Fv(para) - 0.9999999) : NaNs produced
Warning in nlm(logf, p, hessian = TRUE) :
  NA/Inf replaced by maximum positive value
Warning in log(su(para) + Fv(para) - 0.9999999) : NaNs produced
Warning in nlm(logf, p, hessian = TRUE) :
  NA/Inf replaced by maximum positive value
Warning in log(su(para) + Fv(para) - 0.9999999) : NaNs produced
Warning in nlm(logf, p, hessian = TRUE) :
  NA/Inf replaced by maximum positive value
Warning in log(su(para) + Fv(para) - 0.9999999) : NaNs produced
Warning in nlm(logf, p, hessian = TRUE) :
  NA/Inf replaced by maximum positive value
Warning in log(su(para) + Fv(para) - 0.9999999) : NaNs produced
Warning in nlm(logf, p, hessian = TRUE) :
  NA/Inf replaced by maximum positive value
Error in solve.default(est$hessian) : 
  Lapack routine dgesv: system is exactly singular: U[1,1] = 0
Calls: thregI -> solve -> solve.default
Execution halted