library(datos)
set.seed(2634) 
datos.c = data.frame(datos_credito)
muestra2 = datos.c[sample(nrow(datos.c),size=100),0:14]