generarCadenaAleatoria <- function(n) {
# Generar un número aleatorio entre 0 y (10^n – 1)
numero_aleatorio <- sample(0:(10^n – 1), 1)
# Convertir el número a cadena con n dígitos, rellenando con ceros si es necesario
cadena_aleatoria <- sprintf(paste0(“%0”, n, “d”), numero_aleatorio)
return(cadena_aleatoria)
}
# Ejemplo de uso:
n <- 3
cadena <- generarCadenaAleatoria(n)
print(cadena)