# ===========================================================
# TIBCO Spotfire S+: Obtain Turnbull estimates
#
# December 11, 2018
# ===========================================================
# Note: mutilansTTE.dat is created after running 
#       appendixC-2-2.r in R
# ===========================================================


mutilansTTE <- read.table("mutilansTTE.dat", header=T)


fitNP <- kaplanMeier(censor(estart, estop, estatus) ~ 1, 
                     data=mutilansTTE, se.fit=F)
fitNP$fits