diff --git a/.github/workflows/check-bioc.yml b/.github/workflows/check-bioc.yml
index 5f73c1c..2208878 100644
--- a/.github/workflows/check-bioc.yml
+++ b/.github/workflows/check-bioc.yml
@@ -53,9 +53,9 @@ jobs:
       fail-fast: false
       matrix:
         config:
-          - { os: ubuntu-latest, r: 'devel', bioc: '3.21', cont: "bioconductor/bioconductor_docker:devel", rspm: "https://packagemanager.rstudio.com/cran/__linux__/jammy/latest" }
-          - { os: macOS-latest, r: 'devel', bioc: '3.21'}
-          - { os: windows-latest, r: 'devel', bioc: '3.21'}
+          - { os: ubuntu-latest, r: 'devel', bioc: '3.23', cont: "bioconductor/bioconductor_docker:devel", rspm: "https://packagemanager.rstudio.com/cran/__linux__/jammy/latest" }
+          - { os: macOS-latest, r: 'devel', bioc: '3.23'}
+          - { os: windows-latest, r: 'devel', bioc: '3.23'}
           ## Check https://github.com/r-lib/actions/tree/master/examples
           ## for examples using the http-user-agent
     env:
diff --git a/DESCRIPTION b/DESCRIPTION
index 69a97a5..edb0583 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -39,7 +39,7 @@ biocViews: Software, DataImport, BiomedicalInformatics, Pharmacogenomics, Pharma
 Encoding: UTF-8
 ByteCompile: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3
 Config/testthat/edition: 3
 Config/testthat/parallel: true
 VignetteBuilder: knitr
@@ -69,6 +69,7 @@ Collate:
     'phv_ebgm.R'
     'rxnorm.R'
     'sample.R'
+    'signal-eventset.R'
     'signal.R'
     'standardize.R'
     'unify.R'
diff --git a/NAMESPACE b/NAMESPACE
index 60d888e..c449300 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -23,7 +23,9 @@ export(faers_mget)
 export(faers_modify)
 export(faers_parse)
 export(faers_period)
+export(faers_phv_composite)
 export(faers_phv_signal)
+export(faers_phv_signal_composite)
 export(faers_phv_table)
 export(faers_primaryid)
 export(faers_quarter)
@@ -63,7 +65,9 @@ exportMethods(faers_merge)
 exportMethods(faers_mget)
 exportMethods(faers_modify)
 exportMethods(faers_period)
+exportMethods(faers_phv_composite)
 exportMethods(faers_phv_signal)
+exportMethods(faers_phv_signal_composite)
 exportMethods(faers_phv_table)
 exportMethods(faers_primaryid)
 exportMethods(faers_quarter)
