text1

data_url <-"http://archive.ics.uci.edu/ml/machine-learning-databases/auto-mpg/auto-mpg.data"
column_names <- c("mpg", "cylinders", "displacement", "horsepower", "weight", "acceleration", "model_year", "origin", "car_name")
auto_mpg <- read.table(data_url, col.names = column_names, na.strings = "?", stringsAsFactors = FALSE)


auto_mpg$mpg_standardized <-scale(auto_mpg$mpg)


max_mpg <-max(auto_mpg$mpg_standardized, na.rm = TRUE)
min_mpg <- min(auto_mpg$mpg_standardized, na.rm = TRUE)


max_mpg

## [1] 2.953617

min_mpg

## [1] -1.857037