markQuestions: Apply a Marking Scheme

Description Usage Arguments Value Author(s) See Also Examples

View source: R/mark.R

Description

This function applies a marking scheme to a set of comparisons to produce a set of marks.

Usage

1
markQuestions(result, ...)

Arguments

result

A set of comparison results, as generated by the compareFiles() function.

...

One or more marking schemes, as generated by the questionMarks() function.

Value

A matrix of marks.

Author(s)

Paul Murrell

See Also

questionMarks and compareFiles

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
modelNames <- c("id", "age", 
                "edu", "class", 
                "IndianMothers")
files <- list.files(system.file("example", package="compare"),
                    pattern="^student[0-9]+[.]R$",
                    full.names=TRUE)

results <- compareFiles(files,
                        modelNames,
                        system.file("example", "model.R", package="compare"),
                        allowAll=TRUE,
                        resultNames=gsub(".+[/]|[.]R", "", files))
q1 <- questionMarks(c("id", "age", "edu", "class"),
                    maxMark=2,
                    rule("id", 1),
                    rule("age", 1),
                    rule("edu", 1),
                    rule("class", 1,
                         transformRule("coerced", 1)))

q2 <- questionMarks("IndianMothers",
                    maxMark=1,
                    rule("IndianMothers", 1))

markQuestions(results, q1, q2)

compare documentation built on May 2, 2019, 10:24 a.m.