Description Details Author(s) References See Also Examples
This helps a trained person identify features on a photograph
The DESCRIPTION file:
This package was not yet installed at build time.
Index: This package was not yet installed at build time.
~~ An overview of how to use the package, including the most important ~~
~~ functions ~~
Paul Hewson
Maintainer: Paul Hewson <paul.hewson@plymouth.ac.uk>
~~ Literature or other references for background information ~~
~~ Optional links to other man pages, e.g. ~~
~~ <pkg>
~~
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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 | ## Not run:
##
require(jpeg)
ThreeAngles <- rep(0,3)
names(ThreeAngles) <- c("Limbus", "Pupil", "Lens")
plotit <- readJPEG(file.choose())
par(mar = c(0,0,0,0))
plot(1:2, type='n')
rasterImage(plotit,1,1,2,2)
upper <- plotcurve()
lower <- plotcurve()
v <- as.numeric(readline("What is the length of the vertical bar \t \n"))
verticald <- vertical(v)
#h <- as.numeric(readline("What is the length of the horizontal bar \t"))
horizontald <- horizontal(h)
limbus <- alignment("L")
ThreeAngles[1] <- plotbaseline(limbus, "Limbus")
pupil <- alignment("P")
ThreeAngles[2] <- plotbaseline(pupil, "Pupil")
MidLens <- plotlens(upper$model, lower$model)
ThreeAngles[3] <- MidLens$angle
## Midpoints
MiddleOfEye <- rep(0,3)
names(MiddleOfEye) <- c("Arrow", "L", "P")
MiddleOfEye[1] <- MidLens$mid
MiddleOfEye[2] <- limbus$mid
MiddleOfEye[3] <- pupil$mid
DecentrationRUnits <- MiddleOfEye - verticald$mid[1]
Decentration.mm <- DecentrationRUnits * (horizontald$runits/1000)
DecentrationRUnits
Decentration.mm
text(c(1.1,1.3,1.5),1.15,c("Limbus", "Pupil", "Lens"), col = "red")
text(c(1.1,1.3,1.5),1.1,paste(ThreeAngles), col = "red")
dev.copy2pdf(file ="datainput.pdf")
##
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.