## execute analysis
if (FALSE) {
data(ct)
ct$design <- with(ct, factor(design,
labels = c("Prospective", "Retrospective")))
plotdata(ct, # Data frame
group = "design", # Groupping variable
y.lo = 0.75, # Lower limit of y-axis
x.up = 0.75, # Upper limit of x-axis
alpha.p = 0.5, # Transparency of the balls
max.size = 5) # Scale the circles
}
Run the code above in your browser using DataLab