Update simple_sampling.R

#bugfix: sprawdzałem zmienne które nie miały prawa istniec