Odev1

library(haven)
TUR <- read_sav("BSATURM6.sav")
View(TUR)

library(readxl)
bilgi <- read_excel("T15_G8_ItemInformation.xlsx")
View(bilgi)

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

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

silinecekler <- c("M062345B", "M062345BA", "M062345BB", "M062345BC", 
                         "M062345BD", "M062342", "M062048", "M062048A", 
                         "M062048B", "M062048C")
TUR_2 <- TUR_1 %>%
  select(-all_of(silinecekler))

silinecekler <- c("M062345B", "M062345BA", "M062345BB", "M062345BC", 
                      "M062345BD", "M062342", "M062048", "M062048A", 
                      "M062048B", "M062048C")

bilgi_1 <- bilgi %>%
  filter(!`Item ID` %in% silinecekler)

Ödevin ilk 4 maddesini 11 dakikada tamamladım. Son kısmı nasıl yapacağımı bulamadım. Yaklaşık bir 15 dakika kadar ChatgptR wizard dan destek almaya çalıştım fakat kafam çok karıştı. Anladığım kadarı kadar olan kısmı aşağıya yazıyorum.