library(rms)
library(foreign)
library(survival)



seer<-read.table("SEER_ES_before.txt",header =TRUE,sep = "\t",encoding = "UTF-8",skipNul = TRUE)

seer$age<-factor(seer$age,labels = c("<65",">=65"))
seer$sex<-factor(seer$sex,labels = c("male","female"))
#seer$race<-factor(seer$race,labels = c("white","black","others"))
#seer$martital status<-factor(seer$martital status,labels = c("single","married","separated"))
#seer$histology<-factor(seer$histology,labels = c("adenocarcinoma","squamous cell carcinoma"))


#seer$grade<-factor(seer$grade,labels = c("well differetiated","moderately"))
#seer$tumor<-factor(seer$tumor,labels = c("upper third of esophagus","middle"))
seer$age

seer$sex