Denormalize data in R

I have the following code

** testset1 <- data4[1,]

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

test $ net.result

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

print (predicted) **

The result gives me 0.42.

How would I have to do to normalize and get the compound data

Greetings and thanks