% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/PooledCRDnsANOVA.R
\name{PooledCRDnsANOVA}
\alias{PooledCRDnsANOVA}
\title{Pooled Neutrosophic ANOVA for a Completely Randomized Design}
\usage{
PooledCRDnsANOVA(Lower_y, Upper_y, design, alpha = 0.05, verbose = FALSE)
}
\arguments{
\item{Lower_y}{Numeric matrix of lower response bounds. Columns must be
arranged in consecutive year or location blocks, each containing all treatments.}

\item{Upper_y}{Numeric matrix of upper response bounds.}

\item{design}{Numeric treatment-layout matrix with the same dimensions as
\code{Lower_y}.}

\item{alpha}{Significance level. Default is \code{0.05}.}

\item{verbose}{Logical; print results when \code{TRUE}.}
}
\value{
A list containing the initial and final NANOVA tables, interaction
test, decision, and pooled MSE when applicable.
}
\description{
Performs pooled neutrosophic analysis of variance for a completely
randomized design.
}
\examples{
# Three replications, three treatments, and two years.
# Columns 1-3 are Year 1; columns 4-6 are Year 2.

Lower_y <- matrix(c(
  20, 25, 30, 21, 26, 31,
  22, 27, 32, 23, 28, 33,
  21, 26, 31, 22, 27, 32
), nrow = 3, byrow = TRUE)

Upper_y <- matrix(c(
  22, 27, 32, 23, 28, 33,
  24, 29, 34, 25, 30, 35,
  23, 28, 33, 24, 29, 34
), nrow = 3, byrow = TRUE)

# Treatment layout:
# Year 1 = Treatments 1, 2, 3
# Year 2 = Treatments 1, 2, 3
design <- matrix(c(
  1, 2, 3, 1, 2, 3,
  1, 2, 3, 1, 2, 3,
  1, 2, 3, 1, 2, 3
), nrow = 3, byrow = TRUE)

result <- PooledCRDnsANOVA(
  Lower_y = Lower_y,
  Upper_y = Upper_y,
  design = design,
  alpha = 0.05,
  verbose = TRUE
)

result$NANOVA.table
}
