# QuantileDefs1 Example
# Compute percentiles for a small dataset using
# the 9 percentile definitions available in R;

sink("quantiles.txt")

data = c(2, 3, 5, 7, 11, 13, 17, 19, 23, 29)

cat("N:", length(data), "Data:", data, "\n")
cat("Type  Q1  Median  Q3\n")
cat("====================\n")
for(deftype in 1:9) {
   q <- quantile(data, c(0.25, 0.5, 0.75), type=deftype) 
   cat(deftype, q[1], q[2], q[3], "\n")
}
cat("\n")

data = c(2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31)

cat("N:", length(data), "Data:", data, "\n")
cat("Type  Q1  Median  Q3\n")
cat("====================\n")
for(deftype in 1:9) {
   q <- quantile(data, c(0.25, 0.5, 0.75), type=deftype) 
   cat(deftype, q[1], q[2], q[3], "\n")
}
sink()