#!/usr/bin/Rscript

args <- commandArgs(TRUE);
tag <- args[1];
file_prefix <- args[2];
title <- args[3];

data <- read.csv(file("stdin"));
times <- data$EPOCH;
clap <- data$CLAP;
psap <- data$PSAP;


source("code/output_fits.r");

source("code/output_timeseries.r");


# Currently disabled: use the fully filtered PCA data for distribution generation
#psap <- result$pcafilter$matrix[,1];
#clap <- result$pcafilter$matrix[,2];

source("code/output_distributions.r");