How to draw the graph???

plot(y,x, ylab="sample mean",xlab="sample size") 

for (i in seq(1:20))

{rsidpVector= rsidp(1)
x<-mean(rsidpVector)
y<-length(number) 
print (rsidpVector)
print(x) 

sorry, but how i can use points function in the loop?

Tested code provided in response to reproducible examples. The points function will not redraw a new plot with each iteration. It might be the case that you do not even need a loop, but you have not described the problem yet.

David Winsemius, MD
Alameda, CA, USA