Create trinalyze.R

R code to analyze Trinity