Displaying 1 result from an estimated 1 matches for "a9555750".
2007 Apr 05
1
Generate a serie of new vars that correlate with existingvar
...apsmall(cor(newx))
all.equal( x1234[,1], newx[,1] )
# create new correlation structure
newc<-diag(ndistr+1)
newc[1,-1]<- coefs
newc[-1,1]<- coefs
chol2 <- chol(newc)
finalx <- newx %*% chol2 * sd(x1) + mean(x1)
pairs(finalx)
CorelSets<-finalx
}
> Message-ID: <000c01c77642$a9555750$0fe05e81 at D145LD1S>
> Content-Type: text/plain; charset="us-ascii"
>
> Dear Greg,
> Thanks million!
> "As good as it gets" :)
> All the best
> Nguyen
>
> -----Original Message-----
> From: Greg Snow [mailto:Greg.Snow at intermountainmail.org]...