# Example 1: Using Bai and Saranadasa (1996)'s test (two-sample problem)
NRtest.obj1 <- NRtest.object(
statistic = c("T[BS]" = 2.208),
p.value = 0.0136,
method = "Bai and Saranadasa (1996)'s test",
data.name = "group1 and group2",
null.value = c("Difference between two mean vectors is o"),
alternative = "Difference between two mean vectors is not 0",
parameter = NULL,
sample.size = c(n1 = 24, n2 = 26),
sample.dimension = 20460,
estimation.method = "Normal approximation"
)
print(NRtest.obj1)
# Example 2: Using Fujikoshi et al. (2004)'s test (GLHT problem)
NRtest.obj2 <- NRtest.object(
statistic = c("T[FHW]" = 6.4015),
p.value = 0,
method = "Fujikoshi et al. (2004)'s test",
data.name = "Y",
null.value = "The general linear hypothesis is true",
alternative = "The general linear hypothesis is not true",
parameter = NULL,
sample.size = c(n1 = 43, n2 = 14, n3 = 21, n4 = 72),
sample.dimension = 2000,
estimation.method = "Normal approximation"
)
print(NRtest.obj2)
Run the code above in your browser using DataLab