Grades Setting and Exam Maker

Description

Programs to determine student grades and create examinations from Question banks. Programs will create numerous multiple choice exams, randomly shuffled, for different versions of same question list.

Author(s)

Jonathan M. Lees

Maintainer: Jonathan M. Lees<jonathan.lees@unc.edu>

Examples

################  making tests:

## Not run: 
data(QBANK1)
make.exam(QBANK1, ofile="exam1.tex")

## End(Not run)


#################  setting grades:
g = rnorm(n=130, m=82, sd=10)
g[g>100] = 100
g[g<1] = 1

B = boxplot(g)

divs = c(min(g), B$stats[1:4] + diff(B$stats)/2, max(g) )

D1 = do.grades(g, divs=divs, tit="GEOL 105 Exam 1")

Check a set of Question banks

Description

Sequentially check a set of Question banks. Makes sure there is a QUESTION: and ANSWER for each question.

Usage

CHECKbank(QB)

Arguments

Value

Printed Side Effects

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

seebank

Examples

 data(QBANK1)
CHECKbank(QBANK1)

############  modify by inserting an error:
QBANK1[[4]]$numANS=NULL

### recheck:
CHECKbank(QBANK1)

Compare Question Banks

Description

Compare two question banks to find non-duplicated questions

Usage

COMPbank(Qbank1, Qbank2)

Arguments

Details

Uses match to find matching questions in the two question banks.

Value

Vector index of questions in Qbank2 that are not found in Qbank1.

Note

Only the questions are compared, the answers are ingnored. The return vector will be a set of questions that are not duplicated, i.e. unique to question bank 2.

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

SELbank

Examples

## Not run: 
LF = list.files(path="/home/lees/Class/GEOL_105/TESTBANK/EXAM_1", pattern="txt", full.names=TRUE )

kbank = vector(mode='list')
######   read in the question banks, each in one file
for(i in 1:length(LF))
  {
    h = Get.testbank(LF[i])
    kbank[[i]] = Get.testbank(LF[i])

  }
names(kbank) = LF
Kbank =  vector(mode='list')

for(i in 1:length(kbank))
  {

Kbank = c(Kbank, kbank[[i]])

  }

q2 = COMPbank(Kbank, kbank[[3]] )

###########  to extract these:
subq2 = subsetbank(kbank[[3]] , q2)
###########  to get the overlapping questions:

olap = 1:length(kbank[[3]])
olap[-q2]



## End(Not run)

Dump a Question Bank

Description

Save an ASCII version of a selected Question Bank

Usage

DUMPbank(ofile, QB, sep = "\n", append=TRUE)

Arguments

Value

Side effects

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

Get.testbank

Examples

## Not run: 
data(QBANK1)
DUMPbank("my.questions", QBANK1, sep = "\n")

QB1=Get.testbank("my.questions")

## End(Not run)

Dump grades to a file

Description

Dump grades to a file

Usage

DUMPgrades(D1, file = NULL, id = NULL, names = NULL)

Arguments

Value

Side effects

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

do.grades

Examples

g = rnorm(n=130, m=82, sd=10)
g[g>100] = 100
g[g<1] = 1

B = boxplot(g)

divs = c(min(g), B$stats[1:4] + diff(B$stats)/2, max(g) )



###  to run interactively, remove the divs
###  D1 = do.grades(g, tit="GEOL 105 Exam 1")

### otherwise use previously calculated divs:
D1 = do.grades(g, divs=divs, tit="GEOL 105 Exam 1")

## Not run: 

DUMPgrades(D1, file="TEST1grades" )


## End(Not run)

Find Duplicate Questions

Description

Finds dupliucated questions in a set of Question Banks

Usage

DUPbank(Qbank)

Arguments

Details

The program only checks the questions, not the answers. One could thus have several questions with the same wording, but different answers. I might change this in the future. Given the list of duplicated questions one should edit the original question bank files to remove them.

Value

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

Examples

data(QBANK1)

###  force some questions to be duplicates:
QBANK1[[51]]=QBANK1[[25]]
QBANK1[[52]]=QBANK1[[12]]
QBANK1[[14]]=QBANK1[[4]]


DQ = DUPbank(QBANK1)

