Process new study data

Author: jayrsawal

abbOnDemand.js

@@ -0,0 +1,16 @@
+position,prob
+0,96
+1,64
+2,50
+3,33
+4,23
+5,18
+6,17
+7,16
+8,19
+9,25
+10,32
+11,38
+12,34
+13,70
+14,100

data/abbStudy_12000.csv

@@ -0,0 +1,16 @@
+position,prob
+0,95
+1,68
+2,56
+3,38
+4,28
+5,23
+6,23
+7,20
+8,26
+9,33
+10,39
+11,42
+12,42
+13,88
+14,100

data/abbStudy_4000.csv

@@ -0,0 +1,16 @@
+position,prob
+0,96
+1,66
+2,52
+3,35
+4,24
+5,19
+6,19
+7,17
+8,21
+9,27
+10,33
+11,37
+12,38
+13,78
+14,100

data/abbStudy_8000.csv

@@ -0,0 +1,16 @@
+position,prob
+0,97
+1,80
+2,79
+3,57
+4,45
+5,40
+6,36
+7,28
+8,33
+9,36
+10,38
+11,48
+12,53
+13,86
+14,100

data/abbStudy_data.csv renamed to data/abbStudy_data_orig.csv

@@ -0,0 +1,16 @@
+position,prob
+0,96
+1,81
+2,77
+3,55
+4,44
+5,39
+6,33
+7,27
+8,32
+9,40
+10,46
+11,52
+12,64
+13,80
+14,100

data/abb_aggregate.csv

@@ -0,0 +1,18 @@
+setwd("/Users/jayrsawal/GitHub/Abbreviation-On-Demand-API/pipeline/abbr")
+mydata = read.csv("abbr_comparison.csv")
+mydata[7] <- apply(mydata, 1, function(a) adist(a[2], a[3]))
+mydata[8] <- apply(mydata, 1, function(a) adist(a[2], a[4]))
+mydata[9] <- apply(mydata, 1, function(a) adist(a[2], a[5]))
+mydata[10] <- apply(mydata, 1, function(a) adist(a[2], a[6]))
+write.csv(file="levenshtein.csv", x=mydata)
+setwd("/Users/jayrsawal/GitHub/Abbreviation-On-Demand-API/pipeline/abbr")
+mydata = read.csv("abbr_comparison.csv")
+mydata[7] <- apply(mydata, 1, function(a) adist(a[2], a[3]))
+mydata[8] <- apply(mydata, 1, function(a) adist(a[2], a[4]))
+mydata[9] <- apply(mydata, 1, function(a) adist(a[2], a[5]))
+setwd("/Users/jayrsawal/GitHub/Abbreviation-On-Demand-API/pipeline/abbr")
+mydata = read.csv("abbr_comparison.csv")
+mydata[6] <- apply(mydata, 1, function(a) adist(a[2], a[3]))
+mydata[7] <- apply(mydata, 1, function(a) adist(a[2], a[4]))
+mydata[8] <- apply(mydata, 1, function(a) adist(a[2], a[5]))
+write.csv(file="levenshtein.csv", x=mydata)