Thank you, hadn't noticed that!
For part one i've tried to make these codes, but have i done it too complicated or where i've gone wrong?
proportion <-funktion(v=1,i=0,j=1)[values <-runif(v=V,min=i, max=j)int_values <-round(values),return(int_values)]
proportion= random_integers <-funktion(v,i,j)[values <-runif(v=v,min=i, max=j)int_values <-round(values),return(int_values)]