d <- sample(iris[,1], size = 20, replace = FALSE)
plot(ecdf(d))

plot(ecdf(iris[,1]))

Glievenko - Cantelli Theoreom

print("fiend")
[1] "fiend"
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KYGBge3J9DQoNCmQgPC0gc2FtcGxlKGlyaXNbLDFdLCBzaXplID0gMjAsIHJlcGxhY2UgPSBGQUxTRSkNCnBsb3QoZWNkZihkKSkNCnBsb3QoZWNkZihpcmlzWywxXSkpDQpgYGANCg0KDQpHbGlldmVua28gLSBDYW50ZWxsaSBUaGVvcmVvbQ0KDQpgYGB7cn0NCnByaW50KCJmaWVuZCIpDQpgYGANCg0K