R/fct_initialize_df.R

In ratral/gpvapp: Curves calculation for plunger valves

#' Title
#'
#' @param n number of observations data
#'
#' @return a tibble with n lines and 0 values
#' @export
#'
#'@import dplyr tibble
#'
#' @examples
#' initialize_df(6)
#'

initialize_df <- function(n) {
  tibble::tibble(p1 = numeric(0), p2 = numeric(0), flow = numeric(0)) %>%
    add_row(p1 = rep(0,n), p2 = rep(0,n), flow = rep(0,n))
}