set.seed(42)
# Statement: Q1 < Q2 < Q3, where Qj is the population
# median of the group j.
data <- NULL
data$x1 <- rnorm(10,0,1)
data$x2 <- rnorm(10,1,1)
data$x3 <- rnorm(10,2,1)
conf.statement(data,ordering=as.integer(c(1,2,3)),verbose=FALSE)
# Statement: Q2 < Q3 < Q1, where Qj is the population
# 3rd quartile of the group j.
conf.statement(data,ordering=as.integer(c(2,3,1)),
quantiles=c(0.75,0.75,0.75))
# Evaluates statements Q1 < Q2 and Q2 < Q1 for the
# data set gleason7, where Qj is the median of
# population j
data(gleason7)
d <- list(x1 = gleason7[1:5,1], x2 = gleason7[,2])
conf.statement(d,verbose=FALSE)
Run the code above in your browser using DataLab