Cable model data exploration

source('../src/plotData.R')

highTiltData <- loadData('../data/highTilt.csv')
#head(highTiltData)
plotData(highTiltData, 'High Tilt: Amp vs Freq')

NA

lowTiltData <- loadData('../data/lowTilt.csv')
#head(lowTiltData)
plotData(lowTiltData, 'Low Tilt: Amp vs Freq')

bulgeLowData <- loadData('../data/bulgeLow.csv')
#head(bulgeLowData)
plotData(bulgeLowData, 'Low Bulge: Amp vs Freq')

bulgeCenterData <- loadData('../data/bulgeCenter.csv')
#head(bulgeCenterData)
plotData(bulgeCenterData, 'Center Bulge: Amp vs Freq')

bulgeHighData <- loadData('../data/bulgeHigh.csv')
#head(bulgeHighData)
plotData(bulgeHighData, 'High Bulge: Amp vs Freq')

suckoutLowData <- loadData('../data/suckoutLow.csv')
#head(suckoutLowData)
plotData(suckoutLowData, 'Low Suckout: Amp vs Freq')

suckoutCenterData <- loadData('../data/suckoutCenter.csv')
#head(suckoutCenterData)
plotData(suckoutCenterData, 'Center Suckout: Amp vs Freq')

suckoutHighData <- loadData('../data/suckoutHigh.csv')
#head(suckoutHighData)
plotData(suckoutHighData, 'High Suckout: Amp vs Freq')