# NOT RUN {
library(qcr)
data(orangejuice)
str(orangejuice)
attach(orangejuice)
datos.qcd <- qcd(data = orangejuice, var.index = 1, sample.index = 2,
sizes = size, type.data = "atributte")
res.qcs <- qcs.np(datos.qcd)
summary(res.qcs)
plot(res.qcs)
datos.qcs <- qcs.np(orangejuice[trial,c(1,2)], sizes = orangejuice[trial,3])
plot(datos.qcs)
# }
Run the code above in your browser using DataLab