#!/usr/bin/env Rscript

library(SeqKat);
library(getopt);

spec = matrix(
	c(
		'ref.dir', 'r', 2, "character",
		'ref.name', 'n', 2, "character",
		'output.dir', 'o', 2, "character"
		),
	byrow=TRUE, ncol=4
	);

opt = getopt(spec);

opt$ARGS <- NULL;

do.call(get.trinucleotide.count, opt);
