75 lines
1.5 KiB
R
75 lines
1.5 KiB
R
# scriptTemplate.R
|
|
#
|
|
# Purpose:
|
|
# Version:
|
|
# Date:
|
|
# Author:
|
|
#
|
|
# Input:
|
|
# Output:
|
|
# Dependencies:
|
|
#
|
|
# ToDo:
|
|
# Notes:
|
|
#
|
|
# ==============================================================================
|
|
|
|
setwd("<your/project/directory>")
|
|
|
|
# ==== PARAMETERS ============================================================
|
|
# Define and explain all parameters. No "magic numbers" in your code below.
|
|
|
|
|
|
|
|
# ==== PACKAGES ==============================================================
|
|
# Load all required packages.
|
|
|
|
if (! require(seqinr, quietly=TRUE)) {
|
|
install.packages("seqinr")
|
|
library(seqinr)
|
|
}
|
|
# Package information:
|
|
# library(help = seqinr) # basic information
|
|
# browseVignettes("seqinr") # available vignettes
|
|
# data(package = "seqinr") # available datasets
|
|
|
|
|
|
|
|
|
|
# ==== FUNCTIONS =============================================================
|
|
|
|
# Define functions or source external files
|
|
source("<myUtilityFunctionsScript.R>")
|
|
|
|
myFunction <- function(a, b=1) {
|
|
# Purpose:
|
|
# Describe ...
|
|
# Parameters:
|
|
# a: ...
|
|
# b: ...
|
|
# Value:
|
|
# result: ...
|
|
|
|
# code ...
|
|
|
|
return(result)
|
|
}
|
|
|
|
|
|
|
|
# ==== PROCESS ===============================================================
|
|
# Enter the step-by-step process of your project here. Strive to write your
|
|
# code so that you can simply run this entire file and re-create all
|
|
# intermediate results.
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# ==== TESTS =================================================================
|
|
# Enter your function tests here...
|
|
|
|
|
|
# [END]
|