R/atrib_vf866.R

In danielmedbar/KWSTCReclassifRef: Reclassificar referencias de individuos que no existen en ISEC

#' Atributos de la referencia
#'
#' Esta función obtiene los atributos (substrings) de un vector con referencias del VF 866.
#' @param data Los datos donde se encuentran los vectores de Referencias.
#' @param col_referencia Nombre de la columna en la cual se encuentran las referencias.
#' @param atrib c('e1','e2','e3','e4','e5','e6')
#' @keywords cats
#' @export
#' @examples
#' atrib_vf866(data=choice_complete, col_referencia='cati_ref','e2')
#' atrib_vf866(data=choice_complete, col_referencia='isec_ref','e2')

atrib_vf866 <- function(data = choice_complete, col_referencia = c('cati_ref'), atrib = 'e1'){
  if (atrib=='e1'){res <- substr(data[,col_referencia],start = 4, stop = 6)}
  if (atrib=='e2'){res <- substr(data[,col_referencia],start = 7, stop = 9)}
  if (atrib=='e3'){res <- substr(data[,col_referencia],start = 10, stop = 11)}
  if (atrib=='e4'){res <- substr(data[,col_referencia],start = 12, stop = 13)}
  if (atrib=='e5'){res <- substr(data[,col_referencia],start = 14, stop = 15)}
  if (atrib=='e6'){res <- substr(data[,col_referencia],start = 16, stop = 17)}
  return(res)
}