Denormalize data in R

I have the following code

 testset1 <- datos4[1,]

 prueba <- neuralnet::compute(net, testset1[,1:10])

 prueba$net.result
 predicted=prueba$net.result * abs(diff(range(datos4[,11]))) + min(datos4[,11])

 print(predicted)

The result gives me 0.42.

As I would have to do to normalize and obtain the compound data

Greetings and thanks