# Homework 06 template
# ====================

# Goal: use apply functions


# clear workspace
rm(list = ls())


# edit the following line -- create function xMax():
smartScale


# do not edit following
# - run tests
source("compute_tests.R")
# - save results
save(result, file = "results.RData")