Publications by Jen Richmond
booklogs1A
library(tidyverse) library(janitor) library(lubridate) library(stringi) library(Hmisc) library(ggeasy) library(plotly) theme_set(theme_classic()) COUNTS # views log1A %>% count(event_name) ## # A tibble: 2 x 2 ## event_name n ## <chr> <int> ## 1 Chapter viewed 1799 ## 2 Course module viewed 177 # uni...
136 sym R (597 sym/6 pcs) 5 img
1Amoodlebooklogs
library(tidyverse) library(janitor) library(lubridate) library(stringi) library(Hmisc) library(ggeasy) library(plotly) theme_set(theme_classic()) log1A <- read_csv(here::here("research_conferences", "ScienceMoodleWellbeing", "logs_PSYC1001-5216_00336_20210816-0953.csv")) %>% clean_names() %>% filter(component == "Book") %>% filter(user_ful...
145 sym R (7913 sym/15 pcs) 5 img
adelie report
penguin-report Jen Richmond 31/08/2021 # load packages library(tidyverse) library(palmerpenguins) # set ggplot theme theme_set(theme_classic()) # load penguin data penguins <- penguins # filter for just parameter species <- penguins %>% filter(species == params$my_species) Body mass by flipper length in Adelie penguins species %>% na...
108 sym R (459 sym/2 pcs) 1 img
advent1
WARNING: This is my first attempt at #adventofcode. My solution will the most inefficient and convoluted Tidyverse R code you have seen this year- hacky code is all I know. load packages library(datapasta) library(tidyverse) get the data The Day 1 challenge is something about sonar measurements and the data can be found here. It is just a list ...
2361 sym R (17610 sym/15 pcs) 2 img
Loco_data_2022
Participants There were 382 students who contributed to the data set; N = 185 in group 1 and N = 197 in group 2. Method Group 1 were told that Baby A was preterm and Baby B was full term. Group 2 were told that Baby A was full term and Baby B was preterm. Participants in both groups rated each infant on 4 tasks fine motor gross motor self help ...
1083 sym R (1260 sym/2 pcs) 4 img