generar_cadena_aleatoria <- function(n) {
# Validar que el parámetro n sea un número positivo
if (!is.numeric(n) || n <= 0 || n != floor(n)) {
stop(“Por favor ingrese un número entero positivo.”)
}
# Generar un número aleatorio de n dígitos
digitos <- sample(0:9, n, replace = TRUE)
# Combinar los dígitos en una cadena
cadena_aleatoria <- paste(digitos, collapse = “”)
return(cadena_aleatoria)
}
# Ejemplo de uso
n <- 3
cadena <- generar_cadena_aleatoria(n)
print(cadena)