I would like to create a custom metric in order to train a fully connected neural network in R. The issue is that I can not figure out how to pass the syntax to R tensorflow