DQ

Examination grades from Test 2 in 2007

Description

Real exam raw scores from test in Geology 105, University of North Carolina. Zeros are assigned to students who did not take the test.

Usage

data(E2grades)

Format

numeric vector

Examples

data(E2grades)

g = E2grades

B = boxplot(g[g>1], plot=FALSE)
divs = c(min(g), B$stats[1:4] + diff(B$stats)/2, max(g) )
###  get(getOption("device"))(width = 12, height = 7)

D1 = do.grades(g, divs=divs, cut = 15, tit="GEOL 105 Exam 1")

jist(D1$hist, D1$grades, D1$lett, col='purple')

Exam Statistics

Description

Statistical Analysis of Examination where the results are either correct or incorrect.

Usage

EXAMstats(j, key)

Arguments

Details

At this statge no partial credit is given.

Value

List

Note

There is a slightly different implementation if partial credit is employed. See

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

References

Kuder, G. F., and Richardson, M. W. (1937). The theory of the estimation of test reliability. Psychometrika, 2(3), 151-160.

Cortina, J. M., (1993). What Is Coefficient Alpha? An Examination of Theory and Applications. Journal of Applied Psychology, 78(1), 98-104.

See Also

readSCANTRON

Examples

## Not run: 
B2 = readSCANTRON(rawfn2)

Estat = EXAMstats(B2$studans, B2$key)

Estat$kr20


## End(Not run)

Get Test Bank From Ascii Text Files

Description

Get Test Bank From Ascii Text Files

Usage

Get.testbank(fn)

Arguments

Details

Structure of input file is strict: see the vignette for an example. Each questions starts with the tag QUESTION: (there is a space following the colon on all tags) followed by answers with the correct answer indicated by the tag ANSWER: . The tag FIG: allows the examiner to include a figure with a latex tag for reference. For example: ‘⁠ QUESTION: What was the world like during the Late Paleocene Torrid Age? ANSWER: a. Most of the world was wetter and warmer. b. Most of the world was drier and warmer. c. Most of the world was wetter, but a little cooler. d. Most of the world was a desert. e. It is impossible to estimate conditions at that time. ⁠’

Value

List: list of Questions

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

Examples

## Not run: 
fn = "MY.questions"
Qbank = Get.testbank(fn)

##########  use existing database:
data(QBANK1)
#####  dump out question bank in correct format:
DUMPbank("my.questions", QBANK1, sep = "\n")
###  read it in:
QB1=Get.testbank("my.questions")

## End(Not run)

Extract Student Names from Roster.

Description

Given a roster of students, with (lastname, first name) format, extract a unique set of first names, with no blanks.

Usage

GetStudentNames(c1, dup.lets=1)

Arguments

Details

The function assumes the names are comma separated with lastname, firstname order. The code separates the names, removes blanks from the first name, and finds a unique set of names. If first names are not unique, the function extracts the first letters of the last names and the duplicated names and appends with a period.

Value

Character vector of unique first names

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

Examples

g.first =c("Jason","Skyler","Adrian","Berkley","Jack",'David',
'David', 'Jim', 'Jim')
g.last =c('Joyce', 'Einstein', 'Hertz', 'Bailey', 'Compton',
'Jones', 'Wilson', 'Smith', 'Anderson' )

c2 = paste(g.last, g.first, sep=', ')

K = GetStudentNames(c2)

Match ID and Email file

Description

Match ID and Email file

Usage

IDandEM(scrfn, sisroster, sel = 1:2, hnote = "Exam Results", SEND = TRUE)

Arguments

Details

A set of files has been separated and stored. Each file is to sent to a different student with the exam results.

Value

Side Effects

Note

The IDs of the reference data base (the roster) must match the IDs in the list of files. If not, use repair.id to fix the scantron IDs

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

repair.id

Examples

## Not run: 
##  read in the names of the files
zfile = scan(file="ALLIDS", list(name="", ID=0, tfile=""), sep="," )
##  read in a roster.  The roster has
##   email addresses that are attached tot he files
##  by matching the ID in the zfile with the IDs in the data base
load(file="/home/lees/Class/GEOL_105/Grades_2008/EXAM1/BB1.RDATA")

