main_40oik5 <- 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 = 944,
maxY = -32,
minX = 41,
minY = -992,
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 = 0, # 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, rotation=115, col_breaks_source = c(0, 35000))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.