mirror of
https://github.com/msberends/AMR.git
synced 2024-12-25 18:46:11 +01:00
fix SI and IR
This commit is contained in:
parent
af524626b6
commit
0d80647d41
@ -184,19 +184,13 @@ rsi_df <- function(tbl,
|
||||
# transform when checking for different results
|
||||
if (interpretations_to_check %in% c('SI', 'IS')) {
|
||||
for (i in 1:length(ab)) {
|
||||
lijst <- tbl[, ab[i]]
|
||||
if ('I' %in% lijst) {
|
||||
tbl[which(tbl[ab[i]] == 'I'), ][ab[i]] <- 'S'
|
||||
}
|
||||
tbl[which(tbl[, ab[i]] == 'I'), ab[i]] <- 'S'
|
||||
}
|
||||
interpretations_to_check <- 'S'
|
||||
}
|
||||
if (interpretations_to_check %in% c('RI', 'IR')) {
|
||||
for (i in 1:length(ab)) {
|
||||
lijst <- tbl[, ab[i]]
|
||||
if ('I' %in% lijst) {
|
||||
tbl[which(tbl[ab[i]] == 'I'), ][ab[i]] <- 'R'
|
||||
}
|
||||
tbl[which(tbl[, ab[i]] == 'I'), ab[i]] <- 'R'
|
||||
}
|
||||
interpretations_to_check <- 'R'
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user