Context

Author

Affiliation

Serge Morand

HealthDEEP-CNRS

Load Packages

library(quanteda)

load data

ref_urban <- readxl::read_excel("Classeur WHOZOOGREEN articles à conserver 120825.xlsx") |>
  dplyr::rename(rayan = Colonne1) |>
  dplyr::select(rayan, title,keywords, Abstract) |>
  dplyr::filter(!is.na(Abstract))

tokenized

toks <- tokens(ref_urban$Abstract)

hypothesis-related keywords

keywords <- c("hypothesize*", "hypothesis", "expect*", "predict*", 
              "test whether", "aim*", "assess")

vizualize

kwic_result <- kwic(toks, pattern = phrase(keywords), window = 8)

### Create an interactive table from the KWIC results
DT::datatable(kwic_result)