То же, что и ниже, как получить выходные данные, если я получаю данные из SQL.
Пример набора данных: MRN - это идентификатор пациента
Brand <- c("Evista", "Rozerem", "Altace")
MRN <- c("121212", "121212", "231212", "432123", "432123", "542345",
"323412", "242341", "412111", "642321")
MedList <- c("raloxifene 60mg daily", "Rozerem 8mg daily", "evista 60mg
daily", "metoprolol tartate 25mg twice daily", "ramelteon 8mg daily",
"ramipril 5mg daily", "omeprazole 20mg daily", "ALTACE 5mg nightly",
"ramelteon 8mg daily", "imatinib 400mg daily")
Запрос:
grepl(paste(toupper(Brand), collapse = '|'), toupper(MedList))
[1] FALSE TRUE TRUE FALSE FALSE FALSE FALSE TRUE FALSE FALSE
===========================================================
Пример:
rm(list=ls()) Brand <- c("Evista", "Rozerem", "Altace")
MRN <- c("121212", "121212", "231212", "432123", "432123", "542345", "323412", "242341", "412111", "642321")
---getting this from data base----
MedList <- data.frame(DiagnosticNotes = data[, "nvchDiagnosticNotes"])
---getting this from data base----
Patients <- data.frame(MRN,MedList)
Нужно ли мне изменить следующий запрос:
grepl(paste(toupper(Brand), collapse = '|'), toupper(MedList))