atus_format <- function(data){
data <- sapply(data, as.character)
data[data == "NOT_DISPLAYED"] <- "0"
data <- as.data.frame(data)
my_vars <- c("chores", "day","friends","grooming","homework","meals",
"online","read","school","sleep","sports","television",
"travel","videogames","work")
data[, my_vars] <- sapply(data[, my_vars], as.character)
data[, my_vars] <- sapply(data[, my_vars], as.numeric)
sum_atus <- data %>%
group_by(user.id, day) %>%
summarise(chores = sum(chores),
friends = sum(friends),
grooming = sum(grooming),
homework = sum(homework),
meals = sum(meals),
online = sum(online),
read = sum(read),
school = sum(school),
sleep = sum(sleep),
sports = sum(sports),
television = sum(television),
travel = sum(travel),
videogames = sum(videogames),
work = sum(work))
mean_atus <- sum_atus %>%
group_by(user.id) %>%
summarise(chores = mean(chores),
friends = mean(friends),
grooming = mean(grooming),
homework = mean(homework),
meals = mean(meals),
online = mean(online),
read = mean(read),
school = mean(school),
sleep = mean(sleep),
sports = mean(sports),
television = mean(television),
travel = mean(travel),
videogames = mean(videogames),
work = mean(work))
data <- as.data.frame(mean_atus)
return(data)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.