library(survival)

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