Determines the number of endoscopies done by an endoscopist by type of endosopy and indication for a given timeframe As per BSG recommendations for Upper GI minimum number of gastroscopies in a year (although here the time frame is user defined)
NumberPerformed(dataframe, EndoscopistColumn, IndicationColumn)
dataframe | The dataframe |
---|---|
EndoscopistColumn | The column containing the Endoscopists names |
IndicationColumn | The column containing the Indication for the examination |
Myendo<-Myendo[grepl('Gastroscopy',Myendo$ProcedurePerformed),] oo<-NumberPerformed(Myendo,'Endoscopist','Indications') rm(Myendo)