resultAnalytics {biopixR}

Result Calculation and Summary

Description

This function summarizes the data obtained by previous functions: objectDetection, proximityFilter or sizeFilter. Extracts information like amount, intensity, size and density of the objects present in the image.

Usage

resultAnalytics(img, coordinates, unfiltered = NULL)

Arguments

img

image (import by importImage)

coordinates

all filtered coordinates of the objects (x|y|value data frame)

unfiltered

all coordinates from every object before applying filter functions

Details

The resultAnalytics function provides comprehensive summary of objects detected in an image:

1. Summary

   • Generates a summary of all detected objects, including the total number of objects, their mean size, size standard deviation, mean intensity, intensity standard deviation, estimated rejected objects, and coverage.

2. Detailed Object Information

   • Provides detailed information for each object, including size, mean intensity, intensity standard deviation, and coordinates.

Value

list of 2 objects:

• summary: A summary of all the objects in the image.

• detailed: Detailed information about every single object.

See Also

objectDetection(), sizeFilter(), proximityFilter()

Examples

res_objectDetection <- objectDetection(beads,
                                       alpha = 1,
                                       sigma = 0)
res_sizeFilter <- sizeFilter(
  res_objectDetection$centers,
  res_objectDetection$coordinates,
  lowerlimit = 50, upperlimit = 150
  )
res_proximityFilter <- proximityFilter(
  res_sizeFilter$centers,
  res_objectDetection$coordinates,
  radius = "auto"
  )
res_resultAnalytics <- resultAnalytics(
  coordinates = res_proximityFilter$coordinates,
  unfiltered = res_objectDetection$coordinates,
  img = beads
  )
print(res_resultAnalytics$summary)
plot(beads)
with(
  res_objectDetection$centers,
  points(
    res_objectDetection$centers$mx,
    res_objectDetection$centers$my,
    col = "red",
    pch = 19
    )
  )
with(
  res_resultAnalytics$detailed,
  points(
    res_resultAnalytics$detailed$x,
    res_resultAnalytics$detailed$y,
    col = "darkgreen",
    pch = 19
    )
  )