# R program to illustrate
# Paired Samples Wilcoxon Test

# The data set
# Weight of the rabbit before treatment
before <-c(0.0489, -0.12562, -0.26397, 0.03139, 0.11295)

# Weight of the rabbit after treatment
after <-c(0.40176, 0.37986, -0.03266, 0.66216, 0.20136)

# Create a data frame
myData <- data.frame(
group = rep(c("before", "after"), each = 10),
weight = c(before, after)
)

# Print all data
print(myData)

# Paired Samples Wilcoxon Test
resultEredeti = wilcox.test(before, after, paired = TRUE)
resultFExact = wilcox.test(before, after, paired = TRUE, exact=F)
resultFCorr = wilcox.test(before, after, paired = TRUE, correct=F)
resultFBoth = wilcox.test(before, after, paired = TRUE, exact=F, correct=F)

library(coin)
resultAlahuzas = wilcoxsign_test(before~after, distribution="asymptotic", zero.method="Wilcoxon")

# Printing the results
print(resultEredeti)
print(resultFExact)
print(resultFCorr)
print(resultFBoth)
print(resultAlahuzas)