Ödev 1

#A) TUR SETİNİN R ORTAMINA AKTARILMASI
TUR <- read_sav("D:/OLC_733/ODEV1/BSATURM6.sav")
TUR

## # A tibble: 6,079 × 603
##    IDCNTRY   IDBOOK     IDSCHOOL IDCLASS IDSTUD M042182 M042081  M042049 M042052
##    <dbl+lbl> <dbl+lbl>  <dbl+lb> <dbl+l> <dbl+> <dbl+l> <dbl+lb> <dbl+l> <dbl+l>
##  1 792        6 [Bookl… 1        102     10201  NA      NA       NA      NA     
##  2 792        7 [Bookl… 1        102     10202  NA      NA       NA      NA     
##  3 792        8 [Bookl… 1        102     10203  NA      NA       NA      NA     
##  4 792        9 [Bookl… 1        102     10204  NA      NA       NA      NA     
##  5 792       10 [Bookl… 1        102     10205  NA      NA       NA      NA     
##  6 792       11 [Bookl… 1        102     10206  NA      NA       NA      NA     
##  7 792       12 [Bookl… 1        102     10207  NA      NA       NA      NA     
##  8 792       13 [Bookl… 1        102     10208  NA      NA       NA      NA     
##  9 792       14 [Bookl… 1        102     10209   4 [D]  79 [INC…  3 [C*]  4 [D] 
## 10 792        1 [Bookl… 1        102     10210   1 [A]  79 [INC…  3 [C*]  1 [A*]
## # ℹ 6,069 more rows
## # ℹ 594 more variables: M042076 <dbl+lbl>, M042302A <dbl+lbl>,
## #   M042302B <dbl+lbl>, M042302C <dbl+lbl>, M042100 <dbl+lbl>,
## #   M042202 <dbl+lbl>, M042240 <dbl+lbl>, M042093 <dbl+lbl>, M042271 <dbl+lbl>,
## #   M042268 <dbl+lbl>, M042159 <dbl+lbl>, M042164 <dbl+lbl>, M042167 <dbl+lbl>,
## #   M062208A <dbl+lbl>, M062208B <dbl+lbl>, M062208C <dbl+lbl>,
## #   M062208D <dbl+lbl>, M062208 <dbl+lbl>, M062153 <dbl+lbl>, …

BILGI<- read_excel("D:/OLC_733/ODEV1/T15_G8_ItemInformation.xlsx")
BILGI

## # A tibble: 225 × 17
##    `Item ID` Block `Block Seq` Grade Subject Cycle `Secured\r\nStatus`
##    <chr>     <chr> <chr>       <dbl> <chr>   <dbl> <chr>              
##  1 M042182   M01   01              8 M           4 Restricted Use     
##  2 M042081   M01   02              8 M           4 Restricted Use     
##  3 M042049   M01   03              8 M           4 Restricted Use     
##  4 M042052   M01   04              8 M           4 Restricted Use     
##  5 M042076   M01   05              8 M           4 Restricted Use     
##  6 M042302A  M01   06A             8 M           4 Restricted Use     
##  7 M042302B  M01   06B             8 M           4 Restricted Use     
##  8 M042302C  M01   06C             8 M           4 Restricted Use     
##  9 M042100   M01   07              8 M           4 Restricted Use     
## 10 M042202   M01   08              8 M           4 Restricted Use     
## # ℹ 215 more rows
## # ℹ 10 more variables: `Scaling\r\nStatus` <chr>, `Content Domain` <chr>,
## #   `Topic Area` <chr>, Topic <dbl>, `Cognitive Domain` <chr>,
## #   `Item Type` <chr>, Options <chr>, Key <chr>, `Maximum Points` <dbl>,
## #   Label <chr>

#B) veri setinden “IDCNTRY”,“IDSTUD”,“IDBOOK” ve M0 ile başlayan değişkenleri seçiniz. M0 ile başlayan değişkenler maddelerdir.Bu işlem sonrasında 6079 gözlem ve 228 sütuna sahip olacaksınız.

TUR <- TUR %>% select( IDCNTRY,IDSTUD,IDBOOK, starts_with("M0"))
TUR

