Automatic sport court detection suite of functions
You can install the development version of ovcourt from GitHub with:
## install.packages("remotes") ## if needed
remotes::install_github("openvolley/ovcourt")
This is a basic example which shows you how to solve a common problem:
library(ovcourt)
image_file <- system.file("extdata/2019_03_01-KATS-BEDS-frame.png", package = "ovcourt")
court_df <- ov_detect_court(image_file = image_file, score_distance = "pattern-based",
lambda = 1e3)
ov_detect_court_plot(court_df, index = 1:4, plot.all.endpoints = TRUE)