data("sample_data")
reformat_data <- reformat_marker_data(head(sample_data))
# Using the average centroid (default)
adjusted_data_avg <- adj_position(reformat_data, distance = 1, centroid = "average")
head(adjusted_data_avg)
# Using the convex hull centroid
adjusted_data_ch <- adj_position(reformat_data, distance = 1, centroid = "convex hull")
Run the code above in your browser using DataLab