scoreFM100Graphic {CVD}

Graphical score for the D-15 tests

Description

scoreFM100Graphic computes the graphical score for the FM-100 test or similar. The input is either a vector of RGB colors or cap positions.

Usage

scoreFM100Graphic(userFM100colors=NULL,userFM100values=NULL, titleGraphic=
"Farnsworth Munsell 100-Hue test results", okFM100colors=NULL, Kinnear=FALSE)

Arguments

userFM100colors

RGB colors chosen by tester

userFM100values

position values chosen by tester

titleGraphic

title for the graphic

okFM100colors

vector with RGB colors in the correct sequence

Kinnear

logical, scoring method TRUE = Farnsworth, FALSE = Kinnear

Value

none

Author(s)

Jose Gama

References

Dean Farnsworth, 1943 The Farnsworth Munsell 100-hue dichotomous tests for colour vision Journal of the Optical Society of America, 33 (1943), pp. 568–576

Examples

# an example score
## Not run: 
FM100example<-exampleFM100
userFM100values=cbind(FM100example[1,], FM100example[4,-22],
 FM100example[7,-22], FM100example[10,-22])
userFM100values=as.vector(unlist(userFM100values))
scoreFM100Graphic(userFM100values)

## End(Not run)