Töflur

Kyn

Kynjaskipting milli hópa
hópur KK KVK
nature-urban_hi 4 5
nature-urban_lo 7 3
urban-nature_hi 3 7
urban-nature_lo 5 4

Aldur

Aldursdreifing milli hópa
hópur mean sd
nature-urban_hi 30.22 7.74
nature-urban_lo 28.20 6.05
urban-nature_hi 26.50 4.09
urban-nature_lo 32.11 10.55

Aldur eftir kyni

Aldursdreifing milli hópa
kyn mean sd
KK 30.74 8.71
KVK 27.58 5.57

Hlutfall réttra svara (ýtir ekki á 3)

Hlutfall réttra svara (ýtti ekki á 3)
Block
type filt 1 2 3
nature-urban hi 0.53 0.58 0.73
nature-urban lo 0.59 0.68 0.67
urban-nature hi 0.50 0.53 0.54
urban-nature lo 0.74 0.76 0.76

Tegundir svara

Átti að ýta?
Ýtti Nei (3) Já (Önnur)
Nei 0.369 0.009
Já 0.631 0.991

Myndir

Svartími

Fjöldi réttra svara (ekki ýta þegar 3)

Dprime

dprimedf <- df %>%
    filter(block != "0") %>%
    group_by(id, block, filt, type, number) %>%
    summarize(frac = sum(response == "Positive")/n()) %>%
    spread(number, frac) %>%
    rename("FP" = "3", "TP" = "Other") %>%
    mutate(FP = 0.5 - FP, TP = 0.5 - TP) %>%
    mutate(FP = sign(FP) * pnorm(FP), TP = sign(TP) * pnorm(TP)) %>%
    mutate(dprime = FP - TP) %>%
    select(-FP, -TP)

Inverse Efficiency Score

\(IES = \frac{Svartími}{%Rétt}\)

dprime = p(hlutf false positive) - p(hlutf true positive)

Dreifing mælistika