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