## # A tibble: 6,079 × 228
##    IDCNTRY   IDSTUD   IDBOOK   M042182 M042081  M042049 M042052 M042076 M042302A
##    <dbl+lbl> <dbl+lb> <dbl+lb> <dbl+l> <dbl+lb> <dbl+l> <dbl+l> <dbl+l> <dbl+lb>
##  1 792       10201     6 [Boo… NA      NA       NA      NA      NA      NA      
##  2 792       10202     7 [Boo… NA      NA       NA      NA      NA      NA      
##  3 792       10203     8 [Boo… NA      NA       NA      NA      NA      NA      
##  4 792       10204     9 [Boo… NA      NA       NA      NA      NA      NA      
##  5 792       10205    10 [Boo… NA      NA       NA      NA      NA      NA      
##  6 792       10206    11 [Boo… NA      NA       NA      NA      NA      NA      
##  7 792       10207    12 [Boo… NA      NA       NA      NA      NA      NA      
##  8 792       10208    13 [Boo… NA      NA       NA      NA      NA      NA      
##  9 792       10209    14 [Boo…  4 [D]  79 [INC…  3 [C*]  4 [D]   1 [A]  79 [INC…
## 10 792       10210     1 [Boo…  1 [A]  79 [INC…  3 [C*]  1 [A*]  4 [D*] 79 [INC…
## # ℹ 6,069 more rows
## # ℹ 219 more variables: M042302B <dbl+lbl>, M042302C <dbl+lbl>,
## #   M042100 <dbl+lbl>, M042202 <dbl+lbl>, M042240 <dbl+lbl>, M042093 <dbl+lbl>,
## #   M042271 <dbl+lbl>, M042268 <dbl+lbl>, M042159 <dbl+lbl>, M042164 <dbl+lbl>,
## #   M042167 <dbl+lbl>, M062208A <dbl+lbl>, M062208B <dbl+lbl>,
## #   M062208C <dbl+lbl>, M062208D <dbl+lbl>, M062208 <dbl+lbl>,
## #   M062153 <dbl+lbl>, M062111A <dbl+lbl>, M062111B <dbl+lbl>, …

# Seçilen veri setini göster
kable(head(TUR, 10), caption = "Seçilen Değişkenler (İlk 10 Gözlem)")

Seçilen Değişkenler (İlk 10 Gözlem)
IDCNTRY	IDSTUD	IDBOOK	M042182	M042081	M042049	M042052	M042076	M042302A	M042302B	M042302C	M042100	M042202	M042240	M042093	M042271	M042268	M042159	M042164	M042167	M062208A	M062208B	M062208C	M062208D	M062208	M062153	M062111A	M062111B	M062237	M062314	M062074	M062183	M062202	M062246	M062286	M062325	M062106	M062124	M052209	M052142	M052006	M052035	M052016	M052064	M052126	M052103	M052066	M052041	M052057	M052417	M052501	M052410	M052170	M062329	M062151	M062346	M062212	M062056	M062317	M062350	M062078	M062284	M062245	M062287	M062345A	M062345BA	M062345BB	M062345BC	M062345BD	M062345B	M062115	M042183	M042060	M042019	M042023	M042197	M042234	M042066	M042243	M042248	M042229A	M042229B	M042229Z	M042080A	M042080B	M042120	M042203	M042264	M042255	M042224	M052017	M052217	M052021	M052095	M052094	M052131	M052090	M052121A	M052121B	M052042	M052047	M052044	M052422A	M052422B	M052505	M042015	M042196	M042194	M042114A	M042114B	M042112	M042109	M042050	M042074A	M042074B	M042074C	M042151	M042132	M042257	M042158	M042252	M042261	M062005	M062139	M062164	M062142	M062084	M062351	M062223	M062027	M062174	M062244	M062261	M062300	M062254	M062132A	M062132B	M052413	M052134	M052078	M052034	M052174A	M052174B	M052130	M052073	M052110	M052105	M052407	M052036	M052502	M052117	M052426	M062150	M062335	M062219	M062002	M062149	M062241	M062342	M062105	M062040	M062288	M062173	M062133	M062123A	M062123B	M052079	M052204	M052364	M052215	M052147	M052067	M052068	M052087	M052048	M052039	M052208	M052419A	M052419B	M052115	M052421	M062271	M062152	M062215	M062143	M062230	M062095	M062076	M062030	M062171	M062301	M062194	M062344	M062320	M062296	M052024	M052058A	M052058B	M052125	M052229	M052063	M052072	M052146A	M052146B	M052092	M052046	M052083	M052082	M052161	M052418A	M052418B	M062001	M062214	M062146	M062154	M062067	M062341	M062242	M062250A	M062250B	M062170	M062192	M062072	M062048A	M062048B	M062048C	M062048	M062120
792	10201	6	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	3	79	79	79	10	4	1	4	79	79	79	3	1	3	2	4	1	10	79	79	3	1	79	79	79	NA	NA	2	1	2	4	3	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
792	10202	7	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	3	1	10	10	10	2	4	10	79	79	79	79	2	1	2	2	3	1	79	4	10	1	3	4	79	4	79	3	79	79	10	2	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
792	10203	8	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	3	79	3	79	3	3	4	79	4	79	4	NA	NA	79	1	1	4	1	2	10	79	4	2	NA	79	1	79	10	70	4	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
792	10204	9	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	1	2	2	3	79	79	4	2	79	79	4	79	79	70	4	NA	2	2	79	4	79	NA	79	4	79	79	4	3	4	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
792	10205	10	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	2	2	79	3	NA	NA	79	4	79	10	3	1	2	3	4	70	79	1	2	3	79	70	79	2	1	3	2	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
792	10206	11	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	4	3	10	10	2	2	3	79	79	10	1	3	3	2	79	4	10	79	79	3	3	1	10	4	79	3	79	4	10	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
792	10207	12	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	3	79	79	79	4	2	3	70	4	79	4	79	3	79	1	79	79	2	79	2	2	79	NA	3	3	2	2	2	3	3	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA
792	10208	13	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	1	10	NA	1	70	1	1	10	79	4	4	1	4	2	3	3	2	NA	3	79	2	3	2	10	NA	10	79	79	NA	NA	NA	NA	3
792	10209	14	4	79	3	4	1	79	79	70	3	2	3	NA	4	1	79	NA	79	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	2	79	2	79	3	4	1	79	79	79	10	79	NA	NA	NA	NA	4
792	10210	1	1	79	3	1	4	79	79	20	2	2	4	79	2	1	10	79	79	1	2	2	1	79	1	79	79	79	79	4	79	1	3	10	4	2	3	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA

