I am trying to make "self-referencing" grids using the R programming language. For instance, I made the following (non self-referencing) grid:
var_1 <- rnorm(1000,8,5)
var_2 <- rnorm(1000,8,5)
var_3 <- rnorm(1000,8,5)
var_4 <- rnorm(1000,8,5)
var_5 <- rnorm(1000,8,5)
var_6 <- rnorm(1000,8,5)
var_7 <- rnorm(1000,8,5)
frame_a <- data.frame(var_1, var_2, var_3, var_4, var_5, var_6, var_7)
This works:
head(frame_a)
var_1 var_2 var_3 var_4 var_5 var_6 var_7
1 11.106978 6.045635 12.059918 14.576642 6.6631061 2.4308557 4.210330
2 5.356593 9.066030 15.324603 4.170090 7.9821328 0.7412383 8.561553
3 16.971664 5.172987 6.501061 2.827789 0.5317087 6.2078346 9.151058
4 1.903000 7.183025 11.524599 12.188365 9.2445369 9.5063593 3.741548
5 11.744789 10.077375 4.740652 3.738349 6.1231457 5.3983903 -4.863340
6 14.151094 8.234436 8.203216 14.722724 9.6634154 -0.7918751 14.080428
Now, I am trying to make a "self referencing grid" - i.e. a grid with certain conditions. For each row within this grid:
- var_2 must always be greater than var_1
- var_4 must always be greater than var_3
- var_6 must always be greater than var_5
- var_7 must always be greater than var_6
This was my attempt to make such a grid
var_1 <- rnorm(1000,8,5)
var_2 <- rnorm(1000,var_1,5)
var_3 <- rnorm(1000,8,5)
var_4 <- rnorm(1000,var_3,5)
var_5 <- rnorm(1000,6,5)
var_6 <- rnorm(1000,var_5,5)
var_7 <- rnorm(1000,var_6,5)
frame_b <- data.frame(var_1, var_2, var_3, var_4, var_5, var_6, var_7)
This code worked, but the "conditions" were not respected:
> head(frame_b)
var_1 var_2 var_3 var_4 var_5 var_6 var_7
1 5.9667356 1.518180 9.316051 3.192931 -1.358661 -0.05681164 -5.3893074
2 8.4478170 11.902876 9.588589 -1.220872 6.091870 9.81611979 4.9043055
3 13.6396693 8.554241 9.017625 10.840609 -4.548760 0.22775771 -5.8313070
4 13.4776003 19.735430 4.674371 2.144886 4.933787 -3.13381274 -0.5747767
5 6.3300270 -1.968539 4.413483 5.490492 4.866916 3.72772243 10.1688481
6 0.3662306 -1.633712 6.142054 7.236065 12.506673 10.17450918 7.7536291
For instance, in the first row: var_2 is not greater than var_1.
Can someone please show me how to fix this error?
Thanks