Calculate relative RMSE in r

To get the relative RMSE of my predicted model and true values,I used the code

ratio<-prediction1/ISEtrain  

rRMSE1<-sqrt(mean((1-ratio)^2))

but I failed , with the output "[1] Inf". What is wrong with my code?

Thank you !