VKSgraphic {CVD} | R Documentation |
VKSgraphic
computes a graphical score based on
the Vingrys and King-Smith method (VKS) for the D-15 test or similar tests.
VKSvariantGraphic
shows the angles with double their value,
for a continuous display of the confusion axis.
VKSgraphic(VKSdata, xLimit=5, yLimit=4, VKStitle='', VKSxlabel='', VKSylabel='')
VKSdata |
data.frame with color vision deficiency name, VKS angle and VKS index |
xLimit |
X-axis boundaries |
yLimit |
Y-axis boundaries |
VKStitle |
title for the plot |
VKSxlabel |
text for the x label |
VKSylabel |
text for the y label |
none
Jose Gama
VKSvariantGraphic - original idea by David Bimler Atchison DA, Bowman KJ, Vingrys AJ Quantitave scoring methods for D15 panel tests in the diagnosis of congenital colour-vision deficiencies. Optometry and Vision Science 1991, 68:41-48.
Atchison DA, Bowman KJ, Vingrys AJ Quantitave scoring methods for D15 panel tests in the diagnosis of congenital colour-vision deficiencies. Optometry and Vision Science 1991, 68:41-48.
# Creating similar graphics to "A Quantitative Scoring Technique For Panel #Tests of Color Vision" Algis J. Vingrys and P. Ewen King-Smith ## Not run: VKSdata<-VKStable2[,c(1,3:5)] VKSdata[1,1]<-'Normal no error' VKSdata[2:9,1]<-'Normal' VKSdata[10:13,1]<-'Acquired CVD' # the graphics are similar but not identical because the data used in the #plots is the average of the values instead of all the values VKSgraphic(VKSdata[,1:3],5,4,'D-15 angle vs C-index (Average)','Angle', 'C-index') # Fig. 6 VKSgraphic(VKSdata[,c(1,2,4)],5,4,'D-15 angle vs S-index (Average)','Angle', 'S-index') # Fig. 7 ## End(Not run)