#D) Bilgi nesnesinden uygulanmayan 10 maddeye ilişkin satırları siliniz.Item ID sütunu madde isimlerini içermketedir.
#Satır olduğu için filter kullandım.

BILGI <- BILGI %>%
  filter(!`Item ID` %in% c("M062345B", "M062345BA", "M062345BB", "M062345BC", "M062345BD", 
                           "M062342", "M062048", "M062048A", "M062048B", "M062048C"))
BILGI

## # A tibble: 215 × 17
##    `Item ID` Block `Block Seq` Grade Subject Cycle `Secured\r\nStatus`
##    <chr>     <chr> <chr>       <dbl> <chr>   <dbl> <chr>              
##  1 M042182   M01   01              8 M           4 Restricted Use     
##  2 M042081   M01   02              8 M           4 Restricted Use     
##  3 M042049   M01   03              8 M           4 Restricted Use     
##  4 M042052   M01   04              8 M           4 Restricted Use     
##  5 M042076   M01   05              8 M           4 Restricted Use     
##  6 M042302A  M01   06A             8 M           4 Restricted Use     
##  7 M042302B  M01   06B             8 M           4 Restricted Use     
##  8 M042302C  M01   06C             8 M           4 Restricted Use     
##  9 M042100   M01   07              8 M           4 Restricted Use     
## 10 M042202   M01   08              8 M           4 Restricted Use     
## # ℹ 205 more rows
## # ℹ 10 more variables: `Scaling\r\nStatus` <chr>, `Content Domain` <chr>,
## #   `Topic Area` <chr>, Topic <dbl>, `Cognitive Domain` <chr>,
## #   `Item Type` <chr>, Options <chr>, Key <chr>, `Maximum Points` <dbl>,
## #   Label <chr>

#E)Bilgi nesnesinde Key sütunu “A”,“B”,“C”,“D” and “-” içermektedir.”A”,“B”,“C”,“D” çoktan seçmelimaddelerin doğru cevaplarıdır.”-” ise kısmi puanlanan madeleleri göstermektedir. Bunu Item Type sütununda da anlayabilirsiniz. Veri setinden madde cevaplarının 1,2,3,4,10 ve 20 şeklinde kodlanmıştır. 1-A,2-B,3-C,4-D seçeneğine karşılık gelir. Kısmı puanlanan maddeler ise bilgi nesnesin Maximum Points sütununa göre 1 10,2 ise 20 puan olacak şekilde kodlanmıştır. Sizden beklenen maddeleri 1-0 da dönüştürmenizdir. Bu işlemi CTT paketini kullanarak yapabilirsiniz.
#CTT İLE YAPAMADIM
#YAKLAŞIK 1 SAATİMİ ALDI. 

BILGI <- BILGI %>% 
  mutate(BILGI_V1 = case_when(
    Key == "A" ~ 1,
    Key == "B" ~ 2,
    Key == "C" ~ 3,
    Key == "D" ~ 4,
    Key == "-" & `Maximum Points` == 1 ~ 10, 
    Key == "-" & `Maximum Points` == 2 ~ 20
  ))

BILGI <- BILGI %>% 
  mutate(Puan = case_when(
    Options == BILGI_V1 ~ 1,
    Options == "-" & BILGI_V1 == 10 ~ 10,
    Options == "-" & BILGI_V1 == 20 ~ 20,
    TRUE ~ 0
  ))

head(BILGI %>% select(`Item ID`, Key, `Maximum Points`, Options, BILGI_V1, Puan), 10)

## # A tibble: 10 × 6
##    `Item ID` Key   `Maximum Points` Options BILGI_V1  Puan
##    <chr>     <chr>            <dbl> <chr>      <dbl> <dbl>
##  1 M042182   C                    1 4              3     0
##  2 M042081   -                    1 -             10    10
##  3 M042049   C                    1 4              3     0
##  4 M042052   A                    1 4              1     0
##  5 M042076   D                    1 4              4     1
##  6 M042302A  -                    2 -             20    20
##  7 M042302B  -                    2 -             20    20
##  8 M042302C  -                    2 -             20    20
##  9 M042100   C                    1 4              3     0
## 10 M042202   B                    1 4              2     0

Ödev 1

Zeynep Neveser

2025-02-24