In JayeNewman/flightmill: Modifies Raw Insect Flight Mill Data

Introduction

Insect flight mills can measure the flight characteristics of insects.

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(flightmill)
install.packages("librarian") 
librarian::shelf(janitor, fs, utils, broom, dplyr, stringr, purrr, lubridate, rlang, tidyr, readr, ggplot2)


file_dir <- ("/example_flightmill_raw_data/20211229")
flightmill <- c("FLIGHTMILL1.csv", "FLIGHTMILL2.csv", "FLIGHTMILL3.csv", "FLIGHTMILL4.csv",
             "FLIGHTMILL5.csv", "FLIGHTMILL6.csv", "FLIGHTMILL7.csv", "FLIGHTMILL8.csv")

id <- c("id1", "id2", "id3", "id4",
         "id5", "id6", "id7", "id8")

data <- fm_input(file_dir, "FLIGHTMILL2.csv", "Bactrocera_tryoni")

head(data)

flight <- fm_params(data, flightmill, elapsed_sec, counter, 9, 15, 0.05, 3600)