To jest stara wersja strony!
Porównujemy trudności KTT wersji A i B arkusza sprawdzianu z 2009 roku obliczone dla danych EWD.
library(ZPD) src = polacz() # pobieramy skale KTT dla sprawdzianu z 2009 roku skale = pobierz_skale(src, czyKtt = TRUE) %>% filter(rodzaj_skali == 'ktt', rodzaj_egzaminu == 'sprawdzian', rok == 2009) %>% select(id_skali, skalowanie, id_testu) %>% distinct() # aby odfiltrować testy z danymi EWD musimy sięgnąć do grupy danych "testy" testyEwd = pobierz_testy(src) %>% filter(dane_ewd == TRUE) %>% select(id_testu, arkusz) # złączamy jedno z drugim - mamy już potrzebne dane - id_skali, skalowanie i arkusz skale = skale %>% inner_join(testyEwd) # pobieramy parametry parametry = pobierz_parametry(src) %>% # ograniczamy tylko do interesujących nas skalowań (jednocześnie dołączamy zmienną "arkusz") inner_join(skale) %>% # zostawiamy jedynie parametr określający trudność filter(parametr == 'mean') %>% # wybieramy jedyne interesujące nas zmienne select(arkusz, kryterium, wartosc) %>% # pobieramy na komputer collect() %>% # przekształcamy do postaci szerokiej z wersjami arkusza w kolumnach reshape2::dcast(kryterium ~ arkusz) # obliczamy różnicę trudności między wersjami arkusza parametry$roznica = abs(parametry[, 2] - parametry[, 3]) # wyświetlamy sortując od największej różnicy parametry %>% arrange(desc(roznica))