R/select_X.R

In econet: Estimation of Parameter-Dependent Network Centrality Measures

#' Select the names of control variables in model specification
#'
#' @param specification Model specification
#' @return Vector of strings indicating variable names.
#' @keywords internal
#' @noRd
select_X <- function(specification){
  X <- as.character(specification[[3]])
  X <- as.character(X[[3]])
  X <- gsub("\n", "", X)
  X <- gsub(" ", "", X)
  X <- strsplit(X, "\\+")
  X <- as.character(sapply(X[[1]], function(x) strsplit(x, "\\*")[[1]])[2, ])
  X <- sub("\\)", "", X)
  return(X)
}