# functionTemplate.R
#
# Purpose:  (General)
#
# ToDo:
# Notes:
#
# ==============================================================================

myFunction <- function(a, b=1) {
	# Purpose:
	#     Describe ...
    # Version:
    # Date:
    # Author:
    #
    # Parameters:
	#     a: ...
	#     b: ...
	# Value:
	#     result: ...
	# Example: <example invocation>

	# code ...

	return(result)
}


# ====  TESTS  =================================================================
# Enter your function tests here...

if (FALSE) {
  # test ...
}

# [END]