Constructs a multiple response object (MRO) subset by another explanatory variable.
Examples
mr <- iNZightMR(online ~ onlinegame + onlinevideo + onlinemusic,
data = census.at.school.5000
)
byMRO(mr, ~gender, mroPara)
#> gender: female
#> $Topic
#> [1] "online"
#>
#> $Variance
#> onlinegame onlinevideo onlinemusic
#> 8.626724e-05 8.461927e-05 8.511276e-05
#>
#> $Cov
#> onlinegame onlinevideo onlinemusic
#> onlinegame 8.626724e-05 1.365487e-05 9.143604e-06
#> onlinevideo 1.365487e-05 8.461927e-05 4.125223e-05
#> onlinemusic 9.143604e-06 4.125223e-05 8.511276e-05
#>
#> $Mromoecalc
#> Est ErrBar compL compU
#> onlinegame 0.5415075 0.014712977 0.5267945 0.5562204
#> onlinevideo 0.5804099 0.008768354 0.5716415 0.5891782
#> onlinemusic 0.5710316 0.009534022 0.5614976 0.5805656
#>
#> $Multicom
#> Estimate Lower Upper p-value (unadj.)
#> onlinegame - onlinevideo -0.0389024 -0.0623837 -0.0154 0.0005894 ***
#> onlinegame - onlinemusic -0.0295241 -0.0537711 -0.0053 0.0085351 **
#> onlinevideo - onlinemusic 0.0093783 -0.0089241 0.0277 0.1576552
#> ---
#> Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
#>
#> attr(,"class")
#> [1] "mrocalc"
#> ------------------------------------------------------------
#> gender: male
#> $Topic
#> [1] "online"
#>
#> $Variance
#> onlinegame onlinevideo onlinemusic
#> 0.0001036220 0.0001162246 0.0001186336
#>
#> $Cov
#> onlinegame onlinevideo onlinemusic
#> onlinegame 1.036220e-04 2.910026e-05 2.329027e-05
#> onlinevideo 2.910026e-05 1.162246e-04 6.080565e-05
#> onlinemusic 2.329027e-05 6.080565e-05 1.186336e-04
#>
#> $Mromoecalc
#> Est ErrBar compL compU
#> onlinegame 0.6785375 0.015016410 0.6635211 0.6935539
#> onlinevideo 0.5731244 0.009897138 0.5632273 0.5830215
#> onlinemusic 0.4833808 0.010955749 0.4724251 0.4943366
#>
#> $Multicom
#> Estimate Lower Upper p-value (unadj.)
#> onlinegame - onlinevideo 0.105413 0.080500 0.1303 < 2.2e-16 ***
#> onlinegame - onlinemusic 0.195157 0.169185 0.2211 < 2.2e-16 ***
#> onlinevideo - onlinemusic 0.089744 0.068891 0.1106 < 2.2e-16 ***
#> ---
#> Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
#>
#> attr(,"class")
#> [1] "mrocalc"
byMRO(mr, ~ gender + handed, mroPara)
#> gender: female
#> handed:
#> $Topic
#> [1] "online"
#>
#> $Variance
#> onlinegame onlinevideo onlinemusic
#> 0.01666667 0.01562500 0.01666667
#>
#> $Cov
#> onlinegame onlinevideo onlinemusic
#> onlinegame 0.016666667 0.004166667 0.004166667
#> onlinevideo 0.004166667 0.015625000 0.008333333
#> onlinemusic 0.004166667 0.008333333 0.016666667
#>
#> $Mromoecalc
#> Est ErrBar compL compU
#> onlinegame 0.500 0.1782935 0.3217065 0.6782935
#> onlinevideo 0.625 0.1154512 0.5095488 0.7404512
#> onlinemusic 0.500 0.1217690 0.3782310 0.6217690
#>
#> $Multicom
#> Estimate Lower Upper p-value (unadj.)
#> onlinegame - onlinevideo -0.12500 -0.41874 0.1687 0.2083
#> onlinegame - onlinemusic 0.00000 -0.30006 0.3001 0.5000
#> onlinevideo - onlinemusic 0.12500 -0.11222 0.3622 0.1585
#>
#> attr(,"class")
#> [1] "mrocalc"
#> ------------------------------------------------------------
#> gender: male
#> handed:
#> $Topic
#> [1] "online"
#>
#> $Variance
#> onlinegame onlinevideo onlinemusic
#> 0.01487603 0.01487603 0.01983471
#>
#> $Cov
#> onlinegame onlinevideo onlinemusic
#> onlinegame 0.014876033 -0.003305785 0.004132231
#> onlinevideo -0.003305785 0.014876033 0.013223140
#> onlinemusic 0.004132231 0.013223140 0.019834711
#>
#> $Mromoecalc
#> Est ErrBar compL compU
#> onlinegame 0.8181818 0.2451909 0.5729909 1.0633728
#> onlinevideo 0.8181818 0.1111727 0.7070091 0.9293545
#> onlinemusic 0.7272727 0.0587170 0.6685557 0.7859897
#>
#> $Multicom
#> Estimate Lower Upper p-value (unadj.)
#> onlinegame - onlinevideo 0.000000 -0.356364 0.3564 0.5000
#> onlinegame - onlinemusic 0.090909 -0.212999 0.3948 0.2848
#> onlinevideo - onlinemusic 0.090909 -0.078981 0.2608 0.1584
#>
#> attr(,"class")
#> [1] "mrocalc"
#> ------------------------------------------------------------
#> gender: female
#> handed: ambi
#> $Topic
#> [1] "online"
#>
#> $Variance
#> onlinegame onlinevideo onlinemusic
#> 0.001923970 0.001941183 0.001886212
#>
#> $Cov
#> onlinegame onlinevideo onlinemusic
#> onlinegame 0.0019239696 0.000137704 0.0003481469
#> onlinevideo 0.0001377040 0.001941183 0.0012049103
#> onlinemusic 0.0003481469 0.001204910 0.0018862121
#>
#> $Mromoecalc
#> Est ErrBar compL compU
#> onlinegame 0.6311475 0.07619050 0.5549570 0.7073380
#> onlinevideo 0.6229508 0.04075960 0.5821912 0.6637104
#> onlinemusic 0.6475410 0.03273268 0.6148083 0.6802737
#>
#> $Multicom
#> Estimate Lower Upper p-value (unadj.)
#> onlinegame - onlinevideo 0.0081967 -0.1087534 0.1251 0.4455
#> onlinegame - onlinemusic -0.0163934 -0.1253166 0.0925 0.3843
#> onlinevideo - onlinemusic -0.0245902 -0.0980824 0.0489 0.2566
#>
#> attr(,"class")
#> [1] "mrocalc"
#> ------------------------------------------------------------
#> gender: male
#> handed: ambi
#> $Topic
#> [1] "online"
#>
#> $Variance
#> onlinegame onlinevideo onlinemusic
#> 0.001459775 0.001715191 0.001880358
#>
#> $Cov
#> onlinegame onlinevideo onlinemusic
#> onlinegame 0.0014597747 0.0003128089 0.0002926559
#> onlinevideo 0.0003128089 0.0017151915 0.0010540870
#> onlinemusic 0.0002926559 0.0010540870 0.0018803581
#>
#> $Mromoecalc
#> Est ErrBar compL compU
#> onlinegame 0.7424242 0.06288318 0.6795411 0.8053074
#> onlinevideo 0.6590909 0.03570375 0.6233872 0.6947947
#> onlinemusic 0.5606061 0.03959973 0.5210063 0.6002058
#>
#> $Multicom
#> Estimate Lower Upper p-value (unadj.)
#> onlinegame - onlinevideo 0.083333 -0.015254 0.1819 0.0499731 *
#> onlinegame - onlinemusic 0.181818 0.079335 0.2843 0.0003431 ***
#> onlinevideo - onlinemusic 0.098485 0.023181 0.1738 0.0057435 **
#> ---
#> Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
#>
#> attr(,"class")
#> [1] "mrocalc"
#> ------------------------------------------------------------
#> gender: female
#> handed: left
#> $Topic
#> [1] "online"
#>
#> $Variance
#> onlinegame onlinevideo onlinemusic
#> 0.0008020063 0.0008305284 0.0008287799
#>
#> $Cov
#> onlinegame onlinevideo onlinemusic
#> onlinegame 8.020063e-04 0.0001749938 4.786466e-05
#> onlinevideo 1.749938e-04 0.0008305284 3.682738e-04
#> onlinemusic 4.786466e-05 0.0003682738 8.287799e-04
#>
#> $Mromoecalc
#> Est ErrBar compL compU
#> onlinegame 0.5927152 0.04365073 0.5490645 0.6363660
#> onlinevideo 0.5033113 0.02642578 0.4768855 0.5297370
#> onlinemusic 0.5231788 0.03301443 0.4901644 0.5561932
#>
#> $Multicom
#> Estimate Lower Upper p-value (unadj.)
#> onlinegame - onlinevideo 0.0894040 0.0193275 0.1595 0.006464 **
#> onlinegame - onlinemusic 0.0695364 -0.0071287 0.1462 0.038226 *
#> onlinevideo - onlinemusic -0.0198675 -0.0793078 0.0396 0.256445
#> ---
#> Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
#>
#> attr(,"class")
#> [1] "mrocalc"
#> ------------------------------------------------------------
#> gender: male
#> handed: left
#> $Topic
#> [1] "online"
#>
#> $Variance
#> onlinegame onlinevideo onlinemusic
#> 0.0008729189 0.0010321792 0.0010321792
#>
#> $Cov
#> onlinegame onlinevideo onlinemusic
#> onlinegame 0.0008729189 0.0002495796 0.0002518035
#> onlinevideo 0.0002495796 0.0010321792 0.0005411265
#> onlinemusic 0.0002518035 0.0005411265 0.0010321792
#>
#> $Mromoecalc
#> Est ErrBar compL compU
#> onlinegame 0.7012448 0.04263318 0.6586116 0.7438780
#> onlinevideo 0.5477178 0.03070606 0.5170118 0.5784239
#> onlinemusic 0.4522822 0.03058996 0.4216922 0.4828721
#>
#> $Multicom
#> Estimate Lower Upper p-value (unadj.)
#> onlinegame - onlinevideo 0.153527 0.080188 0.2269 2.791e-05 ***
#> onlinegame - onlinemusic 0.248963 0.175740 0.3222 8.978e-11 ***
#> onlinevideo - onlinemusic 0.095436 0.034140 0.1567 0.001265 **
#> ---
#> Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
#>
#> attr(,"class")
#> [1] "mrocalc"
#> ------------------------------------------------------------
#> gender: female
#> handed: right
#> $Topic
#> [1] "online"
#>
#> $Variance
#> onlinegame onlinevideo onlinemusic
#> 1.021500e-04 9.940011e-05 1.003214e-04
#>
#> $Cov
#> onlinegame onlinevideo onlinemusic
#> onlinegame 1.021500e-04 1.600009e-05 1.096375e-05
#> onlinevideo 1.600009e-05 9.940011e-05 4.827173e-05
#> onlinemusic 1.096375e-05 4.827173e-05 1.003214e-04
#>
#> $Mromoecalc
#> Est ErrBar compL compU
#> onlinegame 0.5309553 0.015970861 0.5149844 0.5469262
#> onlinevideo 0.5875359 0.009545332 0.5779905 0.5970812
#> onlinemusic 0.5735957 0.010359604 0.5632361 0.5839553
#>
#> $Multicom
#> Estimate Lower Upper p-value (unadj.)
#> onlinegame - onlinevideo -0.0565806 -0.0820968 -0.0311 7.21e-06 ***
#> onlinegame - onlinemusic -0.0426404 -0.0689709 -0.0163 0.0007609 ***
#> onlinevideo - onlinemusic 0.0139401 -0.0059648 0.0338 0.0849924 .
#> ---
#> Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
#>
#> attr(,"class")
#> [1] "mrocalc"
#> ------------------------------------------------------------
#> gender: male
#> handed: right
#> $Topic
#> [1] "online"
#>
#> $Variance
#> onlinegame onlinevideo onlinemusic
#> 0.0001285566 0.0001425359 0.0001450379
#>
#> $Cov
#> onlinegame onlinevideo onlinemusic
#> onlinegame 1.285566e-04 3.660821e-05 2.775896e-05
#> onlinevideo 3.660821e-05 1.425359e-04 7.316528e-05
#> onlinemusic 2.775896e-05 7.316528e-05 1.450379e-04
#>
#> $Mromoecalc
#> Est ErrBar compL compU
#> onlinegame 0.6695703 0.01660586 0.6529644 0.6861761
#> onlinevideo 0.5685250 0.01095715 0.5575678 0.5794821
#> onlinemusic 0.4802555 0.01232987 0.4679257 0.4925854
#>
#> $Multicom
#> Estimate Lower Upper p-value (unadj.)
#> onlinegame - onlinevideo 0.101045 0.073482 0.1286 4.972e-13 ***
#> onlinegame - onlinemusic 0.189315 0.160379 0.2183 < 2.2e-16 ***
#> onlinevideo - onlinemusic 0.088269 0.064982 0.1116 8.545e-14 ***
#> ---
#> Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
#>
#> attr(,"class")
#> [1] "mrocalc"