Christensen0.R

## Analysis of Christensen et al. experiment using Graft's data-files
##
## Christensen, B.G., McCusker, K.T., Altepeter, J.B., Calkins, B., 
## Lim, C.C.W., Gisin, N., and Kwiat, P.G. (2013),
## "Detection-Loophole-Free Test of Quantum Nonlocality, and Applications", 
## Phys. Rev. Lett. 111, 130406.

## Donald A. Graft (2014)
## "Analysis of the Christensen et al. Clauser-Horne 
##      (CH)-Inequality-Based Test of Local Realism",
## http://arxiv.org/abs/1409.5158
## https://pubpeer.com/publications/E0F8384FC19A6034E86D516D03BB38


## Step 0: get lengths of Graft's (text) data files


## NB: before running this, rename data1.txt to data01.txt, ...
##      ... data9.txt to data09.txt

## Save names and lengths in spreadsheet "summary.csv"


Names <- system("ls", intern = TRUE)
Names <- Names[substr(Names, 1, 4) == "data" & substr(Names, 7, 10) == ".txt"]

L <- length(Names)
Lengths <- integer(L)

for (i in 1:20) {

    Name <- Names[i]
    cat("\n", "\n", Name)
    x <- read.table(Name,  
            col.names = c("time", "setting", "event"), 
            colClasses = c("double", "integer", "integer"))
    Length <- nrow(x)
    Lengths[i] <- Length
    cat("\n", Length)
}

## 
##  
##  data01.txt
##  1259503
##  
##  data02.txt
##  1259609
##  
##  data03.txt
##  1260342
##  
##  data04.txt
##  12598292
##  
##  data05.txt
##  5054125
##  
##  data06.txt
##  5041134
##  
##  data07.txt
##  10098427
##  
##  data08.txt
##  5043176
##  
##  data09.txt
##  5064834
##  
##  data10.txt
##  5041534
##  
##  data11.txt
##  5042601
##  
##  data12.txt
##  5039636
##  
##  data13.txt
##  5041341
##  
##  data14.txt
##  5041192
##  
##  data15.txt
##  7576395
##  
##  data16.txt
##  10082869
##  
##  data17.txt
##  7563232
##  
##  data18.txt
##  5042704
##  
##  data19.txt
##  5043425
##  
##  data20.txt
##  5042238

write.csv(data.frame(Name = Names, length = Lengths), file = "summmary.csv")

data.frame(Name = Names, length = Lengths)

##          Name   length
## 1  data01.txt  1259503
## 2  data02.txt  1259609
## 3  data03.txt  1260342
## 4  data04.txt 12598292
## 5  data05.txt  5054125
## 6  data06.txt  5041134
## 7  data07.txt 10098427
## 8  data08.txt  5043176
## 9  data09.txt  5064834
## 10 data10.txt  5041534
## 11 data11.txt  5042601
## 12 data12.txt  5039636
## 13 data13.txt  5041341
## 14 data14.txt  5041192
## 15 data15.txt  7576395
## 16 data16.txt 10082869
## 17 data17.txt  7563232
## 18 data18.txt  5042704
## 19 data19.txt  5043425
## 20 data20.txt  5042238