tests/testthat/testfile.R

library(doubleCoxr)
library(ucminf)
library(MASS)
library(xtable)
library(survival)
data("kidney",package="survival")
kidney$sex <- kidney$sex - 1
formula.scale=as.formula('Surv(time, status) ~ age + sex')
formula.shape=as.formula('Surv(time, status) ~ 1')
cluster='id'
dist='Weibull'
ResultTest<-ParNPHCox(formula.scale,formula.shape,cluster,dist,data=kidney,NULL,NULL)
AB5103/doubleCoxr documentation built on Feb. 20, 2022, 2:20 p.m.