# HG changeset patch
# User testtool
# Date 1506724343 14400
# Node ID 5b70a33bf327c546bbc7a76350e29016eab90a6f
# Parent  6cc0c5eb71b2db969136392b42cbce807502d1bd
Uploaded

diff -r 6cc0c5eb71b2 -r 5b70a33bf327 survival/survival.R
--- a/survival/survival.R	Fri Sep 29 18:11:27 2017 -0400
+++ b/survival/survival.R	Fri Sep 29 18:32:23 2017 -0400
@@ -1,3 +1,4 @@
+require(survival, quietly = TRUE)
 args <- commandArgs(trailingOnly = TRUE)
 
 input =args[1]
@@ -6,7 +7,7 @@
 
 #fit a Kaplan-Meier and plot it
 input<-("test-data/input.csv")
-fit <- survfit(Surv(obsT, status) ~ X1, type="kaplan-meier", conf.type="log", data=read.csv(input))
+fit <- survival::survfit(Surv(obsT, status) ~ X1, type="kaplan-meier", conf.type="log", data=read.csv(input))
 
 res <- summary(fit,times=c(1,2,3))
 save.df <- as.data.frame(res[c("strata", "time", "n.risk", "n.event", "surv", "std.err", "lower", "upper")])