inst/extdata/test_retinas/8pm223/main.r

In yinscapital/retina-analysis-reference: Tools for plotting and analyzing vertebrate retinas.

main_8pm223 <- function(path_to_diagram_retina){

LAMBDA_var <- 0.001 #Thin plate spline smoothing. Lambda=0 would be interpolation.
RESOLUTION_var <- 500 #Plot width in pixels

IJ <-data.frame(maxX = 981,
                maxY = -38,
                minX = 31,
                minY = -989,
                deltaX = 56,
                deltaY = 56)

my_retina <- retina_object(
  path = path_to_diagram_retina,

  #Eye Measurements from dissection
  ED = 4.8,    #Eye diameter (mm)
  AL = 3.43,   #Eye axial length (mm)
  LD = 1.8,    #Eye lens diameter (mm)

  #Stereology Parameters
  height = 25 ,# height of the counting frame in microns
  width  = 25, # width of the counting frame in microns

  #Plotting Parameters
  lambda = LAMBDA_var,          #see fields::Tps for more information
  extrapolate = TRUE ,          #Predicts densities to the equator.
  spatial_res = RESOLUTION_var,
  rotation_ccw = -90, # when set to -90 degrees, the rotation is unaltered from the measured orientation.
  plot_suppress=TRUE,
  #ImageJ Datapoint Calibration Measurements
  IJcoords = IJ)

retinaplot(my_retina)
}