# display unsorted numerators and denominators of support values for n = 4
km.support(4)
# display sorted support values for n = 4 as exact fractions
n <- 4
s <- km.support(n)
i <- order(s$num / s$den)
m <- length(s$num)
f <- ""
for (j in i[2:(m - 1)]) f <- paste(f, s$num[j], "/", s$den[j], ", ", sep = "")
cat(paste("The ", m, " support values for n = ", n, " are: 0, ", f, "1.\n", sep = ""))
# print sorted support values for n = 4 as numerics
print(s$num[i] / s$den[i])
Run the code above in your browser using DataLab