Omitting dots from censored and followup columns

R/km.R

@@ -65,8 +65,8 @@ kaplan.meier.plot.gg<-function(x,var,...){
 
  
 	#x should have followup and censored columns	
-	surv.obj<-survival::Surv(x$.followup,x$.censored)
-   m=base::max(x$.followup)
+	surv.obj<-survival::Surv(x$followup,x$censored)
+   m=base::max(x$followup)
 
 	f<-stats::as.formula(paste('surv.obj',var,sep='~'))
    #need survfit2