I tried to refer to below links to use data.table package to calculate mape,smape,mse,rmse, its working fine
data.table
mape
smape
mse
rmse