radar2/validatie.R

95 lines
2.6 KiB
R
Raw Normal View History

2023-02-07 16:49:16 +01:00
source('global.R')
if (F) {
# CoNS
radar_data_first %>%
mutate(f = mo_name(mo)) %>%
filter(f == 'Coagulase-negative Staphylococcus (CoNS)') %>%
pull(MO) %>%
unique() %>%
mo_name()
# versus
radar_data %>%
mutate(f = mo_name(mo)) %>%
filter(f == 'Coagulase-negative Staphylococcus (CoNS)') %>%
pull(MO) %>%
unique() %>%
mo_name()
# conclusie: Becker = TRUE maakt het verschil
# Fluclox onder SA
radar_data_first %>%
select(sampleid, patientid, Isolnr, date, MO, mo, FLC) %>%
filter(!is.na(FLC), MO == 'staaur') %>% count(patientid, Isolnr, FLC)
# conclusie: 212 samples, 142 patienten
radar_data_first %>%
select(sampleid, patientid, Isolnr, date, MO, mo) %>%
filter(MO == 'staaur') %>%
count(patientid)
# 93 samples, 91 patienten
countSamplesPatients = function(moName4d) {
nSamples = radar_data_first %>%
select(sampleid, patientid, Isolnr, date, MO, mo) %>%
filter(MO == moName4d) %>%
count(sampleid) %>%
nrow()
nPatients = radar_data_first %>%
select(sampleid, patientid, Isolnr, date, MO, mo) %>%
filter(MO == moName4d) %>%
count(patientid) %>%
nrow()
return(tribble(~mo4d, ~nSamples, ~nPatients,
moName4d, nSamples, nPatients))
}
t = countSamplesPatients('staaur') %>%
add_row(countSamplesPatients('esccol')) %>%
add_row(countSamplesPatients('klepne')) %>%
add_row(countSamplesPatients('encfcl')) %>%
add_row(countSamplesPatients('enbcco')) %>%
add_row(countSamplesPatients('strmgr')) %>%
add_row(countSamplesPatients('pseaer')) %>%
mutate(mo_name = mo_name(mo4d)) %>%
relocate(mo_name, .after = mo4d)
}
if (F) {
allTrue = function(x) { identical(x, rep(T, length(x))) }
allVal = function(x, val) { identical(x, rep(val, length(x))) }
whereVal = function(x, val) { which(x == val) }
whereAll = function(x, val) {
rx = which(x %>% map_lgl(~ allVal(., val))) %>% as.numeric()
ry = which(z %>%
rowwise() %>%
mutate(skdsjui3irskjdf = allVal(c_across(), val)) %>%
pull(skdsjui3irskjdf)
) %>% as.numeric()
return(list(cols = colnames(x)[rx], x = rx, y = ry))
}
whereAny = function(x, val) {
rx = which(x %>% map_lgl(~any(. == val))) %>% as.numeric()
ry = which(x %>%
rowwise() %>%
mutate(skdsjui3irskjdf = any(c_across() == val)) %>%
pull(skdsjui3irskjdf)) %>% as.numeric()
return(list(cols = colnames(x)[rx], x = rx, y = ry))
}
whereR = radar_data %>%
filter(MO == 'mrsa') %>%
select(is.rsi) %>%
mutate(across(everything(), as.character)) %>%
whereAny('R')
}