diff --git a/DESCRIPTION b/DESCRIPTION
index dc53ce3..4e986b7 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -17,7 +17,8 @@ Imports:
     metalite.ae,
     r2rtf,
     reactable,
-    stringr
+    stringr,
+    rlang
 Suggests:
     dplyr,
     knitr,
diff --git a/NAMESPACE b/NAMESPACE
index 3d74578..2a670ef 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -3,6 +3,7 @@
 export(collect_baseline)
 export(defmt_pct)
 export(format_base_char)
+export(meta_sl)
 export(meta_sl_example)
 export(prepare_base_char)
 export(react_base_char)
diff --git a/R/meta_sl.R b/R/meta_sl.R
new file mode 100644
index 0000000..4f87715
--- /dev/null
+++ b/R/meta_sl.R
@@ -0,0 +1,149 @@
+# Copyright (c) 2024 Merck & Co., Inc., Rahway, NJ, USA and its affiliates.
+# All rights reserved.
+#
+# This file is part of the metalite.sl program.
+#
+# metalite.sl is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+#' Create metadata for subject-level analysis table
+#'
+#' @param dataset_population Source dataset of population.
+#' @param dataset_observation Source dataset of observation
+#' @param population_term A character value of population term name.
+#' @param observation_term A character value of observation term name.
+#' @param parameter_term A character value of parameter term name.
+#'   If there are multiple terms, they are separated by the semicolon (;).
+#' @param parameter_var A character value of parameter variable name.
+#'   If there are multiple variables, they are separated by the semicolon (;).
+#'   A group variable can be specified followed by a variable 
+#'   and the hat symbol (^).
+#' @param parameter_labels A character vector of parameter label name.
+#'   The length of vector should be the same as the number of parameter terms.
+#'   A label from an input data is used if `NA` for a variable is specified.
+#' @param analysis_term A character value of analysis term name.
+#' @param analysis_title A character value of analysis title name.
+#' @param population_subset An unquoted condition for selecting the
+#'   populations from dataset of population.
+#' @param observation_subset An unquoted condition for selecting the
+#'   populations from dataset of observation
+#' @param population_label A character value of population label.
+#' @param treatment_group A character value of treatment group name.
+#'
+#' @return A metalite object.
+#'
+#' @export
+#'
+#' @examples
+#' meta_sl(
+#'   dataset_population = r2rtf::r2rtf_adsl,
+#'   population_term = "apat",
+#'   parameter_term = "age;race",
+#'   parameter_var = "AGE^AGEGR1;RACE"
+#' )
+meta_sl <- function(
+    dataset_population,
+    dataset_observation = NULL,
+    population_term,
+    observation_term = NULL,
+    parameter_term = "age;race;gender",
+    parameter_var = "AGE^AGEGR1;RACE;SEX",
+    parameter_labels = NULL,
+    analysis_term = "base_char",
+    analysis_title = "Participant Baseline Characteristics by Treatment Group",
+    population_subset = SAFFL == "Y",
+    observation_subset = NULL,
+    population_label = "All Participants as Treated",
+    treatment_group = "TRT01A") {
+
+  # Check input
+  if (is.null(dataset_observation)) {
+    dataset_observation <- dataset_population
+  }
+  if (is.null(observation_term)) {
+    observation_term <- population_term
+  }
+  if (rlang::quo_is_null(rlang::enquo(observation_subset))) {
+    observation_subset <- rlang::enquo(population_subset)
+  }
+
+  # Parse parameters
+  parameter_terms <- unlist(strsplit(parameter_term, ";"))
+
+  if (!length(parameter_terms) == length(unlist(strsplit(parameter_var, ";")))) {
+    stop("The number of parameter labels should be the same as that of parameter terms.")
+  }
+  parameter_vars <- strsplit(unlist(strsplit(parameter_var, ";")), "^", fixed = TRUE)
+  
+  meta <- metalite::meta_adam(
+    population = as.data.frame(dataset_population),
+    observation = as.data.frame(dataset_observation)
+    )|>
+    metalite::define_plan(plan = metalite::plan(
+      analysis = analysis_term,
+      population = population_term,
+      observation = observation_term,
+      parameter = parameter_term
+    )) |>
+    metalite::define_population(
+      name = population_term,
+      group = treatment_group,
+      subset = !!rlang::enquo(population_subset),
+      var = names(dataset_population),
+      label = population_label
+    ) |>
+    metalite::define_observation(
+      name = observation_term,
+      group = treatment_group,
+      subset = !!rlang::enquo(observation_subset),
+      var = names(dataset_observation),
+      label = ""
+    )
+  
+  for (i in seq(parameter_terms)) {
+    var <- parameter_vars[[i]]
+    vargroup <- NULL
+    if (length(parameter_vars[[i]]) > 2) {
+      warning("The hat symbol (^) can separate only 2 input, a variable and its group variable.")
+    } else if (length(parameter_vars[[i]]) == 2) {
+      var <- parameter_vars[[i]][[1]]
+      vargroup <- parameter_vars[[i]][[2]]
+    }
+    if (!is.null(parameter_labels)) {
+      varlabel <- ifelse(!is.na(parameter_labels[i]), 
+                         parameter_labels[i], 
+                         attr(dataset_population[[var]], "label"))
+    } else {
+      varlabel <- attr(dataset_population[[var]], "label")
+    }
+    
+    meta <- meta |> 
+      metalite::define_parameter(
+        name = parameter_terms[[i]],
+        var = var,
+        vargroup = vargroup,
+        label = varlabel
+      )
+  }
+
+  meta <- meta |>
+    metalite::define_analysis(
+      name = analysis_term,
+      label = "",
+      title = analysis_title,
+      var_name = unlist(parameter_vars)
+    ) |>
+    metalite::meta_build()
+  
+  meta
+}
\ No newline at end of file
diff --git a/R/zzz.R b/R/zzz.R
new file mode 100644
index 0000000..b28f2f0
--- /dev/null
+++ b/R/zzz.R
@@ -0,0 +1,19 @@
+# Copyright (c) 2024 Merck & Co., Inc., Rahway, NJ, USA and its affiliates.
+# All rights reserved.
+#
+# This file is part of the metalite.sl program.
+#
+# metalite.sl is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+utils::globalVariables(c("SAFFL"))
\ No newline at end of file
diff --git a/man/format_ae_specific_subgroup.Rd b/man/format_ae_specific_subgroup.Rd
index 1061892..e26d007 100644
--- a/man/format_ae_specific_subgroup.Rd
+++ b/man/format_ae_specific_subgroup.Rd
@@ -16,7 +16,7 @@ format_ae_specific_subgroup(
 )
 }
 \arguments{
-\item{outdata}{An \code{outdata} object created by \code{\link[metalite.ae:prepare_ae_specific]{prepare_ae_specific()}}.}
+\item{outdata}{A \code{outdata} object created by \code{\link[metalite.ae:prepare_ae_specific]{prepare_ae_specific()}}.}
 
 \item{display}{A character vector of measurement to be displayed.
 \itemize{
diff --git a/man/meta_sl.Rd b/man/meta_sl.Rd
new file mode 100644
index 0000000..cb22885
--- /dev/null
+++ b/man/meta_sl.Rd
@@ -0,0 +1,71 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/meta_sl.R
+\name{meta_sl}
+\alias{meta_sl}
+\title{Create metadata for subject-level analysis table}
+\usage{
+meta_sl(
+  dataset_population,
+  dataset_observation = NULL,
+  population_term,
+  observation_term = NULL,
+  parameter_term = "age;race;gender",
+  parameter_var = "AGE^AGEGR1;RACE;SEX",
+  parameter_labels = NULL,
+  analysis_term = "base_char",
+  analysis_title = "Participant Baseline Characteristics by Treatment Group",
+  population_subset = SAFFL == "Y",
+  observation_subset = NULL,
+  population_label = "All Participants as Treated",
+  treatment_group = "TRT01A"
+)
+}
+\arguments{
+\item{dataset_population}{Source dataset of population.}
+
+\item{dataset_observation}{Source dataset of observation}
+
+\item{population_term}{A character value of population term name.}
+
+\item{observation_term}{A character value of observation term name.}
+
+\item{parameter_term}{A character value of parameter term name.
+If there are multiple terms, they are separated by the semicolon (;).}
+
+\item{parameter_var}{A character value of parameter variable name.
+If there are multiple variables, they are separated by the semicolon (;).
+A group variable can be specified followed by a variable
+and the hat symbol (^).}
+
+\item{parameter_labels}{A character vector of parameter label name.
+The length of vector should be the same as the number of parameter terms.
+A label from an input data is used if \code{NA} for a variable is specified.}
+
+\item{analysis_term}{A character value of analysis term name.}
+
+\item{analysis_title}{A character value of analysis title name.}
+
+\item{population_subset}{An unquoted condition for selecting the
+populations from dataset of population.}
+
+\item{observation_subset}{An unquoted condition for selecting the
+populations from dataset of observation}
+
+\item{population_label}{A character value of population label.}
+
+\item{treatment_group}{A character value of treatment group name.}
+}
+\value{
+A metalite object.
+}
+\description{
+Create metadata for subject-level analysis table
+}
+\examples{
+meta_sl(
+  dataset_population = r2rtf::r2rtf_adsl,
+  population_term = "apat",
+  parameter_term = "age;race",
+  parameter_var = "AGE^AGEGR1;RACE"
+)
+}