2017-08-18 20:04:01 +00:00
|
|
|
# functionTemplate.R
|
|
|
|
|
#
|
|
|
|
|
# Purpose: (General)
|
|
|
|
|
#
|
|
|
|
|
# ToDo:
|
|
|
|
|
# Notes:
|
|
|
|
|
#
|
|
|
|
|
# ==============================================================================
|
|
|
|
|
|
|
|
|
|
myFunction <- function(a, b=1) {
|
|
|
|
|
# Purpose:
|
|
|
|
|
# Describe ...
|
|
|
|
|
# Version:
|
|
|
|
|
# Date:
|
|
|
|
|
# Author:
|
|
|
|
|
#
|
|
|
|
|
# Parameters:
|
|
|
|
|
# a: ...
|
|
|
|
|
# b: ...
|
|
|
|
|
# Value:
|
|
|
|
|
# result: ...
|
2021-09-16 04:53:52 +00:00
|
|
|
# Example: <example invocation>
|
2017-08-18 20:04:01 +00:00
|
|
|
|
|
|
|
|
# code ...
|
|
|
|
|
|
|
|
|
|
return(result)
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# ==== TESTS =================================================================
|
|
|
|
|
# Enter your function tests here...
|
|
|
|
|
|
2017-10-29 03:07:52 +00:00
|
|
|
if (FALSE) {
|
|
|
|
|
# test ...
|
|
|
|
|
}
|
2017-08-18 20:04:01 +00:00
|
|
|
|
|
|
|
|
# [END]
|
