# \donttest{
# Not run:
path <- system.file('extdata/frames', package='BioTrajectory')
images <- list.files(path, full.names = TRUE)
B <- list(c1 = structure(list(x = 342L, y = 263L), row.names = 1L, class = "data.frame"),
boardRadius = 207, c2 = structure(list(x = c(157L, 172L, 202L, 245L,
297L, 352L, 408L, 455L, 494L, 517L, 522L, 507L, 476L, 430L,
375L, 318L, 262L, 215L, 180L, 160L), y = c(242L, 188L, 141L,
105L, 85L, 80L, 93L, 124L, 166L, 219L, 277L, 334L, 383L,
420L, 440L, 442L, 426L, 394L, 350L, 298L), class = "data.frame")), holeRadius = 13)
trajectory <- getTrajectory(images, B, 1, 1, 2)
print(trajectory)
# }
Run the code above in your browser using DataLab