klausuR (version 0.12-14)

plot: Plot methods for S4 objects of class klausuR and klausuR.mult

Description

These plot methods are beeing called by klausur.report. If x is of class klausuR.mult, only the global results will be plotted. Should you rather like plots on each test form, call plot with the single slots from that object accordingly.

Usage

plot(x, y, ...)
# S4 method for klausuR,missing
plot(x, marks = FALSE, sd.lines = FALSE, plot.normal = TRUE,
      na.rm = TRUE, ...)
# S4 method for klausuR.mult,missing
plot(x, marks = FALSE, sd.lines = FALSE,
      plot.normal = TRUE, ...)

Arguments

x

An S4 object of class klausuR or klausuR.mult

y

From the generic plot function, ignored for klausuR class objects.

...

Any other argument suitable for plot()

marks

Logical, whether the histogram should show the distribution of points (default) or marks

sd.lines

Logical, whether standard deviation lines should be plotted

plot.normal

Logical, whether normal distribution should be plotted (according to mean and Sd of the results)

na.rm

Logical, whether NA values should be ignored. Defaults to TRUE, because plotting would fail otherwise

See Also

klausur, klausur.mufo, klausur.report

Examples

# NOT RUN {
data(antworten)

# vector with correct answers:
richtig <- c(Item01=3, Item02=2, Item03=2, Item04=2, Item05=4,
 Item06=3, Item07=4, Item08=1, Item09=2, Item10=2, Item11=4,
 Item12=4, Item13=2, Item14=3, Item15=2, Item16=3, Item17=4,
 Item18=4, Item19=3, Item20=5, Item21=3, Item22=3, Item23=1,
 Item24=3, Item25=1, Item26=3, Item27=5, Item28=3, Item29=4,
 Item30=4, Item31=13, Item32=234)

# vector with assignement of marks:
notenschluessel <- c()
# scheme of assignments: marks[points_from:to] <- mark
notenschluessel[0:12]  <- 5.0
notenschluessel[13:15] <- 4.0
notenschluessel[16:18] <- 3.7
notenschluessel[19:20] <- 3.3
notenschluessel[21]    <- 3.0
notenschluessel[22]    <- 2.7
notenschluessel[23]    <- 2.3
notenschluessel[24]    <- 2.0
notenschluessel[25:26] <- 1.7
notenschluessel[27:29] <- 1.3
notenschluessel[30:32] <- 1.0

data.obj <- klausur.data(answ=antworten, corr=richtig, marks=notenschluessel)
klsr.obj <- klausur(data.obj)
plot(klsr.obj, marks=TRUE)
# }