Hi,
  In the following function, i hope to save my simulated data into the
"result" dataset, but why the final "result" dataset seems not to be
generated.
#Function
simdata<-function (nsim) {
 result<-matrix(NA,nrow=nsim,ncol=2)
 colnames(result)<-c("x","y")
 for (i in 1:nsim) {
 set.seed(i)
 result[i,]<- cbind(runif(1),runif(1))
 }
  return(result)
 }

#simulation
> simdata(10)  #correct result
              x           y
 [1,] 0.2655087 0.372123900
 [2,] 0.1848823 0.702374036
 [3,] 0.1680415 0.807516399
 [4,] 0.5858003 0.008945796
 [5,] 0.2002145 0.685218596
 [6,] 0.6062683 0.937641973
 [7,] 0.9889093 0.397745453
 [8,] 0.4662952 0.207823317
 [9,] 0.2216014 0.024233910
[10,] 0.5074782 0.306768506
  But, the dataset "result" wasnot assigned the above values. What is the
problem?
> result  #wrong result??
       x  y
 [1,] NA NA
 [2,] NA NA
 [3,] NA NA
 [4,] NA NA
 [5,] NA NA
 [6,] NA NA
 [7,] NA NA
 [8,] NA NA
 [9,] NA NA
[10,] NA NA
>
 Thanks a lot.
-- 
-----------------
Jane Chang
Queen's

	[[alternative HTML version deleted]]


