Rotated the simulated component generated
Examples
component = svd(matrix(rnorm(100 * 200), nrow = 200))$u[, 1 : 2]
rotate_component(component, pi / 6)
#> [,1] [,2]
#> [1,] 0.047432343 -0.025425109
#> [2,] -0.011600699 -0.041310311
#> [3,] -0.014361540 0.026799500
#> [4,] -0.004303314 -0.013313191
#> [5,] -0.037017830 -0.050882236
#> [6,] -0.087753273 -0.059092114
#> [7,] 0.025049778 -0.016663712
#> [8,] -0.036877292 -0.094841824
#> [9,] -0.033254707 -0.022274026
#> [10,] 0.005472373 0.037265197
#> [11,] -0.124212790 0.044122288
#> [12,] -0.050963445 -0.092295486
#> [13,] -0.005262041 0.031626600
#> [14,] -0.045315932 0.026858448
#> [15,] -0.098207381 0.022952388
#> [16,] 0.032347153 -0.080749155
#> [17,] 0.065698323 0.019162888
#> [18,] 0.012281398 0.069472914
#> [19,] -0.054186067 -0.135508319
#> [20,] -0.017039749 0.022182116
#> [21,] -0.044165842 0.127653708
#> [22,] 0.015843872 0.139793193
#> [23,] -0.032821493 -0.050356266
#> [24,] 0.088339919 -0.014824607
#> [25,] -0.119718747 -0.056058184
#> [26,] -0.043950158 -0.102698979
#> [27,] -0.167134942 0.012704677
#> [28,] -0.002159459 0.051889882
#> [29,] 0.077582097 0.092707658
#> [30,] 0.054163912 -0.082687143
#> [31,] -0.053678378 -0.076045204
#> [32,] 0.059081905 0.013066186
#> [33,] -0.122114677 0.122459499
#> [34,] 0.086349244 -0.020102074
#> [35,] 0.001140937 -0.024930766
#> [36,] 0.077795571 0.129194857
#> [37,] 0.003153914 0.099861995
#> [38,] 0.040205810 0.049827597
#> [39,] -0.051406066 0.071526095
#> [40,] -0.118666591 -0.052972789
#> [41,] 0.052665008 -0.125960619
#> [42,] -0.034238083 -0.004056164
#> [43,] -0.005120724 0.045613070
#> [44,] -0.099356426 0.023206782
#> [45,] -0.003702304 0.065811438
#> [46,] 0.042824107 0.033217119
#> [47,] 0.062290638 -0.054056459
#> [48,] 0.168063631 -0.033899417
#> [49,] -0.010154053 -0.117158844
#> [50,] 0.098884875 0.076404354
#> [51,] 0.042528820 0.080340521
#> [52,] 0.098405026 -0.048455067
#> [53,] -0.046659565 -0.016927836
#> [54,] -0.162839641 -0.023501105
#> [55,] -0.000908180 -0.086694853
#> [56,] -0.046131883 -0.009851884
#> [57,] 0.098449568 -0.022238135
#> [58,] 0.003842086 0.136055319
#> [59,] 0.032049332 -0.016537555
#> [60,] 0.084703980 -0.040124119
#> [61,] 0.021787395 0.108199067
#> [62,] -0.008627190 -0.065330728
#> [63,] -0.014115822 -0.027004896
#> [64,] -0.020928291 0.006455659
#> [65,] -0.030175909 0.020065234
#> [66,] 0.089428875 0.013154179
#> [67,] 0.025974678 0.040864714
#> [68,] -0.083782745 -0.007068447
#> [69,] 0.074598068 -0.030334776
#> [70,] -0.017098877 -0.073070554
#> [71,] -0.029497483 -0.072614804
#> [72,] 0.062185565 0.026988519
#> [73,] 0.067635561 -0.089495057
#> [74,] 0.081199782 0.116336145
#> [75,] 0.053703190 -0.079949636
#> [76,] -0.188462816 -0.010887047
#> [77,] 0.081552330 -0.161440248
#> [78,] 0.078066565 -0.117451124
#> [79,] 0.084950295 -0.014371900
#> [80,] 0.068167834 0.002423727
#> [81,] 0.051131986 -0.019891507
#> [82,] -0.073804999 0.002706741
#> [83,] 0.016794542 0.063740475
#> [84,] 0.010209192 0.007336640
#> [85,] 0.094489563 0.012926740
#> [86,] -0.032082572 -0.004849554
#> [87,] -0.069035556 0.008056043
#> [88,] 0.047633048 0.022049900
#> [89,] -0.055332278 0.062035045
#> [90,] -0.018656647 0.056972431
#> [91,] -0.187101919 0.133165992
#> [92,] -0.043684973 -0.084860478
#> [93,] 0.098286717 0.010292552
#> [94,] -0.049644375 -0.055354171
#> [95,] 0.052470597 0.147366677
#> [96,] -0.020205601 0.098923606
#> [97,] 0.113607366 0.058519579
#> [98,] 0.091064657 0.104306544
#> [99,] -0.039274859 -0.019966128
#> [100,] -0.034214960 -0.072760003
#> [101,] 0.142698750 -0.084414520
#> [102,] -0.013739748 0.098987854
#> [103,] -0.046233698 0.086742099
#> [104,] -0.022453567 0.034716319
#> [105,] 0.100115608 -0.009414192
#> [106,] -0.001184928 -0.111335284
#> [107,] -0.136888921 0.002725675
#> [108,] 0.030221562 0.062776687
#> [109,] 0.052880625 0.062961485
#> [110,] 0.067693384 0.027248417
#> [111,] 0.052389082 -0.036505739
#> [112,] 0.056201412 0.082275437
#> [113,] 0.126413365 -0.056852706
#> [114,] 0.065424819 -0.024813466
#> [115,] -0.012311155 -0.006454358
#> [116,] -0.010925528 -0.014222030
#> [117,] -0.128981917 0.099647138
#> [118,] -0.020954190 -0.073636385
#> [119,] 0.141701476 -0.079399330
#> [120,] -0.013089177 0.038729311
#> [121,] -0.015709967 -0.152242177
#> [122,] 0.164815098 0.063815145
#> [123,] 0.039593457 -0.024944374
#> [124,] 0.007854613 -0.008670778
#> [125,] 0.036097912 -0.124941363
#> [126,] -0.046192735 -0.024024361
#> [127,] -0.031678594 0.055153949
#> [128,] -0.010947883 0.069829985
#> [129,] -0.172488955 0.031025935
#> [130,] 0.026862811 -0.013679095
#> [131,] -0.059670844 0.041628913
#> [132,] 0.097815562 0.107310840
#> [133,] -0.001711499 -0.063892912
#> [134,] -0.022326163 -0.111575961
#> [135,] 0.015601702 0.004174360
#> [136,] 0.047964816 0.012336653
#> [137,] 0.003859947 -0.083304119
#> [138,] 0.037001809 -0.121954445
#> [139,] -0.030842809 0.061006210
#> [140,] -0.010735688 -0.029986431
#> [141,] -0.048814890 -0.008383541
#> [142,] -0.043912216 0.101061835
#> [143,] 0.076338232 0.050972265
#> [144,] -0.032243816 0.194132571
#> [145,] 0.204702945 0.007059298
#> [146,] -0.010739451 -0.045980194
#> [147,] -0.088633062 0.025483624
#> [148,] -0.083998308 -0.018476431
#> [149,] -0.046703586 0.078811632
#> [150,] 0.020145832 -0.090077194
#> [151,] -0.054907727 0.123350380
#> [152,] 0.075088438 0.060661029
#> [153,] 0.113062402 0.100098528
#> [154,] -0.025992669 -0.060680608
#> [155,] -0.066322776 0.057223888
#> [156,] -0.022074828 0.051388037
#> [157,] -0.031962858 0.062893255
#> [158,] 0.154819751 0.002027670
#> [159,] -0.078369654 0.008073325
#> [160,] 0.025867939 0.001656814
#> [161,] -0.042274521 -0.074007456
#> [162,] 0.048846584 -0.186332476
#> [163,] -0.045653974 -0.025736752
#> [164,] 0.051687599 0.007645834
#> [165,] -0.017111253 0.050233463
#> [166,] 0.120924164 0.124663152
#> [167,] 0.024110473 0.069997428
#> [168,] 0.062522643 0.040690255
#> [169,] -0.084846582 -0.014055357
#> [170,] -0.110022918 -0.088098990
#> [171,] 0.021067184 -0.113567424
#> [172,] 0.039814425 -0.048290842
#> [173,] 0.073822741 0.028135932
#> [174,] -0.044461577 -0.015948762
#> [175,] 0.034085913 0.001325627
#> [176,] 0.068030872 0.106286831
#> [177,] -0.105386069 0.059656034
#> [178,] 0.108615343 0.008130419
#> [179,] -0.015153558 -0.015614881
#> [180,] -0.056732849 0.085188288
#> [181,] -0.011974242 -0.013101488
#> [182,] -0.042497682 -0.039549870
#> [183,] 0.068787588 -0.075183457
#> [184,] -0.108201770 -0.073886849
#> [185,] -0.004195489 0.046173081
#> [186,] 0.098854889 -0.109399362
#> [187,] 0.017498388 -0.038319209
#> [188,] -0.125741026 -0.065093479
#> [189,] -0.050949677 -0.101372232
#> [190,] 0.070493544 0.053581751
#> [191,] 0.036864059 -0.085108150
#> [192,] -0.101156433 -0.042039167
#> [193,] 0.018381092 -0.069315281
#> [194,] -0.020911314 0.049492907
#> [195,] 0.069510809 0.143761322
#> [196,] 0.059535694 -0.040687559
#> [197,] -0.016901394 -0.145365380
#> [198,] -0.073078899 0.018839017
#> [199,] 0.006353391 0.092350592
#> [200,] -0.012753538 0.024486826