diff --git a/mtusFunctions.R b/mtusFunctions.R index 6c30475e5d8d2b05b95d66064e073697398f0f10..04de207b64091e061db4b2cae03346b357018556 100644 --- a/mtusFunctions.R +++ b/mtusFunctions.R @@ -31,6 +31,79 @@ ba_tidyNum <- function(number) { format(number, big.mark=",", scientific=FALSE) } +## Set up MTUS labels to MTUS activity codes 1:69 ---- +# these need to match any other harmonised data +mtusDiaryLabels = c("imputed personal or household care", #1 + "sleep and naps", #2 + "imputed sleep", #3 + "wash, dress, care for self", #4 + "meals at work or school", #5 + "meals or snacks in other places", #6 + "paid work-main job (not at home)", #7 + "paid work at home", #8 + "second or other job not at home", #9 + "unpaid work to generate household income", #10 + "travel as a part of work", #11 + "work breaks", #12 + "other time at workplace", #13 + "look for work", #14 + "regular schooling, education", #15 + "homework", #16 + "leisure & other education or training", #17 + "food preparation, cooking", #18 + "set table, wash/put away dishes", #19 + "cleaning", #20 + "laundry, ironing, clothing repair", #21 + "maintain home/vehicle, including collect fuel", #22 + "other domestic work", #23 + "purchase goods", #24 + "consume personal care services", #25 + "consume other services", #26 + "pet care (not walk dog)", #27 + "physical, medical child care", #28 + "teach, help with homework", #29 + "read to, talk or play with child", #30 + "supervise, accompany, other child care", #31 + "adult care", #32 + "voluntary, civic, organisational act", #33 + "worship and religion", #34 + "general out-of-home leisure", #35 + "attend sporting event", #36 + "cinema, theatre, opera, concert", #37 + "other public event, venue", #38 + "restaurant, café, bar, pub", #39 + "party, social event, gambling", #40 + "imputed time away from home", #41 + "general sport or exercise", #42 + "walking", #43 + "cycling", #44 + "other outside recreation", #45 + "gardening/pick mushrooms", #46 + "walk dogs", #47 + "receive or visit friends", #48 + "conversation (in person, phone)", #49 + "games (social & solitary)/other in-home social", #50 + "general indoor leisure", #51 + "art or music", #52 + "correspondence (not e-mail)", #53 + "knit, crafts or hobbies", #54 + "relax, think, do nothing", #55 + "read", #56 + "listen to music or other audio content", #57 + "listen to radio", #58 + "watch TV, video, DVD, streamed film", #59 + "computer games", #60 + "e-mail, surf internet, computing",#61 + "no second act, imputed or recorded transport", #62 + "travel to/from work", #63 + "education travel", #64 + "voluntary/civic/religious travel", #65 + "child/adult care travel", #66 + "shop, person/hhld care travel", #67 + "other travel", #68 + "no recorded activity" #69 +) + ### ba_MTUScreateIds <- function(dt){ # create a unique pid & unique diary pid that will be unique across all years