structure(list(record_id = c(1, 3, 4), name_first = c("Nutmeg", 
"Marcus", "Trudy"), name_last = c("Nutmouse", "Wood", "DAG"), 
    address = c("14 Rose Cottage St.\nKenning UK, 323232", "243 Hill St.\nGuthrie OK 73402", 
    "342 Elm\nDuncanville TX, 75116"), telephone = c("(405) 321-1111", 
    "(405) 321-3333", "(405) 321-4444"), email = c("nutty@mouse.com", 
    "mw@mwood.net", "peroxide@blonde.com"), dob = structure(c(12294, 
    -13051, -6269), class = "Date"), age = c(11, 80, 61), sex = c(0, 
    1, 0), demographics_complete = c(2, 2, 2), height = c(7, 
    180, 165), weight = c(1, 80, 54), bmi = c(204.1, 24.7, 19.8
    ), comments = c("Character in a book, with some guessing", 
    "completely made up", "This record doesn't have a DAG assigned\n\nSo call up Trudy on the telephone\nSend her a letter in the mail"
    ), mugshot = c("mugshot-1.jpg", "mugshot-3.jpg", "mugshot-4.jpg"
    ), health_complete = c(1, 2, 2), race___1 = c(0, 0, 0), race___2 = c(0, 
    0, 1), race___3 = c(0, 0, 0), race___4 = c(0, 1, 0), race___5 = c(1, 
    1, 1), race___6 = c(0, 0, 0), ethnicity = c(1, 0, 1), interpreter_needed = c(0, 
    1, NA), race_and_ethnicity_complete = c(2, 2, 2)), row.names = c(NA, 
-3L), class = "data.frame")