diff --git a/R/signal-eventset.R b/R/signal-eventset.R
new file mode 100644
index 0000000..c27c83e
--- /dev/null
+++ b/R/signal-eventset.R
@@ -0,0 +1,231 @@
+#' Create contingency table for a specific set of adverse events
+#' 
+#' @description
+#' Build contingency tables for disproportionality analysis focusing on a specific
+#' set of adverse events (e.g., irAEs). This function extends `faers_phv_table`
+#' to handle composite event definitions.
+#' 
+#' @param .object A [FAERSascii] object. The unique number of `primaryids` from
+#' `.object` will be regarded as `n1.`.
+#' @param .event_set A character vector of PT terms or a logical expression that
+#' defines the set of adverse events of interest.
+#' @param .event_type A character string specifying the type of adverse event to use.
+#' Must be one of the two specific literal values: `"pt"` (Preferred Term) or
+#' `"soc_name"` (System Organ Class name). Any other value will cause an error.
+#' Defaults to `"pt"`.
+#' @param ... Other arguments passed to specific methods.
+#' @return A [data.table][data.table::data.table] object with contingency tables
+#' for the specified event set.
+#' @export
+#' @name faers_phv_composite
+methods::setGeneric(
+  "faers_phv_composite",
+  function(.object, .event_set, ..., .full, .object2) {
+    rlang::check_exclusive(.full, .object2)
+    standardGeneric("faers_phv_composite")
+  }
+)
+
+#' @param .full A [FAERSascii] object with data from full database.
+#' @inheritParams faers_counts
+#' @export
+#' @rdname faers_phv_composite
+methods::setMethod(
+  "faers_phv_composite",
+  c(.object = "FAERSascii", .full = "FAERSascii", .object2 = "missing"),
+  function(.object, .event_set, .event_type = "pt", ..., .full, .object2) {
+    if (!.object@standardization) {
+      cli::cli_abort("{.arg .object} must be standardized using {.fn faers_standardize}")
+    }
+    if (!.full@standardization) {
+      cli::cli_abort("{.arg .full} must be standardized using {.fn faers_standardize}")
+    }
+    
+    full_primaryids <- faers_primaryid(.full)
+    interested_primaryids <- faers_primaryid(.object)
+    
+    if (!all(interested_primaryids %chin% full_primaryids)) {
+      cli::cli_abort("Provided {.arg .object} data must be a subset of {.arg .full}")
+    }
+    
+    n <- length(unique(full_primaryids))
+    n1. <- length(unique(interested_primaryids))
+    
+    event_table <- .create_event_set_table(.object, .full, .event_set, .event_type, 
+                                           interested_primaryids, full_primaryids, 
+                                           n1., n, ...)
+    
+    return(event_table)
+  }
+)
+
+#' @param .object2 A [FAERSascii] object with data from another interested drug.
+#' @export
+#' @rdname faers_phv_composite
+methods::setMethod(
+  "faers_phv_composite",
+  c(.object = "FAERSascii", .full = "missing", .object2 = "FAERSascii"),
+  function(.object, .event_set, .event_type = "pt", ..., .full, .object2) {
+    # Input validation
+    if (!.object@standardization) {
+      cli::cli_abort("{.arg .object} must be standardized using {.fn faers_standardize}")
+    }
+    if (!.object2@standardization) {
+      cli::cli_abort("{.arg .object2} must be standardized using {.fn faers_standardize}")
+    }
+    
+    primaryids <- faers_primaryid(.object)
+    primaryids2 <- faers_primaryid(.object2)
+    
+    overlapped_idx <- primaryids %chin% primaryids2
+    if (any(overlapped_idx)) {
+      cli::cli_warn("{.val {sum(overlapped_idx)}} report{?s} are overlapped between {.arg .object} and {.arg .object2}")
+    }
+    
+
+    n1. <- length(unique(primaryids))
+    n0. <- length(unique(primaryids2))
+
+    event_table <- .create_event_set_table_comparison(.object, .object2, .event_set, 
+                                                      .event_type, primaryids, primaryids2,
+                                                      n1., n0., ...)
+    
+    return(event_table)
+  }
+)
+
+#' Internal function to create contingency table for event set (full database comparison)
+#' @keywords internal
+.create_event_set_table <- function(object, full, event_set, event_type, 
+                                    object_ids, full_ids, n1, n_total, ...) {
+  
+  # Get event counts for the full database - FIXED: properly handle ...
+  call_args <- list(.object = full, .events = event_type)
+  dots <- list(...)
+  if (length(dots) > 0) {
+    call_args <- c(call_args, dots)
+  }
+  full_counts <- do.call(faers_counts, call_args)
+  
+
+  event_patients <- .identify_event_set_patients(object, event_set, event_type)
+  full_event_patients <- .identify_event_set_patients(full, event_set, event_type)
+
+  composite_event <- data.table::data.table(
+    event = "Composite_Event_Set",
+    n.1 = length(unique(full_event_patients$primaryid))
+  )
+  
+  # Calculate counts for object
+  object_event_count <- length(unique(
+    event_patients[primaryid %chin% object_ids, primaryid]
+  ))
+  
+  interested_counts <- data.table::data.table(
+    event = "Composite_Event_Set",
+    a = object_event_count
+  )
+
+  data.table::setnames(composite_event, "n.1", "n.1")
+  out <- merge(composite_event, interested_counts, by = "event", all = TRUE)
+  
+  out[, a := data.table::fifelse(is.na(a), 0L, a)]
+  out[, b := n1 - a]
+  out[, c := n.1 - a]
+  out[, d := n_total - (n1 + n.1 - a)]
+  out <- out[, !"n.1"]
+  
+  data.table::setcolorder(out, c("event", "a", "b", "c", "d"))[]
+}
+
+#' Internal function to create contingency table for event set (drug comparison)
+#' @keywords internal
+.create_event_set_table_comparison <- function(object1, object2, event_set, event_type,
+                                               object1_ids, object2_ids, n1, n0, ...) {
+  
+  event_patients1 <- .identify_event_set_patients(object1, event_set, event_type)
+  event_patients2 <- .identify_event_set_patients(object2, event_set, event_type)
+
+  a <- length(unique(event_patients1[primaryid %chin% object1_ids, primaryid]))
+  c <- length(unique(event_patients2[primaryid %chin% object2_ids, primaryid]))
+
+  out <- data.table::data.table(
+    event = "Composite_Event_Set",
+    a = a,
+    b = n1 - a,
+    c = c,
+    d = n0 - c
+  )
+  
+  return(out)
+}
+
+#' Internal function to identify patients with events in the specified set
+#' @keywords internal
+.identify_event_set_patients <- function(object, event_set, event_type, ...) {
+
+  if (event_type == "pt") {
+    data_table <- object@data$reac
+    event_col <- "pt"
+  } else if (event_type == "soc_name") {
+    data_table <- object@data$reac
+    event_col <- "soc_name"
+  } else {
+    cli::cli_abort("Unsupported event type: {.val {event_type}}")
+  }
+  
+  if (is.character(event_set)) {
+    event_patients <- data_table[get(event_col) %in% event_set, .(primaryid)]
+  } else if (is.logical(event_set) || is.function(event_set)) {
+    if (is.function(event_set)) {
+      matches <- event_set(data_table[[event_col]])
+    } else {
+      matches <- event_set
+    }
+    event_patients <- data_table[matches, .(primaryid)]
+  } else {
+    cli::cli_abort("Unsupported event_set type. Must be character vector, logical vector, or function.")
+  }
+  
+  return(unique(event_patients))
+}
+
+#' Signal detection for specific event sets
+#' @export
+#' @rdname faers_phv_composite
+methods::setGeneric("faers_phv_signal_composite", function(.object, ...) {
+  standardGeneric("faers_phv_signal_composite")
+})
+
+#' @param .methods Analysis methods to use (passed to [phv_signal]).
+#' @param .phv_signal_params Other arguments passed to [phv_signal].
+#' @inheritParams phv_signal
+#' @seealso [phv_signal]
+#' @export
+#' @method faers_phv_signal_composite FAERSascii
+#' @rdname faers_phv_composite
+methods::setMethod(
+  "faers_phv_signal_composite", 
+  "FAERSascii", 
+  function(.object, .event_set, .methods = NULL, ..., 
+           .phv_signal_params = list(), BPPARAM = BiocParallel::SerialParam()) {
+    
+    assertthat::assert_that(is.list(.phv_signal_params), 
+                            msg = ".phv_signal_params must be a list")
+    
+    out <- faers_phv_composite(.object = .object, .event_set = .event_set, ...)
+    
+    .__signal__. <- do.call(
+      phv_signal, 
+      c(
+        out[, c("a", "b", "c", "d")],
+        list(methods = .methods, BPPARAM = BPPARAM),
+        .phv_signal_params
+      )
+    )
+    
+    out[, names(.__signal__.) := .__signal__.][]
+  }
+)
+
+utils::globalVariables(c("a", "b", "c", "d", "n.1", "primaryid", "pt", "soc_name"))
diff --git a/man/dot-create_event_set_table.Rd b/man/dot-create_event_set_table.Rd
new file mode 100644
index 0000000..4ae1c21
--- /dev/null
+++ b/man/dot-create_event_set_table.Rd
@@ -0,0 +1,22 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/signal-eventset.R
+\name{.create_event_set_table}
+\alias{.create_event_set_table}
+\title{Internal function to create contingency table for event set (full database comparison)}
+\usage{
+.create_event_set_table(
+  object,
+  full,
+  event_set,
+  event_type,
+  object_ids,
+  full_ids,
+  n1,
+  n_total,
+  ...
+)
+}
+\description{
+Internal function to create contingency table for event set (full database comparison)
+}
+\keyword{internal}
diff --git a/man/dot-create_event_set_table_comparison.Rd b/man/dot-create_event_set_table_comparison.Rd
new file mode 100644
index 0000000..2646d99
--- /dev/null
+++ b/man/dot-create_event_set_table_comparison.Rd
@@ -0,0 +1,22 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/signal-eventset.R
+\name{.create_event_set_table_comparison}
+\alias{.create_event_set_table_comparison}
+\title{Internal function to create contingency table for event set (drug comparison)}
+\usage{
+.create_event_set_table_comparison(
+  object1,
+  object2,
+  event_set,
+  event_type,
+  object1_ids,
+  object2_ids,
+  n1,
+  n0,
+  ...
+)
+}
+\description{
+Internal function to create contingency table for event set (drug comparison)
+}
+\keyword{internal}
diff --git a/man/dot-identify_event_set_patients.Rd b/man/dot-identify_event_set_patients.Rd
new file mode 100644
index 0000000..12203f5
--- /dev/null
+++ b/man/dot-identify_event_set_patients.Rd
@@ -0,0 +1,12 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/signal-eventset.R
+\name{.identify_event_set_patients}
+\alias{.identify_event_set_patients}
+\title{Internal function to identify patients with events in the specified set}
+\usage{
+.identify_event_set_patients(object, event_set, event_type, ...)
+}
+\description{
+Internal function to identify patients with events in the specified set
+}
+\keyword{internal}
diff --git a/man/faers_phv_composite.Rd b/man/faers_phv_composite.Rd
new file mode 100644
index 0000000..d389549
--- /dev/null
+++ b/man/faers_phv_composite.Rd
@@ -0,0 +1,79 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/signal-eventset.R
+\name{faers_phv_composite}
+\alias{faers_phv_composite}
+\alias{faers_phv_composite,FAERSascii,ANY,FAERSascii,missing-method}
+\alias{faers_phv_composite,FAERSascii,ANY,missing,FAERSascii-method}
+\alias{faers_phv_signal_composite}
+\alias{faers_phv_signal_composite,FAERSascii-method}
+\title{Create contingency table for a specific set of adverse events}
+\usage{
+faers_phv_composite(.object, .event_set, ..., .full, .object2)
+
+\S4method{faers_phv_composite}{FAERSascii,ANY,FAERSascii,missing}(
+  .object,
+  .event_set,
+  .event_type = "pt",
+  ...,
+  .full,
+  .object2
+)
+
+\S4method{faers_phv_composite}{FAERSascii,ANY,missing,FAERSascii}(
+  .object,
+  .event_set,
+  .event_type = "pt",
+  ...,
+  .full,
+  .object2
+)
+
+faers_phv_signal_composite(.object, ...)
+
+\S4method{faers_phv_signal_composite}{FAERSascii}(
+  .object,
+  .event_set,
+  .methods = NULL,
+  ...,
+  .phv_signal_params = list(),
+  BPPARAM = BiocParallel::SerialParam()
+)
+}
+\arguments{
+\item{.object}{A \link{FAERSascii} object. The unique number of \code{primaryids} from
+\code{.object} will be regarded as \code{n1.}.}
+
+\item{.event_set}{A character vector of PT terms or a logical expression that
+defines the set of adverse events of interest.}
+
+\item{...}{Other arguments passed to specific methods.}
+
+\item{.full}{A \link{FAERSascii} object with data from full database.}
+
+\item{.object2}{A \link{FAERSascii} object with data from another interested drug.}
+
+\item{.event_type}{A character string specifying the type of adverse event to use.
+Must be one of the two specific literal values: \code{"pt"} (Preferred Term) or
+\code{"soc_name"} (System Organ Class name). Any other value will cause an error.
+Defaults to \code{"pt"}.}
+
+\item{.methods}{Analysis methods to use (passed to \link{phv_signal}).}
+
+\item{.phv_signal_params}{Other arguments passed to \link{phv_signal}.}
+
+\item{BPPARAM}{An optional \code{\link[BiocParallel]{BiocParallelParam}} instance
+    defining the parallel back-end to be used during evaluation.
+  }
+}
+\value{
+A \link[data.table:data.table]{data.table} object with contingency tables
+for the specified event set.
+}
+\description{
+Build contingency tables for disproportionality analysis focusing on a specific
+set of adverse events (e.g., irAEs). This function extends \code{faers_phv_table}
+to handle composite event definitions.
+}
+\seealso{
+\link{phv_signal}
+}