R/WoodyTrunk_Function.R

In ksauby/GTMNERRproc: Data processing functions for GTMNERR data.

#' Standardize "WoodyTrunk" values.
#'
#' @param x Vector of data.
#' @description Standardize "WoodyTrunk" values.
#'
#' @export

WoodyTrunk_Function <- function(x){	
	x[
		x == "woody trunk" | 
		x == "woody tunk" | 
		x == "Woody Trunk"
	] <- "WoodyTrunk"
	return(x)
}