library(vroom) library(here) library(tidyverse) library(fs) options(dplyr.summarise.inform = FALSE) devtools::load_all()
mmash %>% group_by(day) %>% summarise(across( c(age, weight), list(mean = mean, sd = sd, max = max, min = min), na.rm = T ))
mmash %>% select(-samples) %>% pivot_longer(c(-user_id, -day, -gender)) View(mmash)
mmash %>% group_by(day) %>% summarise(across( c(age, weight), list(mean = mean, sd = sd), na.rm = T )) %>% pivot_longer(ends_with(c("mean","sd")))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.