tests/testthat/helper_fitIndepCens.R

# library(depCens)
# library(parallel)
# library(copula)
# library(survival)
# library(pbivnorm)

data <- genData(500)
resData <- data$resData
X = data$X
W = data$W

fitI <- fitIndepCens(resData = data$resData, X = X, W = W, bootstrap = FALSE)
dist <- fitI$censoringDistribution
haz <- fitI$hazardFunction
parI <- fitI$parameterEstimates
m = length(parI)

Try the SemiPar.depCens package in your browser

Any scripts or data that you put into this service are public.

SemiPar.depCens documentation built on Sept. 11, 2024, 5:29 p.m.