jsaraviadrago · August 6, 2019 19:03
diff --git a/Fx_lista_duplicados.R b/Fx_lista_duplicados.R
 #### Función para generar lista de duplicados ####

 lisdup <- function(x,y) {
  # Generar un listado de los duplicados
  n_occur <- data.frame(table(x$y))
  n_occur[n_occur$Freq > 1,]
  x[x$y %in% n_occur$Var1[n_occur$Freq > 1],]
  
 }
	#### Función para generar lista de duplicados ####

	lisdup <- function(x,y) {
	# Generar un listado de los duplicados
	n_occur <- data.frame(table(x$y))
	n_occur[n_occur$Freq > 1,]
	x[x$y %in% n_occur$Var1[n_occur$Freq > 1],]

	}