library(survival)

assets <- read.table("assets.csv",header=T,sep=",")
crash <- read.table("crash.csv",header=T,sep=",")
rally <- read.table("rally.csv",header=T,sep=",")