jroster = BB1

IDandEM(zfile, jroster, sel=1:10, hnote="GEOL105 EXAM3 Results", SEND=FALSE )
IDandEM(zfile, jroster,  hnote="GEOL105 EXAM3 Results", SEND=FALSE )

######## actual sending
IDandEM(zfile, jroster, hnote="GEOL105 EXAM3 Results", SEND=TRUE )




## End(Not run)

Letter Grade

Description

given a numeric grade return a letter grade

Usage

LETGRADE(g)

Arguments

Details

returns a grade based on a 4 point spread

Value

character vector of grades

Note

Failing grade is "E" by default. There is no "A+" in this program (UNC policy)

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

Examples

g = rnorm(25, m=82, sd=10)
g[g>100] = 100
g[g<1] = 1


L = LETGRADE(g)

cbind(g, L)

Example Question Bank

Description

Example Question Bank, 50 question, multiple Choice

Usage

data(QBANK1)

Format

List:

Q

Question in latex format (character string)

A

Possible Answers in latex format (vector of character strings)

a

Correct Answer in latex format (character string)

numANS

index number corresponding to correct answer

FIG

character: full path to figure, tag for figure

Details

An example input question in ascii format is constructed using three tag identifiers: "QUESTION:", "ANSWER:" and (optionally) "FIG:". The format is shown here:

Examples

data(QBANK1)
## maybe str(QBANK1) ; plot(QBANK1) ...
print(QBANK1[[1]])

Search Question Bank for Keyword

Description

Search a question bank for key words.

Usage

SEARCHbank(gw, y = "humidity")

Arguments

Details

Dumps to the screen the questions that match the key.

Value

Side effects - dumps to the screen. returns a vector of questions that match.

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

seebank,Get.testbank,SELbank,COMPbank

Examples

## Not run: 
####  seebank program is interactive -
data(QBANK1)
SEARCHbank(QBANK1, "humidity" )

## End(Not run)

Select Questions from a bank

Description

Select, random set of questions from a test bank.

Usage

SELbank(QB, N, xclude=NULL)

Arguments

Details

Progam uses sample to get a random perturbation, and then pulls out the first N questions

Value

Question bank

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

Get.testbank

Examples

## Not run: 
LF = list.files(path="/home/lees/Class/GEOL_105/TESTBANK/EXAM_1", pattern="txt", full.names=TRUE )

kbank = vector(mode='list')
######   read in the question banks, each in one file
for(i in 1:length(LF))
  {
    h = Get.testbank(LF[i])
    kbank[[i]] = Get.testbank(LF[i])

  }
names(kbank) = LF
Kbank =  vector(mode='list')

for(i in 1:length(kbank))
  {

Kbank = c(Kbank, kbank[[i]])

  }

##########   get 50 sample questions
NEWQB = SELbank(Kbank, 50)


## End(Not run)

Create a KEY for the scantron

Description

Create a KEY for the scantron

Usage

UNCkeytron(g, fout, LAB = "KEY")

Arguments

Details

Given a vector of correct answers the program will create a postscript file with a facsimile of the scantron used for examinations at UNC Chapel Hill. The Bubbles will be filled and can be used to prepare a number 2 pencil version.

Value

Side effects

Note

Currently only eps outputs - future versions may be different. At this time, the code creates postscript code, which can be converted to png, pdf or other formats with software outside of R. In linux I use a perlscript, ⁠ /home/lees/Progs/Perl/ps2png.prl files.eps ⁠ which, in turn, calls, epstopdf and ⁠ gs -dBATCH -sDEVICE=png16m -dNOPAUSE -r200 -sOutputFile=$outpf $inpf ⁠

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

getKEY

Examples

## Not run: 

fkeyA = "/Users/lees/SCANTRON/A.FINAL.key"
fkeyB = "/Users/lees/SCANTRON/B.FINAL.key"
 FKEY1 = getKEY(fkeyA)

    FKEY2 = getKEY(fkeyB)

UNCkeytron(FKEY1, "AKEYfinal.eps", "A KEY final")
UNCkeytron(FKEY2, "BKEYfinal.eps", "B KEY final")



## End(Not run)

AutoEmail

Description

Automatically email a file to an address using the perl program.

