| do.grades {ProfessR} | R Documentation |
Calculate the grades of a class of students, given raw scores on exam
do.grades(ggrades, divs = NULL, cut = 0, tit = "Exam Grades", breaks=length(ggrades)/3, ...)
ggrades |
Raw grades |
divs |
divisions for grades (optional) |
cut |
low end Cut off to remove 0 from statistics |
tit |
Title for Figure |
breaks |
breaks for the histogram, default=length(ggrades)/3 |
... |
other parameters for hist |
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.
grades=ggrades, lett=letts, scor=scores, divs=divs, LETS=LETS, SCRS=SCRS, hist=HA LIST:
grades |
raw scores |
lett |
letter grades |
scor |
scaled grades |
divs |
divisions, estimated by user or provided as input |
LETS |
letter grades assigned |
SCRS |
Scores related to LETS |
hist |
histogram structure |
Grades are determined linearly within a division
Jonathan M. Lees<jonathan.lees@unc.edu>
jist, DUMPgrades, getlet
do.grades
misc, hplot, iplot
g = rnorm(n=130, m=82, sd=10) g[g>100] = 100 g[g<1] = 1 B = boxplot(g) ########## set divs autometically: 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) DUMPgrades(D1, file="TEST1grades", id=IDS ) ## End(Not run)
R version 2.9.0 (2009-04-17)
Copyright (C) 2009 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
> library(ProfessR)
> png(filename="images/do.grades_%03d.png" ,width=480, height=480)
> ### Name: do.grades
> ### Title: Do Grades
> ### Aliases: do.grades
> ### Keywords: misc hplot iplot
>
> ### ** Examples
>
>
> g = rnorm(n=130, m=82, sd=10)
> g[g>100] = 100
> g[g<1] = 1
>
> B = boxplot(g)
>
> ########## set divs autometically:
>
> 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")
Grade divisions:
53.31732
67.80612
79.08258
86.12454
95.16572
100
Letter Grade Distribution:
1 A+ 10
2 A 4
3 A- 4
4 B+ 7
5 B 8
6 B- 12
7 C+ 13
8 C 9
9 C- 14
10 D+ 22
11 D 8
12 D- 10
13 F 9
[1] "Mean Score= 74.9143831958352"
>
> ## Not run:
> ##D
> ##D #### this is interactive
> ##D D1 = do.grades(g, tit="GEOL 105 Exam 1")
> ##D
> ##D ####### list the grades:
> ##D cbind(D1$grades, D1$lett, D1$scor)
> ##D
> ##D ####### if you have names or ID's try:
> ##D ####### cbind(IDs, D1$grades, D1$lett, D1$scor)
> ##D DUMPgrades(D1, file="TEST1grades", id=IDS )
> ##D
> ## End(Not run)
>
>
>
>
>
>
> dev.off()
null device
1
>
