options(java.parameters = "-Xmx14336m") ## memory set to 14 GB
library("sqldf")
library("XLConnect")
library("tcltk")
# 1. Load all PoS
# 2. Load all NBN stays
# 3. Find all PEID's who have had a PoS in the last year
# 4. Find all PEID's of those who have stayed in a NBN bed in the last year
# 5. Append the lists and get a distinct set of PEIDs
# 6. Load family and individual demographic information
# 7. Inner join the demographic data to the distinct PEID set.
# 8. Write all information to file.
# 9. Pray.
allNBN <- readWorksheetFromFile("All TCES NBN Bed Data ...
Robber Board
The Robber Board
This board originated with a request from an LPC who was practicing EMDR and wanted to upgrade his feedback machine. He had requested it be wireless and provide both haptic and visual feedback. The whole thing fell apart when he sent me an NDA which seemed typical of real professional level projects. However, it would have prohibited me from sharing anything I discovered, and given the amount I could have made from it, well, it just wasn't worth it. I thought I'd finish the project and share with everyone, since sharing is the greatest form of payment ...