Pause intervals across total keypresses:

##              n   mean     sd      se   min   max range median
## total_keys 671 0.4842 0.4659 0.01798 0.051 3.767 3.716  0.285

Pause intervals across alpha-numeric characters:

##             n   mean     sd      se   min   max range median
## alpha_num 569 0.4406 0.4415 0.01851 0.051 3.767 3.716  0.268

Pause intervals across whitespace characters:

##               n   mean     sd      se   min  max range median
## white_space 102 0.7279 0.5224 0.05173 0.183 3.18 2.997  0.583

Pause threshold = 2 seconds

# Display typing bursts separated by a given pause threshold
focus_intervals <- select_focus(data, pause_threshold)
focus_intervals

## $char_1_28
## [1] "Lorem ipsum dolor sit amet, "
## 
## $char_29_37
## [1] "consectet"
## 
## $char_38_57
## [1] "ur adipiscing elit. "
## 
## $char_58_168
## [1] "Maecenas vitae lectus quis dolor lacinia semper nec vel justo. Pellentesque fermentum id ipsum a aliquam. Morbi"
## 
## $char_169_218
## [1] " faucibus ligula a dui viverra iaculis ac ac lacus"
## 
## $char_219_316
## [1] ". Aena^ean sed elementum magna. Nullam efficitur, dui a efficitur sagittis, nisi ex pharetra purus"
## 
## $char_317_327
## [1] ", sit amet "
## 
## $char_328_416
## [1] "euismod eros arcu id augue. Praesent consequat, lacus id vestibulum aliquam, tellus augue"
## 
## $char_417_455
## [1] " fringilla mauris, iacullis consectetur"
## 
## $char_456_514
## [1] " ligula nunc nec nisl. Quisque ac ante lectus. Cras sodales"
## 
## $char_515_547
## [1] " lacus orci, vel saggittis nulla "
## 
## $char_548_613
## [1] "tincidunt a. Phasellus et mi turpis. Etiam quis ornare justo. Cras"
## 
## $char_614_617
## [1] " fac"
## 
## $char_618_671
## [1] "ilisis leo sed magna gravida, id lobortis mi viverra. "