FillerAnalysis(n16)

library(readr)
library(tidyr)
library(dplyr)

## 
## 載入套件：'dplyr'

## 下列物件被遮斷自 'package:stats':
## 
##     filter, lag

## 下列物件被遮斷自 'package:base':
## 
##     intersect, setdiff, setequal, union

library(psych)
library(ggplot2)

## 
## 載入套件：'ggplot2'

## 下列物件被遮斷自 'package:psych':
## 
##     %+%, alpha

#去除不要的row
n16 <- read.csv('FillerAnalysis(n16).csv', header = T, sep = "," )
filtered_n16 <- n16[-which(n16$Procedure.Block. == "InterimBreak"), ]

#改變fj的內容
#如果回答跟預測一樣就會得1分
Filler_n16 <- filtered_n16 %>% filter(IntentionType=="Filler") %>% mutate(AnswerOption = case_when(TargetS.RESP=="f"~"wei", TargetS.RESP=="j"~"bie")) %>% mutate(PreAns = case_when(PredictedAnswer=="未"~"wei", PredictedAnswer=="別"~"bie"))
fillerAcc_n16 <- Filler_n16 %>% mutate(Value = ifelse(AnswerOption==PreAns, 1, 0))

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.