Usage

autoemail(eadd, sfile, hnote = "Exam Results")

Arguments

Details

This program will work well in Linux and Mac where Perl is installed - I am not sure about Windows. Creates a unix executable file, if perl is present.

Value

Side Effects.

Note

Need to change the from designation.

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

IDandEM

Check Grade Distribution

Description

View grades sorted and listed with raw score, letter and scaled score, with optional ID and name

Usage

checkgrades(D1, id = NULL, names = NULL)

Arguments

Value

Side effects

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

do.grades, DUMPgrades

Examples

g = rnorm(n=130, m=82, sd=10)
g[g>100] = 100
g[g<1] = 1

B = boxplot(g)

divs = c(min(g), B$stats[1:4] + diff(B$stats)/2, max(g) )



###  to run interactively, remove the divs
###  D1 = do.grades(g, tit="GEOL 105 Exam 1")

### otherwise use previously calculated divs:
D1 = do.grades(g, divs=divs, tit="GEOL 105 Exam 1")
checkgrades(D1 )

Remove blanks from strings.

Description

Remove blanks from strings.

Usage

deblank(a)

Arguments

Details

Removes all blanks from strings. The functuon works on vectors of strings, removing blanks on each element.

Value

Character string with no blanks.

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

Examples

j = c(' James', 'Jones ', 'Alpha Dog')

deblank(j)

Do Grades

Description

Calculate the grades of a class of students, given raw scores on exam

Usage

do.grades(ggrades, divs = NULL, cut = 0, tit = "Exam Grades",
breaks=length(ggrades)/3, ...)

Arguments

Details

To remove students who do not take the test a low end cut off is used to excise any grades below that level. Both mean, and standard deviations are shown as well as median and quartiles.

Value

grades=ggrades, lett=letts, scor=scores, divs=divs, LETS=LETS, SCRS=SCRS, hist=HA LIST:

Note

Grades are determined linearly within a division

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

jist, DUMPgrades, getlet

Examples

g = rnorm(n=130, m=82, sd=10)
g[g>100] = 100
g[g<1] = 1

B = boxplot(g)

##########   set divisions automatically:

divs = c(min(g), B$stats[1:4] + diff(B$stats)/2, max(g) )



###  to run interactively, remove the divs
###  D1 = do.grades(g, tit="GEOL 105 Exam 1")

### otherwise use previously calculated divs:
D1 = do.grades(g, divs=divs, tit="GEOL 105 Exam 1")

## Not run: 

####  this is interactive
D1 = do.grades(g, tit="GEOL 105 Exam 1")

#######  list the grades:
cbind(D1$grades,  D1$lett,  D1$scor)

####### if you have names or ID's try:
#######  cbind(IDs, D1$grades,  D1$lett,  D1$scor)

\dontrun{

 DUMPgrades(D1, file="TEST1grades", id=IDS )
}


## End(Not run)

Drop lowest grade

Description

Drop the lowest grade from a matrix of grades. Matrix is assumed to be N by m where m is the number of exams (columns), N the number of students (rows)

Usage

droplowest(z)

Arguments

Details

Best matrix output is sorted, so the grades do not reflect the original order of exam scores. To drop the two lowest scores, apply this program twice, running it a second time on the best outut.

Value

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

do.grades

Examples

#########   generate fake exam scores, 10 students, 3 exams
z = matrix(runif(3*10, 50, 100), ncol=3   )
 A  = droplowest(z)
 cbind(A$best,  A$minind, z, A$midgrade)

Fix Down Loaded Names

Description

Fix names to remove problematic alphanumeric characters like spaces, quotes

Usage

fix.names(nam,  upper=FALSE, lower=FALSE)

Arguments

Details

Currently only space, single and double quotes.

Value

string, with quaote replaced with underscore

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

Examples

####  examples with embedded quotes are not available
####    because they interfere with R documentation

LAM = "SILENCED LAMB"
fix.names(LAM, lower=TRUE)

LAM = "Silence my Lamb"
fix.names(LAM, upper=TRUE)

LAM = "SILeNCED LAMB"
fix.names(LAM)

###   try with single quote
LAM = "O'brian LAMB"
fix.names(LAM)

