# Generate Dummy Data
X = data.frame(X1=rnorm(40, 10, 1))
# calculate the pre-process parameters from the dataset
preprocessParams <- preProcess(X, method=c("range"))
# map to [0,1]
transformed <- predict(preprocessParams, X)
# get the original data back ....
??????????????

inverse_transform = predict(preprocessParams, transformed, type = "response")