% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/censor_schemes.R
\name{r_joint_type1_censor}
\alias{r_joint_type1_censor}
\title{Joint Type-I censoring across multiple samples}
\usage{
r_joint_type1_censor(n, dist, cen_time, k = 2L, seed = NULL)
}
\arguments{
\item{n}{sample size per group.}

\item{dist}{a \code{\link{dist_spec}} object.}

\item{cen_time}{fixed censoring time.}

\item{k}{number of independent samples (default \code{2}).}

\item{seed}{optional integer seed.}
}
\value{
A list of \code{censored_sample} objects (class
\code{"censored_sample_list"}), one per group.  Each element contains
\code{scheme}, \code{dist}, \code{n}, \code{seed}, \code{t_true},
\code{x}, \code{status} (0 = right-censored, 1 = event), \code{time2},
and extra fields \code{group} and \code{k}.
}
\description{
Generates \code{k} independent samples of size \code{n} each, all
censored at a common fixed time \code{cen_time}.
}
\examples{
d <- dist_spec(q = function(u, p) -log(1 - u) / p$rate,
               param = list(rate = 1), name = "Exp(1)")
r_joint_type1_censor(20, d, cen_time = 2, seed = 1)
}
