--- a
+++ b/RadETL/R/imageTotalCount_OccurrenceTable.R
@@ -0,0 +1,22 @@
+#' 'imageTotalCount'
+#'
+#' imageTotalCount function indicates total count of each DICOM files in each occurrences
+#'
+#'
+#' @param DICOMList you can put it like this and then run the function : DICOMList<-DICOMHeaderList(DICOMFolderPath)
+#' @import dplyr
+#' @importFrom magrittr "%>%"
+#'
+#'
+#' @return A dataframe indicating total count of each DICOM files in each occurrences
+#' @examples
+#' DICOMList<-DICOMHeaderList(DICOMFolderPath)
+#' imageTotalCount(DICOMList)
+#' @export
+
+#imageTotalCount
+imageTotalCount<-function(DICOMList){
+    imageTotalCount<-radiologyOccurrenceId(DICOMList) %>% group_by(radiologyOccurrenceId) %>% count(imageTotalCount=n())
+    imageTotalCount[,c(1:2)]
+}
+