testlist <- list(A = structure(c(1.17185881738914e+131, 7.09562964992429e+289, 2.1408515619487e+239, 1.03956230478117e-168, 1.12570485675485e-217, 7.52259535312725e+221, 2.41722633127567e+231, 4.41350985556771e+92, 8.53144564833099e-94, 1.84407895008613e+121, 4.25876110332666e-74, 5.92829319487244e-36, 3.50231704689611e+161, 5.4892455954456e-260, 1.07910467040886e+72, 7.08255522851127e+52, 5.01046317302285e-214, 1.91274743850988e+154, 1.45728946315037e+75, 1.97963684459229e-174, 2.65895037175161e+39, 1.8942386782537e+110, 7.05422315678821e+254, 5.43816264465699e-145, 1.48738622561963e+96, 3.61203470536838e-62, 1.60274700306634e-63, 1.97135180118251e+31, 7.51168753733034e-255, 1.19463641043335e+178, 6.78685492968244e-113, 7.0960216686293e-133, 2.2571807792106, 3.93870002640904e-267, 1.03373063366624e-221, 8.91105022478541e-57, 1.27400375004345e-85, 2.69381264696873e-303, 5.80370288689521e+233, 1.17797225047379e+120, 1.76277465948881e-13, 3.78222826748147e+93, 3.20336961960835e-246, 1.52531340062336e+139, 3.45361942102722e-06, 3.39415170884029e+82, 6.60977900560553e+258, 7.47402304961172e-244, 5.72138508111174e-305, 3.96583825899204e-46, 1.24926041868051e-245, 1.12491461639476e-12, 2.68777367972642e+67, 4.06734744423055e-274, 6.73225961366452e-84, 3.35274271947011e+99, 1.37750317119375e+76, 2.78695693075264e+68, 1.37741101285673e-112, 2.44717426293649e+187, 6.25857285762754e-195, 2.86073943053862e-53, 7.57522217969279e+115, 4.49972029310708e-262, 1.26616955620206e-170, 1.63586907209522e-187, 8.4235748316022e+206, 3.08712436799903e-128, 4.39243853153053e+89, 1.40858316968238e+157), .Dim = c(10L, 7L )), n = 1887489395L) result <- do.call(signnet:::triadCensusSign,testlist) str(result)