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

\item{Upper_y}{Numeric matrix of upper response bounds, with the same
dimensions as \code{Lower_y}.}

\item{design}{Numeric matrix giving the treatment labels for \code{Lower_y}.}

\item{alpha}{Significance level for the treatment-by-year interaction test.}

\item{verbose}{Logical; print the neutrosophic ANOVA table when \code{TRUE}.}
}
\value{
An invisible list containing the neutrosophic ANOVA table,
interaction F interval and critical value, interaction decision, and the
mean-square interval used for subsequent F intervals.
}
\description{
Performs the pooled neutrosophic ANOVA calculation for interval-valued
observations measured in a Randomized Block Design over multiple years or locations or seasons.
}
\examples{
# Three blocks, three treatments, and two years.
# Columns 1-3 are Year 1; columns 4-6 are Year 2.
# Each block contains every treatment once in each year.

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

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

# Treatment layout for each block:
# Year 1 occupies columns 1-3.
# Year 2 occupies columns 4-6.
design <- matrix(c(
  1, 2, 3, 2, 3, 1,
  2, 3, 1, 3, 1, 2,
  3, 1, 2, 1, 2, 3
), nrow = 3, byrow = TRUE)

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

result$NANOVA.table

}
