find_nearest_distance: Nearest neighbor distances for each cell and phenotype.
In PerkinElmer/phenoptr: inForm Helper Functions

Description Usage Arguments Value See Also Examples

For each cell in a single sample, find the distances from the cell to the nearest neighbor cells in each of the provided phenotypes.

1	find_nearest_distance(csd, phenotypes = NULL)

`csd`	A data frame with `Cell X Position`, `Cell Y Position` and `Phenotype` columns, such as the result of calling read_cell_seg_data.
`phenotypes`	Optional list of phenotypes to include. If omitted, `unique(csd$Phenotype)` will be used.

A data_frame containing a Distance to <phenotype> column for each phenotype. Will contain NA values where there is no other cell of the phenotype.

compute_all_nearest_distance which applies this function to a (possibly merged) data file.

Other distance functions: compute_all_nearest_distance, count_touching_cells, count_within_batch, count_within, distance_matrix, spatial_distribution_report, subset_distance_matrix

# Compute distance columns
csd <- sample_cell_seg_data
nearest <- find_nearest_distance(csd)
dplyr::glimpse(nearest)

# Make a combined data frame including original data and distance columns
csd <- cbind(csd, find_nearest_distance(csd))

## Not run: 
# If `merged` is a data frame containing cell seg data from multiple fields,
# this code will create a new `data_frame` with distance columns computed
# for each `Sample Name` in the data.
merged_with_distance <- merged %>%
  dplyr::group_by(`Sample Name`) %>%
  dplyr::do(dplyr::bind_cols(., find_nearest_distance(.)))

## End(Not run)