Displaying 1 result from an estimated 1 matches for "finalx".
Did you mean:
final
2007 Apr 05
1
Generate a serie of new vars that correlate with existingvar
...pendence
chol1 <- solve(chol(c1))
newx <- x1234 %*% chol1
# check that we have independence and x1 unchanged
zapsmall(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 t...