Decision support system for differential diagnosis of nontraumatic acute abdomen
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Type Name Latest commit message Commit time
Failed to load latest commit information.
www
.Rhistory
Figure 4.TIF
Parameters.rda
README.md
bagKNN.rda
bagPrediction.R
bagSVM.rda
ddimer.txt
google-analytics.js
model.rda
prediction.R
server.R
sourceCodes.R
ui.R

README.md

DDNAA: Decision support system for differential diagnosis of nontraumatic acute abdomen

A quick evaluation is required for patients with acute abdominal pain. It is crucial to differentiate between surgical and nonsurgical pathology. Practical and accurate tests are essential in this differentiation. Lately, D-dimer level is found to be an important adjuvant in this diagnosis and obviously outperforms leukocyte count, which is widely used for diagnosis of certain cases. Here, we handle this problem in a statistical perspective and combine the information from leukocyte count along with D-dimer level to increase the diagnostic accuracy of nontraumatic acute abdomen. For this purpose, various statistical learning algorithms are considered and model performances are assessed using several measures. Our results revealed that naïve Bayes, robust quadratic discriminant analysis, bagged and boosted support vector machines, single and bagged k-nearest neighbors provide an increase in diagnostic accuracies up to 8.93% and 17.86%, compared with D- dimer level and leukocyte count, respectively. Highest accuracy was obtained as 78.57% with naïve Bayes algorithm. Here, we developed a user-friendly web-tool to assist physicians in their decisions to differentially diagnose of patients with acute abdomen.

DDNAA main paper: http://online.journals.tubitak.gov.tr/openAcceptedDocument.htm?fileID=562247&no=141387

DDNAA web-tool: http://www.biosoft.hacettepe.edu.tr/DDNAA/

#Installation

First, download and install R:

https://cran.rstudio.com

Second, install following R packages:

install.packages("devtools")
require(devtools)
install_version("shiny", version = "0.10.1", repos = "http://cran.us.r-project.org")
install.packages("caret")
install.packages("plyr")

Finally, run following code in R console:

shiny::runGitHub("DDNAA", "selcukorkmaz")