On Nov 7, 2011, at 8:06 AM, qqh5011 wrote:
##Package Needed
library(fields)
## Assumptions
set.seed(123)
nsim<-5
p<-2
##Generate Random Matrix G
G <- matrix(runif(p*nsim),nsim,p)
##Set Empty Matraces dmax and dmin
dmax<- matrix(data=NA,nrow=nsim,ncol=p)
dmin<- matrix(data=NA,nrow
##Package Needed
library(fields)
## Assumptions
set.seed(123)
nsim<-5
p<-2
##Generate Random Matrix G
G <- matrix(runif(p*nsim),nsim,p)
##Set Empty Matraces dmax and dmin
dmax<- matrix(data=NA,nrow=nsim,ncol=p)
dmin<- matrix(data=NA,nrow=nsim,ncol=p)
## Loop to Fill dmax and dmin
fo
2 matches
Mail list logo