################################################################################
##In this calculation, we assume that the ISODAT exported data file is##########
##archived in a folder named "data_table" located on the Desktop, the ##########
##generated data file will then be saved in another folder named "data##########
##_summary, also located on the Desktop.########################################

################################################################################
##This following section defines all the absoute directories, the default#######
##values are set to represent Mac OS X.  Please replace all "/" with "\\"#######
##on a Windows machine.

open_dir <- "C:/Documents and Settings/Thermo/Desktop/data_table/"   ## exported .csv files
save_dir <- "C:/Documents and Settings/Thermo/Desktop/data_table/processed_data/"   ## save generated files

################################################################################
##Set the working directory to the "data_table", and specify the file you ######
##would like to process. Read in the file your selected, and format the data####
##file into a data frame for the ease of data manupulation.

setwd(open_dir)
starthere  <- "121211_test01_tank1766_tank1766_16V_20acq_P3tune.csv"
starthere  <- "121212_test01_tank1766_tank1766_16V_20acq_newTune.csv"
starthere  <- "121213_test01_tank1766_tank1766_16V_20acq_newTune.csv"
starthere  <- "121213_test01_tank1766_tank1766_16V_20acq_newTune.csv"
starthere  <- "121213_test02"

source('Clumped_calculation_PBL_correction_do.R');
mean(as.numeric(calc_output[1:150,16]))
##