sirs.fct: Compute the SIRS score.

In maciejrosolowski/progressdatenbankderivate: Extract and Process Data from the Database of the PROGESS Study

Compute the SIRS score.

Description

Compute the SIRS score.

Usage

sirs.fct(
  DID_PROBAND,
  FRM_BAS,
  FRM_BEF,
  FRM_B24,
  FRM_DIL_LABORWERTE,
  DID_CLIN,
  FRM_RR,
  FRM_KAT,
  zp_fabian = "d0",
  event2zeitpunkt_df = progressdatenbankderivate::event2zeitpunkt_table
)

Arguments

DID_PROBAND	data.table containing the table with the same name from the database of the PROGRESS study
FRM_BAS	data.table containing the table with the same name from the database of the PROGRESS study
FRM_BEF	data.table containing the table with the same name from the database of the PROGRESS study
FRM_B24	data.table containing the table with the same name from the database of the PROGRESS study
FRM_DIL_LABORWERTE	data.table containing the table with the same name from the database of the PROGRESS study
DID_CLIN	data.table containing the table with the same name from the database of the PROGRESS study
FRM_RR	data.table containing the table with the same name from the database of the PROGRESS study
FRM_KAT	data.table containing the table with the same name from the database of the PROGRESS study
zp_fabian	vector of characters. They must be present in event2zeitpunkt_table$zp_fabianref.
event2zeitpunkt_df	data.table event2zeitpunkt_table (available with the package).

Value

a named list with components: input, input2 and out. out is a data.table with one row corresponding to a combination of PATSTUID (patient) and "EVENT" (time point). infec.septic.servsept contains the number of the met SIRS criteria (infected (1), sepsis (2), severe sepsis(3)); septischer.schock indicates if criteria for septic shock are met. If 50 is set to NA.

Examples

## Not run: 
excel_fn <- paste0("/net/ifs1/san_projekte/projekte/",
"PROGRESS/Datenmanagement/Data_freezes/",
"20190320/PROGRESS-freeze_201903_01.xlsx")
DID_PROBAND <- readxl::read_excel(excel_fn, 'DID_PROBAND')
FRM_BAS <- readxl::read_excel(excel_fn, 'FRM_BAS')
FRM_BEF <- readxl::read_excel(excel_fn, 'FRM_BEF')
FRM_B24 <- readxl::read_excel(excel_fn, 'FRM_B24')
FRM_DIL_LABORWERTE <- readxl::read_excel(excel_fn, "FRM_DIL_LABORWERTE")
DID_CLIN <- readxl::read_excel(excel_fn, 'DID_CLIN')
FRM_RR <- readxl::read_excel(excel_fn, 'FRM_RR', guess_max = 10e5)
FRM_KAT <- readxl::read_excel(excel_fn, 'FRM_KAT')
data.table::setDT(DID_PROBAND)
data.table::setDT(FRM_BAS)
data.table::setDT(FRM_BEF)
data.table::setDT(FRM_B24)
data.table::setDT(FRM_DIL_LABORWERTE)
data.table::setDT(DID_CLIN)
data.table::setDT(FRM_RR)
data.table::setDT(FRM_KAT)
erg_d0 <- sirs.fct(DID_PROBAND, FRM_BAS, FRM_BEF, FRM_B24,
FRM_DIL_LABORWERTE, DID_CLIN, FRM_RR, FRM_KAT, zp_fabian = "d0")
erg_d0
erg_d1 <- sirs.fct(DID_PROBAND, FRM_BAS, FRM_BEF, FRM_B24,
FRM_DIL_LABORWERTE, DID_CLIN, FRM_RR, FRM_KAT, zp_fabian = "d1")
erg_d1

## End(Not run)

maciejrosolowski/progressdatenbankderivate documentation built on Nov. 29, 2024, 3:39 a.m.