#just one
x = sample(1:10000,100,replace=TRUE)
y= x*sample(1:250,1)
plot(data.frame(x,y))
#many
output <- data.frame(x=NULL,y=NULL)
for(i in seq(250)){
x = sample(1:10000,100,replace=TRUE)
y= x*sample(1:250,1)
output <- rbind(output,data.frame(x,y) )
}
plot(output)