vars <- c("control", "treat", "instr", "e")
Correlations <- matrix(cbind(1, 0.001, 0.001, 0.001,
0.001, 1, 0.85, -0.5,
0.001, 0.85, 1, 0.001,
0.001, -0.5, 0.001, 1),nrow=4)
rownames(Correlations) <- colnames(Correlations) <- vars
cor2data(Correlations, 1000, 8675309)
Run the code above in your browser using DataLab