# NOT RUN {
# load data
data("Eredivisie")
# log-transform market values
Eredivisie$logMarketValue <- log(Eredivisie$MarketValue)
# plot log market values against age
scatter_plot(Eredivisie, c("Age", "logMarketValue"))
# scatterplot matrix of age, number of minutes played, and
# log market values
scatter_plot(Eredivisie, c("Age", "Minutes", "logMarketValue"))
# }
Run the code above in your browser using DataLab