rm(list = ls()) 

setwd("D:/Public/Documents/R/00   RESUMEN FUNCIONES/00 survival")

remision<-read.table("remision.txt",header=T)
attach(remision)
library(epicalc)


var1=time
var2=cens
var3=treat
var4=status


library(splines)
library(survival)
source("surF.r")
sur(remision)