pmt(
    "paired.difference",
    alternative = "greater", scoring = "none", n_permu = 0
)$test(Table4.1.1)$print()
pmt(
    "paired.difference", n_permu = 0
)$test(Table4.1.3)$print()
t <- pmt(
    "paired.difference", scoring = "rank",
    alternative = "greater", n_permu = 0
)$test(Table4.1.1)$print()
t$type <- "asymp"
t
Run the code above in your browser using DataLab