wrangling_homework.R

#PSYC 259 Homework 2 - Data Wrangling
#This assignment should be completed in RStudioCloud
#For full credit, provide answers for at least 7/10

#List names of students collaborating with: 

### SETUP: RUN THIS BEFORE STARTING ----------

#Load packages
library(tidyverse)
library(vroom)
library(janitor)

#Load the 4 data files and fix the y scaling
files <- c("data_raw/101.txt", "data_raw/102.txt", "data_raw/103.txt", "data_raw/104.txt")
ds <- vroom(files, id = "file", delim = " ", skip = 6) 
ds <- ds %>% mutate(porY = porY * 1.33) # scaling x and y to the same coordinates
ds <- ds %>% separate(file, into = c(NA,NA,"id",NA))
ds <- ds %>% rename_with(make_clean_names)
  
### Question 1 ---------- 

#Check what kind of variable id is. 
#Then, convert it to a numeric

#ANSWER


### Question 2 ---------- 

#Before we do anything else, let's make the variable names easier to type
#Rename scene_q_ttime... and por_q_ttime... to scene_time and por_time

#ANSWER

### Question 3 ----------

#There are 4 rows with missing values for record_scene_count
#Use filter to remove them from the dataset

#ANSWER

### Question 4 ----------

#record_frame_counts is a measure of time (30 frames = 1 second).
#The first 30 seconds (900 frames) should be marked as "calibration" time, and the remaining time
#should be referred to as "test" time. Add a new factor called "period" to mark calibration vs test time
#use fct_count to check that the correct # of frames were counted as calibration 
#4 participants x 900 = 3600 calibration frames

#ANSWER

### Question 5 ----------

#por_x and por_y values should be between 0 and 640
#set por_x and por_y values outside that range to be NA 
#I've given you an "out_of_bounds" function to make this easier, 
#but you can do it with two if_else statements instead

out_of_bounds <- function(x) {ifelse(x < 0 | x > 640, NA, x)}

#ANSWER

### Question 6 ----------

#scene_frame_count, corneal_ref_x, corneal_ref_y, diameter_h, and diameter_w are variables we don't need
#use 'select' save the dataset without those columns

#ANSWER

### Question 7 ----------

### Use summarize to find the mean of avg_fps for each participant in each period

#ANSWER

### Question 8 ---------- 

###Find the median, sd, min, and max for por_x and por_y for each participant during test only
###Save the summary to a tibble named results
###Hint: it might be easier to handle NA's before summarizing

#ANSWER


### Question 9 ---------

#Select just the summary statistics for the y values and id
#and sort the values by median por_y value (ascending)
#Save this to results_y

#ANSWER

### Question 10 --------

#Extract the value (not a tibble) of the smallest por_y_median value
#Bonus: look up the dplyr "slice" function to help (but there are plenty of other good ways to do it)

#ANSWER