14 lines
		
	
	
	
		
			302 B
		
	
	
	
		
			R
		
	
	
	
	
	
			
		
		
	
	
			14 lines
		
	
	
	
		
			302 B
		
	
	
	
		
			R
		
	
	
	
	
	
| # Rscript summary handshake-duration.txt
 | |
| 
 | |
| require(grDevices) # for colours
 | |
| 
 | |
| tbl <- read.table(file=commandArgs(TRUE)[1])
 | |
| val <- tbl[1]
 | |
| 
 | |
| summary(val)
 | |
| # standarddeviation=sd(unlist(val))
 | |
| sd(unlist(val))
 | |
| # print (standarddeviation, zero.print="standard deviation: ")
 | |
| 
 | |
| # confint.default (val)
 | |
| t.test (val)
 |