Read Key output

Description

Read Key output

Usage

getKEY(fn)

Arguments

Details

Reads in the file output of ProfessR and returns a vector of answers

Value

vector of correct answers

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

version.exam, prep.solution

Create Groupings of Students

Description

Create groups of students and plot groups to screen.

Usage

getgroup(g.first, n = 2)

Arguments

Details

Class roster will be divided into n groups and displayed on the the screen.

Value

List of groups with names.

Note

The class is currently randomized in this version.

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

GetStudentNames

Examples

g.last =c('Joyce', 'Einstein', 'Hertz', 'Bailey',
'Compton', 'Jones', 'Wilson', 'Smith', 'Anderson' )

getgroup(g.last, n = 3)

Get Letter Grades

Description

Get letter grades from list of numeric scores

Usage

getlet(ggrades, divs)

Arguments

Details

Returns letter grades scaled linearly between divisions.

Value

LIST:

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

do.grades

Examples

g = rnorm(130, m=82, sd=10)

g[g>100] = 100
g[g<1] = 1



B = boxplot(g)


divs = c(min(g), B$stats[1:4] + diff(B$stats)/2, max(g) )

G = getlet(g, divs)

cbind(G$LETS, G$SCRS)



data.frame(G$grades, G$lett, G$scor)

Grade a SCANTRON

Description

Grade each row of a matrix which is a record of the scanned anwers from a test.

Usage

gradeSCAN(j, key)

Arguments

Details

Program sums correct answers and returns the score for each row.

Value

vector of scores

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

Add letter grades to histogram

Description

Given a vector of grades, add the letters to an existing histogram.

Usage

jist(h, Z=1, L=1, col=2)

Arguments

Details

This will add information on an existing histogram plot. If h is the output of do.grades() then Z and L are ignored.

Value

Graphical Side effects

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

do.grades

Examples

g = rnorm(130, m=82, sd=10)
g[g>100] = 100
g[g<1] = 1

B = boxplot(g)


divs = c(min(g), B$stats[1:4] + diff(B$stats)/2, max(g) )

####G1  = do.grades(g, cut=20, tit="GEOL 105 Exam 1")

##########  replot with existing divisions:
D1 = do.grades(g, divs=divs, tit="GEOL 105 Exam 1")

jist(D1$hist, D1$grades, D1$lett)

##########  or simply:

D1 = do.grades(g, divs=divs, tit="GEOL 105 Exam 1")

jist(D1)

Make Exam

Description

Given a question bank, create a test.

Usage

make.exam(Qbank, ofile = "examq.tex", ncol=2)

Arguments

Details

Dumps out a tex file with the questions

Value

Side Effects - output to a TEX file.

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

prep.exam

Examples

data(QBANK1)

## Not run: 
make.exam(QBANK1, ofile="exam1.tex")

## End(Not run)

Create Solution File

Description

Create Solution File in Latex

Usage

make.solution(Qbank, ofile = "answers.tex")

Arguments

Details

Creates a latex file suitable for printing solution to the exam.

Value

Side Effects

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

Examples

data(QBANK1)

## Not run: 
 make.solution(QBANK1, ofile= "solutions.tex")

## End(Not run)

Plot Histogram with Grades labeled

Description

Plot Histogram with Grades labeled

Usage

phist(G, Z = 1, L = 1, col = 2, add = FALSE, tit = "GEOL 105 Exam 1")

Arguments

Value

List:

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

do.grades

Examples

## Not run: 
newID3 =  repair.id(DBB, raw3)
raw3$id=newID3
raw3$ID=newID3



## End(Not run)

Prepare Exam for Latex (simple style)

Description

Prepare Exam for Latex - use simple styles

Usage

prep.exam(OF, incfile, instructor="", examdate="",
 course="",  examname="", instructions="", ncol=2)

Arguments

Value

Side Effects

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

version.exam

Examples

## Not run: 
######  since the program produces a file on the local
######   system, do not run this example


examdate="THURS Sep 20 2007"


seqnum="1"
exnumber="Exam 1"
V = "exam1A"
outtex = paste(sep=".",V, "tex" )
outMAST  = paste(sep="", V, "MAST" )


