## Not run: 
#     data(toy)
#     f <- Surv(time, status) ~ meta
#     # Fit kaps algorithm without cross-validation.
#     # It means the step to finding optimal K is not entered.
#     fit1 <- kaps(f, data = toy, K = 3)
# 
#     # show the object of kaps (it contains apss S4 class)
#     fit1
# 
#     # plot Kaplan-Meire estimates
#     plot(fit1)
# 
#     # Fit kaps algorithm for selection optimal number of subgropus.
#     fit2 <- kaps(f, data = toy, K= 2:4) 
#     fit2
# 
#     # plot outputs with subgroup selection
#     require(locfit) # for scatterplot smoothing
#     plot(fit2)
# 
#     print(fit2,K=2)
#     summary(fit2)
#     summary(fit2,K=2)
# 
#     # require(party)
#     # fit4 <- ctree(f, data = toy)
#   ## End(Not run)
Run the code above in your browser using DataLab