# \donttest{
data("plasma.silicon")
post <- plasma.silicon$postoperative
pre <- plasma.silicon$preoperative
diff <- post - pre
n.symm.test(diff, sig.level = 0.05, power = 0.5, method = "wilcox", alternative ="two.sided" )
# Result:
# Sample size calculation under wilcox procedure
# N = 83
# sig.level = 0.05
# power = 0.5
# type = wilcox
# alternative = two.sided
# Interpretation:
# Given the pilot sample `diff` and the significance level 0.05. The sample size of
# the data that is expected toprovide the target power 0.5 of the Wilcoxon test procedure
# is computed as 83.
# }
Run the code above in your browser using DataLab