Commit e5d73473 authored by Simon Pintarelli's avatar Simon Pintarelli

max/min grade

parent 61c4009c
......@@ -195,7 +195,7 @@ ggplot(opoints, aes(x=x,y=y)) +
<<grading_scale_plot, opts.label="codefig", echo=FALSE, results='asis', cache=FALSE, fig.width=5, fig.height=5>>=
I <- match(seq(1, 6, by=dg), scale$grade)
I <- match(seq(min(int_grades), max(int_grades), by=dg), scale$grade)
plot1 <- ggplot(scale_plot, aes(x=s, y=grade, col=col)) +
geom_line() +
scale_y_continuous(breaks=seq(1,6,by=0.5)) +
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment