% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/nsLevenesTest.R
\name{nsLeveneTest}
\alias{nsLeveneTest}
\title{Neutrosophic Levene's Test for Interval-Valued Data}
\usage{
nsLeveneTest(Lower_y, Upper_y, design, alpha = 0.05, verbose = TRUE)
}
\arguments{
\item{Lower_y}{Numeric matrix of lower interval bounds.}

\item{Upper_y}{Numeric matrix of upper interval bounds; same dimensions as
\code{Lower_y}.}

\item{design}{Treatment-design matrix. Treatment labels in each row must be
arranged in consecutive year blocks.}

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

\item{verbose}{Logical; print the test table when \code{TRUE}.}
}
\value{
An invisible list containing the Levene statistic interval,
critical F value, homogeneity decision, and ANOVA table.
}
\description{
Tests homogeneity of variances for interval-valued observations using
neutrosophic lower and upper test-statistic bounds.
}
\examples{
# Two replications, three treatments, and two years.
# Columns are ordered as:
# Year 1 (T1, T2, T3), Year 2 (T1, T2, T3).

Lower_y <- matrix(c(
  10, 12, 11, 13, 14, 12,
   9, 11, 10, 12, 13, 11
), nrow = 2, byrow = TRUE)

Upper_y <- matrix(c(
  12, 14, 13, 15, 16, 14,
  11, 13, 12, 14, 15, 13
), nrow = 2, byrow = TRUE)

design <- matrix(c(
  1, 2, 3, 1, 2, 3,
  1, 2, 3, 1, 2, 3
), nrow = 2, byrow = TRUE)

levene_result <- nsLeveneTest(
  Lower_y = Lower_y,
  Upper_y = Upper_y,
  design = design,
  alpha = 0.05,
  verbose = TRUE
)

levene_result$Homogeneity

}
