编辑:现在可以使用 sclero 包执行此操作。该软件包当前可在GitHub上获取,教程中详细描述了该过程。只是为了说明,我使用教程中的一个示例:
library(devtools)
install_github("MikkoVihtakari/sclero", dependencies = TRUE)
library(sclero)
path <- file.path(system.file("extdata", package = "sclero"), "shellspots.zip")
dat <- read.ijdata(path, scale = 0.7812, unit = "um")
shell <- convert.ijdata(dat)
aligned <- spot.dist(shell)
plot(aligned)
Run Code Online (Sandbox Code Playgroud)

还可以使用 sclero 包提供的功能添加样本点尺寸。请参阅教程中的第 2.5 节。