R: Hazard Ratio with 2 variables combined

Question

The is my data set (as example):

library("survival")
gehan <- read.csv("/Users/check1.csv", header =  TRUE, sep =",")