#  Instead of going through all of those steps we could
#  just use our Mode() function.  First load it.
#  Note that the name of the file is mode.R but the name
#  of the function is Mode(), with a capital M
source("../mode.R")
Mode( L1 )