R Notebook

Experiment 1

Open dataset, etc

library(tidyverse)

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.0 ──

## ✓ ggplot2 3.3.2     ✓ purrr   0.3.4
## ✓ tibble  3.0.4     ✓ dplyr   1.0.2
## ✓ tidyr   1.1.2     ✓ stringr 1.4.0
## ✓ readr   1.3.1     ✓ forcats 0.5.0

## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(GGally)

## Registered S3 method overwritten by 'GGally':
##   method from   
##   +.gg   ggplot2

Experiment1 <- read.csv("/Volumes/One Touch/PrefLooking/Experiment1.csv")

Exp1_long <- Experiment1 %>%
  pivot_longer(cols=starts_with("X"), 
               names_to="Sample",
               values_to = "AOA")

Recode strings to numbers

Exp1_long$Look_Target = ifelse(Exp1_long$AOA == "M", yes=1, no=0)
Exp1_long$Look_Distracter= ifelse(Exp1_long$AOA == "NM", yes=1, no=0)
Exp1_long$Look_Away= ifelse(Exp1_long$AOA == "A", yes=1, no=0)

Correlation between trials

Exp1_reduced <- Exp1_long %>%
  group_by(Subnum, TestTrial) %>%
  mutate(
    SumTarget = sum(Look_Target), 
    SumDistracter = sum(Look_Distracter), 
    SumAway = sum(Look_Away), 
    Prop_Target= SumTarget/(SumTarget + SumDistracter)
    ) %>%
  slice(1) %>%
  ungroup() %>%
  select(Subnum, TestTrial, Prop_Target)

Exp1_reduced %>%
  pivot_wider(names_from=TestTrial, values_from= Prop_Target) %>%
  select(Test1, Test2) %>%
  ggpairs()

Correlation between windows

Exp1_long$Sample_Num = as.numeric(gsub("X", "", Exp1_long$Sample))

Exp1_long$Window = ifelse(Exp1_long$Sample_Num > 120, yes="Window2", no="Window1")

Exp1_reduced <- Exp1_long %>%
  group_by(Subnum,  Window) %>%
  mutate(
    SumTarget = sum(Look_Target), 
    SumDistracter = sum(Look_Distracter), 
    SumAway = sum(Look_Away), 
    Prop_Target= SumTarget/(SumTarget + SumDistracter)
    ) %>%
  slice(1) %>%
  ungroup() %>%
  select(Subnum, Window, Prop_Target)

Exp1_reduced %>%
  pivot_wider(names_from=c(Window), values_from= Prop_Target) %>%
  select(Window1, Window2) %>%
  ggpairs()

Correlation between Trial x Windows

Exp1_long$Sample_Num = as.numeric(gsub("X", "", Exp1_long$Sample))

Exp1_long$Window = ifelse(Exp1_long$Sample_Num > 120, yes="Window2", no="Window1")

Exp1_reduced <- Exp1_long %>%
  group_by(Subnum, TestTrial, Window) %>%
  mutate(
    SumTarget = sum(Look_Target), 
    SumDistracter = sum(Look_Distracter), 
    SumAway = sum(Look_Away), 
    Prop_Target= SumTarget/(SumTarget + SumDistracter)
    ) %>%
  slice(1) %>%
  ungroup() %>%
  select(Subnum, TestTrial, Window, Prop_Target)

Exp1_reduced %>%
  pivot_wider(names_from=c(TestTrial, Window), values_from= Prop_Target) %>%
  select(Test1_Window1, Test1_Window2, Test2_Window1, Test2_Window2) %>%
  ggpairs()

Experiment 2

Experiment2 <- read.csv("/Volumes/One Touch/PrefLooking/Experiment2.csv")

Exp2_long <- Experiment2 %>%
  pivot_longer(cols=starts_with("X"), 
               names_to="Sample",
               values_to = "AOA")

Exp2_long$Look_Target = ifelse(Exp2_long$AOA == "M", yes=1, no=0)
Exp2_long$Look_Distracter= ifelse(Exp2_long$AOA == "NM", yes=1, no=0)
Exp2_long$Look_Away= ifelse(Exp2_long$AOA == "A", yes=1, no=0)

Correlation between Trials

Exp2_reduced <- Exp2_long %>%
  group_by(Subnum, TestTrial) %>%
  mutate(
    SumTarget = sum(Look_Target), 
    SumDistracter = sum(Look_Distracter), 
    SumAway = sum(Look_Away), 
    Prop_Target= SumTarget/(SumTarget + SumDistracter)
    ) %>%
  slice(1) %>%
  ungroup() %>%
  select(Subnum, TestTrial, Prop_Target)

Exp2_reduced %>%
  pivot_wider(names_from=TestTrial, values_from= Prop_Target) %>%
  select(Test1, Test2) %>%
  ggpairs()

Correlation between Windows

Exp2_long$Sample_Num = as.numeric(gsub("X", "", Exp2_long$Sample))

Exp2_long$Window = ifelse(Exp2_long$Sample_Num > 150, yes="Window2", no="Window1")

Exp2_reduced <- Exp2_long %>%
  group_by(Subnum,  Window) %>%
  mutate(
    SumTarget = sum(Look_Target), 
    SumDistracter = sum(Look_Distracter), 
    SumAway = sum(Look_Away), 
    Prop_Target= SumTarget/(SumTarget + SumDistracter)
    ) %>%
  slice(1) %>%
  ungroup() %>%
  select(Subnum, Window, Prop_Target)

Exp2_reduced %>%
  pivot_wider(names_from=c(Window), values_from= Prop_Target) %>%
  select(Window1, Window2) %>%
  ggpairs()

Correlation between TrialxWindow

Exp2_long$Sample_Num = as.numeric(gsub("X", "", Exp2_long$Sample))

Exp2_long$Window = ifelse(Exp2_long$Sample_Num > 150, yes="Window2", no="Window1")

Exp2_reduced <- Exp2_long %>%
  group_by(Subnum, TestTrial, Window) %>%
  mutate(
    SumTarget = sum(Look_Target), 
    SumDistracter = sum(Look_Distracter), 
    SumAway = sum(Look_Away), 
    Prop_Target= SumTarget/(SumTarget + SumDistracter)
    ) %>%
  slice(1) %>%
  ungroup() %>%
  select(Subnum, TestTrial, Window, Prop_Target)

Exp2_reduced %>%
  pivot_wider(names_from=c(TestTrial, Window), values_from= Prop_Target) %>%
  select(Test1_Window1, Test1_Window2, Test2_Window1, Test2_Window2) %>%
  ggpairs()