library("lifelogr")
group_months <- data.frame("month" = c("Jan", "Feb", "Mar", "Apr", "May",
"Jun", "Jul", "Aug",
"Sep", "Oct", "Nov", "Dec"),
"group" = c(0, 0, 0, 1, 1, 1, 1, 1,
1, 0, 0, 0))
ash <- Person$new(user_info = list("name" = "Ash", "age" = 26,
"gender" = "female"),
target_steps = 20000,
group_assignments = list("group_months" = group_months),
start_date = "2017-03-11",
end_date = "2017-03-12")
## Not run: ------------------------------------
#
# bailey <- Person$new(fitbit_user_email = "bailey@gmail.com",
# fitbit_user_pw = "baileypw",
# #apple_data_file = "apple.csv",
# start_date = "2017-03-11",
# end_date = "2017-03-12")
## ---------------------------------------------
Run the code above in your browser using DataLab