How to find Choice Elasticities

Hello, I am trying to do multinomial logit analysis in R. While I was able to successfully create my model, I am struggling to calculate the choice elasticities my professor requires for analysis. This is the code I have for my model:

travel_data = read_excel("Travel Mode Choice Data for class copy.xlsx")
TM3 <-, choice = "Choice", shape = "long",
chid.var = "Customer", alt.var = "Mode", drop.index = TRUE)
ml.TM <- mlogit(Choice ~ InVehicleCost + WaitTime + InVehicleTime, TM3, reflevel = "Car")

This gives me the model I need, however, I would like to produce an output similar to these results I got in SPSS

Any help would be greatly appreciated!