data path changed to match script. Comment added in code

Code/Rift_Segments_Main.R

@@ -16,10 +16,11 @@ source('Rift_Segments_Functions.R')
 
 
 # Data loading and processing ---------------------------------------------
-SegCounts <- read.csv('../data/segmentdata/RVF_invitro_segmentcounts.csv')
+SegCounts <- read.csv('../Data/segmentdata/RVF_invitro_segmentcounts.csv')
 View(SegCounts)
 names(SegCounts) <- Cs(ID, Empty, S, M, L, SM, SL, ML, SML)
 
+# Matrix with content of SegCounts columns (binary coded, t1 = S, t2 = M, t3 = L)
 mat = as.matrix(expand.grid(t1 = c(0,1), t2 = c(0,1), t3 = c(0,1)))
 mat = mat[c(1,2,3,5,4,6,7,8),] #hard coded to match order of SegCounts
 

Data/segmentdata/RVF_invitro_segmentcounts.csv

+,Empty,S,M,L,S + M,S + L,M + L ,S + M + L
+1,58,2,1,48,0,2,2,1
+2,85,38,5,42,5,25,1,2
+3,127,16,31,50,8,32,38,31
+4,50,47,3,2,7,5,0,3
+5,179,43,5,0,5,1,0,0
+6,196,51,5,11,4,10,1,1
+7,73,11,4,7,2,5,0,0
+8,118,12,28,35,3,9,17,10
+9,39,18,18,39,6,35,48,63
+10,89,78,0,0,4,0,0,0
+11,80,1,20,2,0,0,3,3
+12,90,10,13,5,5,1,6,0
+13,214,11,11,5,2,1,4,1
+14,202,9,17,10,1,0,4,2
+15,223,17,44,70,2,47,23,31
+16,93,8,22,41,1,4,13,6
+17,88,27,1,53,1,23,2,0
+18,31,97,4,0,43,7,0,5
+19,77,17,10,37,1,10,9,1
+20,234,2,36,10,1,1,0,0
+21,181,6,2,5,0,3,0,0
+22,86,4,17,17,1,2,3,2
+23,58,5,29,48,4,12,29,9
+24,104,23,21,39,2,13,9,3
+25,98,9,18,59,1,19,31,12