library(haven)
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(readxl)
library(tictoc)
## Warning: package 'tictoc' was built under R version 4.4.2
library(CTT)#sayac
#Bu kod baya işlevsel oldu
setwd(dirname(rstudioapi::getActiveDocumentContext()$path))
Odev 1
- veriyi aktar
TUR <- read_sav("BSATURM6.sav")
BILGI <- read_xlsx("T15_G8_ItemInformation.xlsx")
TUR <- TUR %>% select(IDCNTRY,IDSTUD,IDBOOK,starts_with("M0"))
TUR <- TUR[, !colnames(TUR) %in% c("M062345B", "M062345BA", "M062345BB", "M062345BC", "M062345BD", "M062342", "M062048", "M062048A", "M062048B", "M062048C")]
BILGI <- BILGI[!BILGI$`Item ID` %in% c("M062345B", "M062345BA", "M062345BB", "M062345BC", "M062345BD", "M062342", "M062048", "M062048A", "M062048B", "M062048C"), ]
- Bu soru biraz zorladı, toplam 7 dkmı aldı.
mc_items <- BILGI %>%
filter(Key %in% c("A", "B", "C", "D")) %>%
select(`Item ID`,Key) %>%
mutate(Key = case_when(
Key == "A" ~ 1,
Key == "B" ~ 2,
Key == "C" ~ 3,
Key == "D" ~ 4
))
TUR_selected <- TUR %>%
select(all_of(mc_items$`Item ID`)) %>% expss::unlab()
binary <- CTT::score(items = TUR_selected,key = mc_items$Key,output.scored = T)
binary <- cbind(TUR[,1:3],binary$scored)
head(binary,n = 10)
## IDCNTRY IDSTUD IDBOOK M042182 M042049 M042052 M042076 M042100 M042202
## 1 792 10201 6 NA NA NA NA NA NA
## 2 792 10202 7 NA NA NA NA NA NA
## 3 792 10203 8 NA NA NA NA NA NA
## 4 792 10204 9 NA NA NA NA NA NA
## 5 792 10205 10 NA NA NA NA NA NA
## 6 792 10206 11 NA NA NA NA NA NA
## 7 792 10207 12 NA NA NA NA NA NA
## 8 792 10208 13 NA NA NA NA NA NA
## 9 792 10209 14 0 1 0 0 1 1
## 10 792 10210 1 0 1 1 1 0 1
## M042240 M042271 M042268 M062208A M062208B M062208C M062208D M062153 M062074
## 1 NA NA NA NA NA NA NA NA NA
## 2 NA NA NA NA NA NA NA NA NA
## 3 NA NA NA NA NA NA NA NA NA
## 4 NA NA NA NA NA NA NA NA NA
## 5 NA NA NA NA NA NA NA NA NA
## 6 NA NA NA NA NA NA NA NA NA
## 7 NA NA NA NA NA NA NA NA NA
## 8 NA NA NA NA NA NA NA NA NA
## 9 0 0 0 NA NA NA NA NA NA
## 10 1 0 0 1 1 0 0 0 1
## M062202 M062246 M062325 M062106 M062124 M052209 M052142 M052006 M052064
## 1 NA NA NA NA NA NA NA NA NA
## 2 NA NA NA NA NA NA NA NA NA
## 3 NA NA NA NA NA NA NA NA NA
## 4 NA NA NA NA NA NA NA NA NA
## 5 NA NA NA NA NA NA NA NA NA
## 6 NA NA NA NA NA NA NA NA NA
## 7 NA NA NA NA NA NA NA NA NA
## 8 NA NA NA NA NA NA NA NA NA
## 9 NA NA NA NA NA NA NA NA NA
## 10 0 0 0 0 0 NA NA NA NA
## M052103 M052066 M052057 M052410 M052170 M062329 M062212 M062350 M062284
## 1 NA NA NA NA NA NA NA NA NA
## 2 NA NA NA NA NA NA NA NA NA
## 3 NA NA NA NA NA NA NA NA NA
## 4 NA NA NA NA NA NA NA NA NA
## 5 NA NA NA NA NA NA NA NA NA
## 6 NA NA NA NA NA NA NA NA NA
## 7 NA NA NA NA NA NA NA NA NA
## 8 NA NA NA NA NA NA NA NA NA
## 9 NA NA NA NA NA NA NA NA NA
## 10 NA NA NA NA NA NA NA NA NA
## M062245 M062115 M042183 M042060 M042234 M042243 M042120 M042203 M042255
## 1 NA NA NA NA NA NA NA NA NA
## 2 NA NA NA NA NA NA NA NA NA
## 3 NA NA NA NA NA NA NA NA NA
## 4 NA NA NA NA NA NA NA NA NA
## 5 NA NA NA NA NA NA NA NA NA
## 6 NA NA NA NA NA NA NA NA NA
## 7 NA NA NA NA NA NA NA NA NA
## 8 NA NA NA NA NA NA NA NA NA
## 9 NA NA NA NA NA NA NA NA NA
## 10 NA NA NA NA NA NA NA NA NA
## M052017 M052131 M052090 M052121A M052044 M052422A M052422B M052505 M042015
## 1 0 0 0 0 0 0 0 1 0
## 2 NA NA NA NA NA NA NA NA 1
## 3 NA NA NA NA NA NA NA NA NA
## 4 NA NA NA NA NA NA NA NA NA
## 5 NA NA NA NA NA NA NA NA NA
## 6 NA NA NA NA NA NA NA NA NA
## 7 NA NA NA NA NA NA NA NA NA
## 8 NA NA NA NA NA NA NA NA NA
## 9 NA NA NA NA NA NA NA NA NA
## 10 NA NA NA NA NA NA NA NA NA
## M042196 M042112 M042109 M042132 M042257 M042158 M042252 M042261 M062005
## 1 0 0 0 0 0 1 0 1 NA
## 2 0 0 1 0 0 1 0 1 0
## 3 NA NA NA NA NA NA NA NA 1
## 4 NA NA NA NA NA NA NA NA NA
## 5 NA NA NA NA NA NA NA NA NA
## 6 NA NA NA NA NA NA NA NA NA
## 7 NA NA NA NA NA NA NA NA NA
## 8 NA NA NA NA NA NA NA NA NA
## 9 NA NA NA NA NA NA NA NA NA
## 10 NA NA NA NA NA NA NA NA NA
## M062164 M062084 M062351 M062223 M062174 M062261 M062132B M052413 M052134
## 1 NA NA NA NA NA NA NA NA NA
## 2 0 1 0 1 0 1 1 NA NA
## 3 0 0 0 1 0 0 0 1 1
## 4 NA NA NA NA NA NA NA 1 0
## 5 NA NA NA NA NA NA NA NA NA
## 6 NA NA NA NA NA NA NA NA NA
## 7 NA NA NA NA NA NA NA NA NA
## 8 NA NA NA NA NA NA NA NA NA
## 9 NA NA NA NA NA NA NA NA NA
## 10 NA NA NA NA NA NA NA NA NA
## M052078 M052034 M052130 M052073 M052407 M052426 M062335 M062219 M062149
## 1 NA NA NA NA NA NA NA NA NA
## 2 NA NA NA NA NA NA NA NA NA
## 3 0 0 0 0 1 1 NA NA NA
## 4 1 1 0 0 0 1 1 0 1
## 5 NA NA NA NA NA NA 1 0 0
## 6 NA NA NA NA NA NA NA NA NA
## 7 NA NA NA NA NA NA NA NA NA
## 8 NA NA NA NA NA NA NA NA NA
## 9 NA NA NA NA NA NA NA NA NA
## 10 NA NA NA NA NA NA NA NA NA
## M062040 M062133 M062123A M062123B M052079 M052204 M052147 M052067 M052068
## 1 NA NA NA NA NA NA NA NA NA
## 2 NA NA NA NA NA NA NA NA NA
## 3 NA NA NA NA NA NA NA NA NA
## 4 0 1 1 0 NA NA NA NA NA
## 5 0 0 0 1 0 0 0 1 0
## 6 NA NA NA NA 0 1 1 1 0
## 7 NA NA NA NA NA NA NA NA NA
## 8 NA NA NA NA NA NA NA NA NA
## 9 NA NA NA NA NA NA NA NA NA
## 10 NA NA NA NA NA NA NA NA NA
## M052208 M052419A M052419B M052115 M062271 M062230 M062095 M062076 M062171
## 1 NA NA NA NA NA NA NA NA NA
## 2 NA NA NA NA NA NA NA NA NA
## 3 NA NA NA NA NA NA NA NA NA
## 4 NA NA NA NA NA NA NA NA NA
## 5 0 0 1 0 NA NA NA NA NA
## 6 0 1 1 0 1 0 0 1 1
## 7 NA NA NA NA 0 0 0 0 1
## 8 NA NA NA NA NA NA NA NA NA
## 9 NA NA NA NA NA NA NA NA NA
## 10 NA NA NA NA NA NA NA NA NA
## M062194 M062320 M052024 M052125 M052063 M052072 M052092 M052046 M052083
## 1 NA NA NA NA NA NA NA NA NA
## 2 NA NA NA NA NA NA NA NA NA
## 3 NA NA NA NA NA NA NA NA NA
## 4 NA NA NA NA NA NA NA NA NA
## 5 NA NA NA NA NA NA NA NA NA
## 6 1 1 NA NA NA NA NA NA NA
## 7 0 0 0 0 0 1 0 0 0
## 8 NA NA 0 0 0 0 0 1 0
## 9 NA NA NA NA NA NA NA NA NA
## 10 NA NA NA NA NA NA NA NA NA
## M052082 M052161 M052418A M052418B M062001 M062146 M062067 M062341 M062242
## 1 NA NA NA NA NA NA NA NA NA
## 2 NA NA NA NA NA NA NA NA NA
## 3 NA NA NA NA NA NA NA NA NA
## 4 NA NA NA NA NA NA NA NA NA
## 5 NA NA NA NA NA NA NA NA NA
## 6 NA NA NA NA NA NA NA NA NA
## 7 0 1 0 0 NA NA NA NA NA
## 8 0 1 0 0 1 0 0 0 0
## 9 NA NA NA NA 1 0 1 1 1
## 10 NA NA NA NA NA NA NA NA NA
## M062120
## 1 NA
## 2 NA
## 3 NA
## 4 NA
## 5 NA
## 6 NA
## 7 NA
## 8 1
## 9 0
## 10 NA