diff --git a/tests/testthat/_snaps/centralization.md b/tests/testthat/_snaps/centralization.md new file mode 100644 index 0000000000..bfa0c3b7f1 --- /dev/null +++ b/tests/testthat/_snaps/centralization.md @@ -0,0 +1,272 @@ +# centr_eigen_tmax() deprecated argument + + Code + centr_eigen_tmax(g, scale = FALSE) + Condition + Warning: + The `scale` argument of `centr_eigen_tmax()` is deprecated as of igraph 2.1.3. + i The function always behaves as if `scale` were TRUE. The argument will be removed in the future. + Output + [1] 998 + +# centr_eigen() deprecated argument + + Code + centr_eigen(g, scale = FALSE) + Condition + Warning: + The `scale` argument of `centr_eigen()` is deprecated as of igraph 2.1.3. + i The function always behaves as if `scale` were TRUE. The argument will be removed in the future. + Output + $vector + [1] 1.000000000 0.951782779 0.642246897 0.936479372 0.530275870 0.221946794 + [7] 0.277333202 0.152912954 0.372818029 0.127815142 0.273484729 0.115798919 + [13] 0.124767961 0.347566686 0.217991682 0.155064438 0.136723710 0.142090408 + [19] 0.177496493 0.112107602 0.106492916 0.065370101 0.222031054 0.117567723 + [25] 0.271414853 0.099029857 0.154881109 0.114607116 0.132307797 0.164331195 + [31] 0.206066997 0.115587127 0.094699049 0.073831428 0.084065500 0.102118960 + [37] 0.124815177 0.125363222 0.089674288 0.074370004 0.231514975 0.099445921 + [43] 0.068551677 0.131375908 0.100228495 0.082765058 0.064082598 0.102211967 + [49] 0.098201796 0.059927929 0.073693479 0.032832236 0.084626988 0.096036279 + [55] 0.073353690 0.084623056 0.086099928 0.060251639 0.114703698 0.091721584 + [61] 0.109641146 0.058383674 0.085678160 0.095359569 0.103951017 0.092312382 + [67] 0.075150933 0.070177469 0.086353818 0.104649141 0.071439692 0.088080404 + [73] 0.047620875 0.093043381 0.039659823 0.075460270 0.103832299 0.093784456 + [79] 0.077082705 0.060515407 0.077399837 0.115954229 0.042814406 0.091960118 + [85] 0.057875582 0.087679586 0.089331459 0.051619963 0.120982244 0.047453756 + [91] 0.089239711 0.070975989 0.092710224 0.052555990 0.139087062 0.101391792 + [97] 0.069890894 0.076546345 0.020828121 0.095855612 0.080750621 0.098887044 + [103] 0.082895480 0.090507576 0.017579818 0.065380877 0.047134558 0.050933029 + [109] 0.087146700 0.074708983 0.093824859 0.062533520 0.067033062 0.030588290 + [115] 0.044045285 0.066458852 0.080172941 0.059901231 0.035320924 0.103358743 + [121] 0.050078816 0.019853109 0.080551867 0.112269550 0.088747061 0.047972081 + [127] 0.068718578 0.098357041 0.084234299 0.033808974 0.071125928 0.027906017 + [133] 0.055314049 0.049291391 0.056725343 0.057637938 0.050563887 0.086909489 + [139] 0.052999728 0.081487914 0.050378585 0.063837052 0.093634682 0.047593791 + [145] 0.069106157 0.093278501 0.068705520 0.066710495 0.077760976 0.051308212 + [151] 0.056148788 0.054363096 0.084201404 0.075881570 0.087079863 0.035928124 + [157] 0.076009680 0.050198756 0.059235718 0.035865015 0.071280492 0.101572009 + [163] 0.063152025 0.069038954 0.061658994 0.034813668 0.037303850 0.073796627 + [169] 0.063073429 0.059234345 0.078849469 0.052419850 0.060876075 0.083284938 + [175] 0.062517079 0.089605425 0.096373429 0.069577444 0.063479199 0.095043924 + [181] 0.093030939 0.048537495 0.028721340 0.061061072 0.072608682 0.069030823 + [187] 0.046854812 0.091306544 0.038613428 0.066972740 0.063957853 0.050227363 + [193] 0.091017737 0.042787565 0.086089915 0.019594407 0.095245783 0.087367843 + [199] 0.054278197 0.052589566 0.049235085 0.063967499 0.055943715 0.033881900 + [205] 0.048661624 0.053062628 0.043921042 0.047449220 0.105732305 0.033227399 + [211] 0.091934435 0.081583766 0.053292210 0.030681303 0.046294426 0.076642411 + [217] 0.126774863 0.079188246 0.085652734 0.042506195 0.049004081 0.085908843 + [223] 0.080170794 0.109184449 0.052514808 0.020538965 0.057454547 0.049727626 + [229] 0.101115821 0.061942388 0.067005672 0.120415287 0.071083465 0.055856229 + [235] 0.091912004 0.086742127 0.017395434 0.050816919 0.062233448 0.095086382 + [241] 0.043153173 0.071777453 0.024834094 0.047936076 0.046983369 0.055568450 + [247] 0.026307947 0.051117286 0.048642607 0.044682735 0.047472869 0.082982776 + [253] 0.061155735 0.034776887 0.076666198 0.040139125 0.039962716 0.091313107 + [259] 0.041985681 0.094214109 0.099747859 0.082400888 0.077434043 0.054325775 + [265] 0.089510524 0.022394525 0.051588639 0.058536877 0.103649197 0.058435605 + [271] 0.042612318 0.082381743 0.039386878 0.049403742 0.077121441 0.088725561 + [277] 0.069228273 0.054532909 0.037727266 0.030103851 0.040293374 0.048696997 + [283] 0.026393702 0.035245353 0.048025177 0.030138415 0.048938857 0.038891599 + [289] 0.061070044 0.049161103 0.021557565 0.075057751 0.046807313 0.024796747 + [295] 0.027315335 0.044147605 0.052702756 0.032450661 0.056333911 0.013873630 + [301] 0.068325664 0.061590728 0.034076902 0.077076485 0.067521406 0.080263670 + [307] 0.060187542 0.032714801 0.051888333 0.063263179 0.045133898 0.018722066 + [313] 0.049195975 0.023310111 0.049919256 0.076401651 0.037111878 0.063332384 + [319] 0.075522741 0.024056845 0.118552679 0.079974830 0.052330249 0.047516036 + [325] 0.064513465 0.099523827 0.109342933 0.078320022 0.046889511 0.053216983 + [331] 0.024329467 0.049215812 0.029733180 0.029330118 0.018902502 0.083121108 + [337] 0.028617874 0.048478573 0.049856754 0.025341676 0.079215851 0.096356371 + [343] 0.042886894 0.020754082 0.083856675 0.040398505 0.061929347 0.062986818 + [349] 0.079596277 0.052015592 0.048419153 0.053767324 0.048089513 0.066476889 + [355] 0.021313645 0.064445991 0.092122785 0.070630468 0.095081803 0.067054799 + [361] 0.054045996 0.018559258 0.055731446 0.028328542 0.049339257 0.043008173 + [367] 0.044664630 0.017325373 0.047587075 0.045830322 0.058175537 0.073718777 + [373] 0.053041673 0.110787973 0.055111294 0.047604205 0.081859755 0.026112344 + [379] 0.052670977 0.054335195 0.072380479 0.080148287 0.070909353 0.017678807 + [385] 0.059001568 0.057891791 0.035719076 0.072544978 0.047587963 0.051109855 + [391] 0.066736067 0.048787716 0.052582619 0.090388416 0.050769456 0.026834621 + [397] 0.025468951 0.082747333 0.044220153 0.037024547 0.017784737 0.047655722 + [403] 0.063044358 0.022594362 0.083148961 0.079289762 0.079415432 0.096116334 + [409] 0.060976317 0.037806209 0.093113901 0.052791932 0.057700554 0.019269742 + [415] 0.090400687 0.045643006 0.105241933 0.078200492 0.082694827 0.041196470 + [421] 0.049394119 0.046861355 0.023392626 0.053295173 0.049123182 0.086544419 + [427] 0.040931725 0.076650165 0.075540758 0.076786786 0.026115740 0.072837065 + [433] 0.064218492 0.046991830 0.091169726 0.023184011 0.062627162 0.063867786 + [439] 0.065309360 0.018803007 0.041424367 0.047021876 0.022500513 0.041987114 + [445] 0.048787114 0.051389002 0.026100584 0.047520262 0.081810001 0.063253749 + [451] 0.046954591 0.031307687 0.077841963 0.073564094 0.015952570 0.026961228 + [457] 0.036834834 0.017084573 0.013487777 0.031112050 0.059517615 0.073080784 + [463] 0.051561148 0.042589086 0.041165279 0.043007998 0.075048999 0.037617978 + [469] 0.044400255 0.051145922 0.055577782 0.072736508 0.071727148 0.047367806 + [475] 0.054537919 0.034341306 0.044311573 0.075978093 0.029917693 0.042053169 + [481] 0.038689006 0.090044644 0.080265640 0.074988027 0.045129205 0.061911694 + [487] 0.018376852 0.110778727 0.091485158 0.036763538 0.051359212 0.035692339 + [493] 0.021771912 0.013225568 0.073436731 0.032070306 0.058709006 0.038639690 + [499] 0.019925255 0.039477966 0.053038889 0.043777240 0.012219620 0.013235060 + [505] 0.044884595 0.050003853 0.026035707 0.047560258 0.044812455 0.052904556 + [511] 0.072231303 0.019007156 0.096460950 0.012598988 0.037720990 0.052125041 + [517] 0.010773345 0.014903137 0.054641865 0.050813610 0.030368356 0.013267326 + [523] 0.047909148 0.040224589 0.047045527 0.013005534 0.050633205 0.044465155 + [529] 0.043933639 0.060464619 0.074680185 0.045798179 0.043956674 0.078261931 + [535] 0.081005713 0.031223931 0.020389615 0.089989055 0.090288914 0.040492571 + [541] 0.051515870 0.074501785 0.022610339 0.023445547 0.107234313 0.022522208 + [547] 0.021562357 0.089970365 0.034311262 0.038422966 0.059446865 0.060374035 + [553] 0.047440707 0.074015075 0.020079995 0.042293428 0.045519649 0.072370875 + [559] 0.073256788 0.051189455 0.020755952 0.047131571 0.043346597 0.027024071 + [565] 0.077187242 0.024631905 0.043125428 0.019084553 0.044476728 0.050597563 + [571] 0.065923601 0.056938100 0.042564285 0.033882689 0.053038361 0.010955366 + [577] 0.061264099 0.033735094 0.091645017 0.040652225 0.089500675 0.054696508 + [583] 0.019714867 0.065291477 0.058816440 0.053327429 0.043713713 0.012635358 + [589] 0.053657042 0.030663304 0.023622034 0.046447043 0.022108674 0.070610970 + [595] 0.054860086 0.079285163 0.078653604 0.020212817 0.057635013 0.044951135 + [601] 0.059646732 0.047985847 0.026030338 0.018087053 0.013402565 0.075614181 + [607] 0.061285348 0.026466687 0.052029358 0.047533811 0.046308420 0.054796824 + [613] 0.063809543 0.061925649 0.045782584 0.037798229 0.043287442 0.022533324 + [619] 0.065096240 0.068259501 0.055745265 0.042891426 0.041891905 0.032421407 + [625] 0.008846182 0.024409397 0.031563947 0.070727362 0.055139536 0.046958476 + [631] 0.080425885 0.026644049 0.048151230 0.057262127 0.066294507 0.057096268 + [637] 0.057976048 0.013376928 0.049831692 0.039613384 0.044623672 0.042096383 + [643] 0.017990913 0.033069732 0.055699106 0.055392798 0.043734210 0.041560976 + [649] 0.063064213 0.043324527 0.035890551 0.063728286 0.075931064 0.004870161 + [655] 0.050919557 0.093845271 0.069140567 0.095497358 0.039027601 0.040179802 + [661] 0.032798978 0.057105826 0.061753045 0.027819430 0.030870507 0.016484237 + [667] 0.034647245 0.065801857 0.016092981 0.071373841 0.069799061 0.014581118 + [673] 0.039902849 0.028595977 0.008420429 0.023078956 0.059063931 0.080908693 + [679] 0.039405608 0.039570830 0.049271968 0.044615748 0.077428930 0.007926569 + [685] 0.096743356 0.073631212 0.071292314 0.009759679 0.071471008 0.060311211 + [691] 0.031623231 0.044788222 0.048331951 0.025422020 0.042953775 0.054956479 + [697] 0.052049372 0.065449770 0.013419557 0.034542883 0.019288685 0.052108497 + [703] 0.008500101 0.047188579 0.056561998 0.065881412 0.046110047 0.055611454 + [709] 0.048824144 0.051039393 0.103296718 0.063002753 0.068821551 0.045210603 + [715] 0.049366365 0.019957588 0.016765433 0.075729983 0.020634534 0.022443541 + [721] 0.039684913 0.023469674 0.025446708 0.047135925 0.057454755 0.074018112 + [727] 0.049560643 0.030564493 0.067441334 0.057943604 0.083138841 0.048972093 + [733] 0.017956758 0.040078121 0.062072487 0.076211744 0.040620466 0.014073322 + [739] 0.034371910 0.042426947 0.048503957 0.078619510 0.022142954 0.019365134 + [745] 0.029411087 0.046373564 0.020102371 0.051232147 0.054582511 0.020600807 + [751] 0.080130178 0.018554617 0.046799410 0.061665370 0.049909819 0.028887544 + [757] 0.041928641 0.072107545 0.048044631 0.017500148 0.079704981 0.019800428 + [763] 0.078847606 0.027728581 0.062140507 0.052875436 0.050314453 0.031264096 + [769] 0.040692410 0.063381844 0.093112844 0.065514455 0.030215636 0.008162284 + [775] 0.083515809 0.030508862 0.071381480 0.033193456 0.038807775 0.048577287 + [781] 0.094040882 0.042417501 0.034179279 0.060709420 0.023967613 0.045554017 + [787] 0.074456233 0.075916650 0.059880119 0.011481273 0.047862588 0.061598045 + [793] 0.077855098 0.069704264 0.043405298 0.050504729 0.071719399 0.040369625 + [799] 0.045942537 0.092614205 0.012672154 0.045608046 0.040667386 0.040865332 + [805] 0.059014656 0.045852608 0.078073363 0.062309122 0.043576468 0.029046765 + [811] 0.042816950 0.009977487 0.077522706 0.045081357 0.040872934 0.047231595 + [817] 0.015038766 0.083482749 0.068779445 0.093969989 0.026748163 0.057670367 + [823] 0.047955946 0.036966760 0.036353827 0.017255520 0.042898388 0.043051994 + [829] 0.074833042 0.086307313 0.045436924 0.059221541 0.047478158 0.044306617 + [835] 0.046169643 0.045687496 0.060795761 0.034734123 0.063653303 0.011347272 + [841] 0.085289303 0.022174998 0.027379326 0.050475597 0.042596285 0.051923358 + [847] 0.048399611 0.046948200 0.062840319 0.074631473 0.110580846 0.039832647 + [853] 0.038174593 0.015025078 0.080533856 0.041301980 0.063296963 0.020530113 + [859] 0.069595043 0.014460265 0.041985769 0.074297970 0.024510919 0.052501898 + [865] 0.075321819 0.048182633 0.005945560 0.045073331 0.047886060 0.059263097 + [871] 0.039615085 0.023340750 0.074906885 0.049034429 0.042430824 0.068803826 + [877] 0.036763154 0.063089290 0.047234126 0.048488930 0.048866123 0.060128977 + [883] 0.016108230 0.050418349 0.021166057 0.013600525 0.039284472 0.080969373 + [889] 0.109342933 0.010672715 0.015890713 0.079891885 0.044434137 0.067109433 + [895] 0.050792579 0.073307023 0.059478730 0.039223108 0.020887049 0.011867962 + [901] 0.054100765 0.051787720 0.038661031 0.057934446 0.044151425 0.050531877 + [907] 0.041721609 0.032173332 0.079836726 0.043600493 0.062540728 0.034957414 + [913] 0.033379850 0.018010754 0.040073088 0.033828301 0.043203573 0.020463858 + [919] 0.074909540 0.050186062 0.103871477 0.023921037 0.035718606 0.011934061 + [925] 0.013064042 0.045987177 0.013903593 0.052133312 0.039279884 0.086646795 + [931] 0.068955557 0.042221241 0.022493439 0.021500039 0.044985654 0.051574362 + [937] 0.030682564 0.109342933 0.011537177 0.035661913 0.008851006 0.054222338 + [943] 0.036444284 0.008028752 0.045453142 0.031193299 0.006664672 0.044180981 + [949] 0.059987344 0.058866418 0.013810648 0.059813757 0.038475702 0.080534501 + [955] 0.075821819 0.010591476 0.029079798 0.030443812 0.030777806 0.041366492 + [961] 0.011267016 0.102139472 0.029180735 0.027080918 0.057907415 0.038709278 + [967] 0.061314807 0.049525614 0.035266067 0.050082791 0.063986063 0.090771694 + [973] 0.098552181 0.011492223 0.020429320 0.040802768 0.051227731 0.021504083 + [979] 0.013573813 0.058403225 0.010837678 0.040702917 0.071009852 0.042605726 + [985] 0.008026109 0.050258651 0.050100616 0.014397933 0.037112250 0.047654021 + [991] 0.044427764 0.079536876 0.007986134 0.013574124 0.006942530 0.102244877 + [997] 0.043994191 0.015266164 0.017255528 0.041242677 + + $value + [1] 28.57346 + + $options + $options$bmat + [1] "I" + + $options$n + [1] 1000 + + $options$which + [1] "LA" + + $options$nev + [1] 1 + + $options$tol + [1] 0 + + $options$ncv + [1] 0 + + $options$ldv + [1] 0 + + $options$ishift + [1] 1 + + $options$maxiter + [1] 3000 + + $options$nb + [1] 1 + + $options$mode + [1] 1 + + $options$start + [1] 1 + + $options$sigma + [1] 0 + + $options$sigmai + [1] 0 + + $options$info + [1] 0 + + $options$iter + [1] 2 + + $options$nconv + [1] 1 + + $options$numop + [1] 30 + + $options$numopb + [1] 0 + + $options$numreo + [1] 17 + + + $centralization + [1] 0.9408464 + + $theoretical_max + [1] 998 + + +# centr_degree_tmax() deprecated argument + + Code + centr_degree_tmax(g) + Condition + Warning: + The `loops` argument of `centr_degree_tmax()` must be explicit as of igraph 2.0.0. + i Default value (`FALSE`) will be dropped in next release, add an explicit value for the loops argument. + Output + [1] 1994004 + diff --git a/tests/testthat/test-centralization.R b/tests/testthat/test-centralization.R new file mode 100644 index 0000000000..16d88fd2f7 --- /dev/null +++ b/tests/testthat/test-centralization.R @@ -0,0 +1,47 @@ +test_that("centr_eigen_tmax() works", { + withr::local_seed(42) + g <- sample_pa(1000, m = 4) + expect_equal(centr_eigen_tmax(g), 998) +}) + +test_that("centr_eigen_tmax() deprecated argument", { + g <- sample_pa(1000, m = 4) + expect_snapshot(centr_eigen_tmax(g, scale = FALSE)) +}) + +test_that("centr_eigen() works", { + withr::local_seed(42) + g <- sample_pa(1000, m = 4) + centr_eigen <- centr_eigen(g) + expect_setequal( + names(centr_eigen), + c("vector", "value", "options", "centralization", "theoretical_max") + ) + expect_equal(centr_eigen$centralization, 0.9432924, tolerance = 1e-06) +}) + +test_that("centr_eigen() deprecated argument", { + g <- sample_pa(1000, m = 4) + expect_snapshot(centr_eigen(g, scale = FALSE)) +}) + +test_that("centr_degree_tmax() works", { + withr::local_seed(42) + g <- sample_pa(1000, m = 4) + expect_gt(centr_degree_tmax(g, loops = TRUE), 1990000) +}) + +test_that("centr_degree_tmax() deprecated argument", { + g <- sample_pa(1000, m = 4) + expect_snapshot(centr_degree_tmax(g)) +}) + +test_that("centr_betw() works", { + withr::local_seed(42) + g <- sample_pa(1000, m = 4) + expect_setequal( + names(centr_betw(g)), + c("res", "centralization", "theoretical_max") + ) + expect_equal(centr_betw(g)$theoretical_max, 996004998) +})