MASTtex  = paste(sep=".", outMAST , "tex" )

outsolut  = paste(sep="", V, "solutions.tex" )
Me = "Jonathan M. Lees"

course="GEOL 105"

examname=paste(sep=" ", exnumber, "Seq", seqnum)



instructions=c("There are 50 questions.",
"Answer all questions.", "Mark clearly.")
\dontrun{
prep.exam(outMAST, outtex , instructor=Me, examdate=examdate,
course=course, examname=examname, instructions=instructions)
}


## End(Not run)

Prepare Solution Files

Description

Prepare Latex Solution Files

Usage

prep.solution(ofile)

Arguments

Details

Prepares the Latex header for the solution files

Value

Side Effects

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

prep.exam

Examples

## Not run: 
prep.solution("solfile")

## End(Not run)

Print Scantron

Description

Print results from scantron center

Usage

printSCANTRON(B1)

Arguments

Value

side effects

Note

Prints the matrix returned from the scantron center.

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

readSCANTRON

Examples

## Not run: 

datadir =  "./DATA"
rawfn1 = paste(datadir,'t6200a.raw.csv', sep="/")

B1 = readSCANTRON(rawfn1)
printSCANTRON(B1)


## End(Not run)

Random order of Exam

Description

Randomly re-order the questions in a Question Bank

Usage

ran.exam(Qbank)

Arguments

Details

randomly re-order the questions in a Question Bank

Value

Question bank

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

Get.testbank

Examples

data(QBANK1)
NEWQB = ran.exam(QBANK1)

Read Scantron

Description

Read UNC scantron

Usage

readSCANTRON(fn = "t9543b.raw.csv", nq = 50, istart = 6)

Arguments

Details

The data is scanned by machine. If a student marks on the exam past the correct number of questions, the machine assumes there are legitimate repsonses beyond the key.

Value

list:

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

Examples

## Not run: 

datadir =  "./DATA"
rawfn1 = paste(datadir,'t6200a.raw.csv', sep="/")

B1 = readSCANTRON(rawfn1)

## End(Not run)

Rename Answers

Description

Rename the answers on a Question Bank

Usage

rename.answers(Qbank, newnames = letters[1:26], sep = ") ")

Arguments

Details

Takes the given list of questions, and returns same list with answers rpefaces by a different set of itemizers

Value

Question Bank List

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

Get.testbank

Examples

data(QBANK1)


newnames=letters[1:26]
NEWQB = rename.answers(QBANK1, newnames=newnames ) 
NEWQB[[35]]

newnames=1:26
NEWQB = rename.answers(QBANK1, newnames=newnames ) 
NEWQB[[35]]

newnames=LETTERS[1:26]
NEWQB = rename.answers(QBANK1, newnames=newnames ) 
NEWQB[[35]]

Repair Poorly Bubbled Student ID

Description

Repair Poorly Bubbled Student IDs by matching to a reliable data base of names and IDs. Routine offers a set of possible matches if several may be appropriate.

Usage

repair.id(sisroster, scrfn)

Arguments

Details

Program searchers for missing ID's by attempting to match up names.

Value

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

Replace NA with somehting else

Description

Replace NA with somehting else

Usage

ridNA(z, temp)

Arguments

Value

vector with NA's replaces

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

Examples

z = 1:10
z[z>8] = NA

ridNA(z, 0)

Scramble Answers

Description

Randomly rearrange answers within a question of a test bank

Usage

scramble.answers(Qbank)

Arguments

Details

Takes the given list of questions, and returns same list with answers scrambled.

Value

Question Bank List

Note

Since some question require that the answers be ordered in a certain way, these are not Randomized in this scrambling process. These include:

c("all of the above", "none of the above", "None of these are correct", "all of the choices are correct", "All of the choices are correct", "Both choices are correct", "None of the choices are correct", "Both of the choices are correct", "All of these are correct", 'Neither of these are correct')

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

Get.testbank

Examples

data(QBANK1)


QBANK1[[35]]

 NEWQB = scramble.answers(QBANK1) 
NEWQB[[35]]

Print out a bank of questions

Description

Prints out a bank of questions, one at a time

Usage

seebank(QB)

Arguments

Value

Side effects

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

Examples

