technical_pilot

Technical pilot

#rt distribution
hist(df$rt)

#card effect
df%>%filter(reoffer_ch==T)%>%group_by(reward_oneback)%>%summarise(mean(stay_card))

## # A tibble: 2 × 2
##   reward_oneback `mean(stay_card)`
##   <fct>                      <dbl>
## 1 0                          0.3  
## 2 1                          0.679

#key effect
df%>%filter(reoffer_ch==F,reoffer_unch==F)%>%group_by(reward_oneback)%>%summarise(mean(stay_key))

## # A tibble: 2 × 2
##   reward_oneback `mean(stay_key)`
##   <fct>                     <dbl>
## 1 0                         0.542
## 2 1                         0.737

#unch effect
df%>%filter(reoffer_unch==T)%>%group_by(reward_oneback)%>%summarise(mean(stay_unch_card))

## # A tibble: 2 × 2
##   reward_oneback `mean(stay_unch_card)`
##   <fct>                           <dbl>
## 1 0                               0.52 
## 2 1                               0.383