odev_01
library(dplyr)
## Warning: package 'dplyr' was built under R version 4.4.2
##
## 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(stringr)
library(ggplot2)
#install.packages("readr")
library(readr)
## Warning: package 'readr' was built under R version 4.4.2
library(psych)
## Warning: package 'psych' was built under R version 4.4.2
##
## Attaching package: 'psych'
## The following objects are masked from 'package:ggplot2':
##
## %+%, alpha
library(tidyr)
library(haven)
## Warning: package 'haven' was built under R version 4.4.2
library(CTT)
##
## Attaching package: 'CTT'
## The following objects are masked from 'package:psych':
##
## polyserial, reliability
library(readxl)
TUR <- read_sav("~/hacettepe/Rders/data/BSATURM6.sav")
bilgi <- read_excel("~/hacettepe/Rders/data/T15_G8_ItemInformation.xlsx")
TUR_2 <- select(TUR, -c("M062345B", "M062345BA", "M062345BB", "M062345BC",
"M062345BD", "M062342", "M062048", "M062048A",
"M062048B","M062048C"))
bilgi_2 <- bilgi[!bilgi$`Item ID` %in% c("M062345B", "M062345BA", "M062345BB", "M062345BC", "M062345BD", "M062342", "M062048", "M062048A", "M062048B", "M062048C"), ]
bilgi_maddeler <- bilgi_2 %>%
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_maddeler <- TUR_2 %>%
select(all_of(bilgi_maddeler$`Item ID`))
skor <- CTT::score(items = TUR_maddeler,key = bilgi_maddeler$Key,output.scored = T)
skor <- cbind(TUR_2[,1:3],skor$scored)
head(skor)
## IDCNTRY IDBOOK IDSCHOOL M042182 M042049 M042052 M042076 M042100 M042202
## 1 792 6 1 NA NA NA NA NA NA
## 2 792 7 1 NA NA NA NA NA NA
## 3 792 8 1 NA NA NA NA NA NA
## 4 792 9 1 NA NA NA NA NA NA
## 5 792 10 1 NA NA NA NA NA NA
## 6 792 11 1 NA NA NA NA NA NA
## 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
## 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
## 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
## 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
## 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
## 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
## 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
## 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
## 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
## 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
## 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
## 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
## M062120
## 1 NA
## 2 NA
## 3 NA
## 4 NA
## 5 NA
## 6 NA