## Not run: 
####  seebank program is interactive -
data(QBANK1)
seebank(QBANK1)

## End(Not run)

See Questions Sequentially

Description

Print questions to the screen

Usage

seequestions(QB)

Arguments

Details

Prints just the questions to the screen.

Value

Prints to screen

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

seebank

Examples

## Not run: 
LF = list.files(path="/home/lees/Class/GEOL_105/TESTBANK/EXAM_1", pattern="txt", full.names=TRUE )

kbank = vector(mode='list')
######   read in the question banks, each in one file
for(i in 1:length(LF))
  {
    h = Get.testbank(LF[i])
    kbank[[i]] = Get.testbank(LF[i])

  }
names(kbank) = LF

cbind( seequestions(kbank[[1]]) )




## End(Not run)

Show Distribution of Grades

Description

Show Distribution of Grades

Usage

show.dist(W)

Arguments

Details

Print out the distribution of letter grades

Value

Side Effects

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

do.grades

Examples

g = rnorm(n=130, m=82, sd=10)
g[g>100] = 100
g[g<1] = 1

B = boxplot(g)

divs = c(min(g), B$stats[1:4] + diff(B$stats)/2, max(g) )
D1 = do.grades(g, divs=divs, tit="GEOL 105 Exam 1")

show.dist(D1)

Subset a Question Bank

Description

Extract a subset from a question bank

Usage

subsetbank(QBANK, sel)

Arguments

Details

for selecting specific questions

Value

Question Bank with selections

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

SELbank, COMPbank

Examples

## Not run: 
LF = list.files(path="/home/lees/Class/GEOL_105/TESTBANK/EXAM_1", pattern="txt", full.names=TRUE )

kbank = vector(mode='list')
######   read in the question banks, each in one file
for(i in 1:length(LF))
  {
    h = Get.testbank(LF[i])
    kbank[[i]] = Get.testbank(LF[i])

  }
names(kbank) = LF
Kbank =  vector(mode='list')

for(i in 1:length(kbank))
  {

Kbank = c(Kbank, kbank[[i]])

  }

##########   get 50 odd numbered sample questions

isel = seq(from=1, to=100, by=2)

oddset1 = subsetbank(Kbank, isel)


## End(Not run)

Create 1 instance of a specific Exam

Description

Create 1 instance of a specific Exam

Usage

version.exam(Qbank, V, exnumber = "Exam 1", seqnum = "2", examdate ='',
instructor="",  course="", instructions="", SAMP=TRUE, ncol=2)

Arguments

Value

Side Effects

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

ran.exam, make.exam, prep.exam

Examples

##  the example creates files on the local system - thus not run
## Not run: 
data(QBANK1)

examdate="THURS Sep 20 2007"

version.exam(QBANK1, "exam1A" , exnumber="Exam 1", seqnum="1", examdate=examdate)


##################
examdate=date()

seqnum="1"
exnumber="Exam 1"
V = "exam1A"
outtex = paste(sep=".",V, "tex" )
outMAST  = paste(sep="", V, "MAST" )


MASTtex  = paste(sep=".", outMAST , "tex" )

outsolut  = paste(sep="", V, "solutions.tex" )
Me = "Jonathan M. Lees"

course="GEOL 105"

examname=paste(sep=" ", exnumber, "Seq", seqnum)

K = length(QBANK1)

instructions=c(
paste(sep=" ", "There are",K," number of questions."),
"Answer all questions.","Use number 2 pencil",
"Mark each box clearly.")

version.exam(QBANK1, "exam1B" , exnumber="Exam 1", seqnum="B",
examdate=examdate, instructor=Me, course=course , instructions=instructions)


## End(Not run)

Write Histogram

Description

Write grades on Histogram

Usage

wrist(DB)

Arguments

Details

Used internally in plotting programs

Value

Side Effects

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

do.grades

Examples

g = rnorm(n=130, m=82, sd=10)
g[g>100] = 100
g[g<1] = 1

B = boxplot(g)

divs = c(min(g), B$stats[1:4] + diff(B$stats)/2, max(g) )
D1 = do.grades(g, divs=divs, tit="GEOL 105 Exam 1")

hist(g)
wrist(D1)