Nothing
tests/testthat/test-track_grid.R
In traipse: Shared Tools for Tracking Data
dimension <- c(50, 35)
extent <- c(range(trips0$x), range(trips0$y))
cells <- c(585, 536, 535, 536, 536, 537, 536, 537, 487, 537, 488, 487,
439, 440, 440, 441, 391, 390, 389, 390, 390, 391, 392, 392, 442,
393, 343, 342, 391, 391, 392, 392, 392, 392, 391, 392, 342, 342,
343, 397, 394, 394, 395, 447, 347, 396, 396, 446, 395, 396, 396,
396, 498, 447, 447, 446, 396, 446, 446, 446, 446, 447, 496, 496,
498, 547, 547, 547, 546, 544, 546, 547, 547, 546, 496, 496, 180,
496, 547, 546, 598, 596, 647, 645, 695, 696, 696, 646, 645, 697,
697, 696, 697, 747, 796, 950, 796, 795, 795, 297, 846, 846, 846,
896, 946, 896, 946, 946, 946, 890, 896, 1390, 947, 997, 997,
997, 997, 997, 998, 1048, 1048, 1049, 948, 1049, 1049, 1199,
1049, 1048, 1048, 1048, 1048, 1000, 1047, 1048, 1048, 1048, 1049,
998, 998, 998, 997, 947, 947, 997, 997, 997, 996, 946, 996, 945,
945, 945, 945, 945, 945, 945, 944, 943, 943, 894, 944, 894, 944,
894, 944, 945, 945, 945, 944, 944, 944, 944, 944, 944, 944, 943,
893, 893, 892, 893, 842, 842, 840, 841, 841, 841, 890, 791, 841,
891, 891, 940, 840, 840, 789, 435, 890, 890, 840, 840, 889, 839,
839, 891, 839, 839, 842, 839, 839, 839, 839, 840, 1233, 889,
889, 889, 889, 890, 886, 1050, 889, 888, 838, 939, 988, 1037,
1038, 1038, 1087, 1037, 1038, 1282, 1600, 1037, 1037, 1086, 1086,
1036, 1086, 1086, 1087, 1086, 1086, 1085, 1134, 1590, 1137, 1136,
1136, 1185, 1185, 1234, 1123, 1234, 1284, 1284, 1284, 1334, 1334,
1334, 1334, 1279, 1334, 1435, 1535, 1333, 1332, 1333, 1332, 1332,
1382, 1382, 1382, 1431, 1383, 1383, 1383, 1383, 1282, 1333, 1632,
1332, 1332, 1331, 1331, 1381, 1335, 1331, 1330, 1329, 1329, 1281,
1329, 1379, 1329, 1329, 1278, 1279, 1229, 1179, 1130, 1129, 1079,
1180, 1129, 1079, 1128, 1128, 1128, 1077, 1076, 1076, 1026, 1026,
1026, 1026, 1026, 975, 925, 975, 924, 925, 975, 976, 927, 878,
926, 875, 825, 825, 825, 873, 926, 826, 826, 826, 777, 776, 777,
777, 726, 727, 676, 676, 625, 575, 574, 667, 523, 523, 523, 473,
521, 522, 472, 472, 471, 421, 421, 421, 421, 420, 421, 371, 372,
422, 421, 371, 472, 421, 370, 420, 370, 420, 371, 371, 421, 421,
421, 517, 421, 421, 421, 421, 421, 421, 420, 421, 471, 470, 470,
471, 471, 472, 574, 624, 572, 622, 522, 522, 522, 571, 571, 571,
571, 571, 571, 571, 571, 620, 620, 572, 521, 621, 570, 622, 572,
622, 624, 623, 1138, 573, 574, 574, 625, 625, 625, 625, 673,
674, 674, 723, 723, 723, 723, 824, 771, 675, 773, 724, 774, 774,
773, 774, 873, 823, 823, 776, 823, 823, 822, 773, 723, 723, 723,
773, 774, 775, 726, 725, 725, 725, 726, 727, 728, 676, 677, 678,
729, 679, 779, 729, 729, 729, 728, 729, 681, 680, 680, 630, 631,
631, 581, 581, 581, 581, 582, 583, 583, 583, 584, 584, 583, 633,
633, 584, 534, 534, 585, 585, 631, 632, 632, 631, 631, 631, 632,
632, 633, 634, 533, 583, 584, 584, 534, 536, 483, 534, 433, 484,
434, 433, 433, 433, 430, 432, 382, 431, 383, 385, 383, 333, 333,
333, 333, 334, 335, 285, 285, 336, 335, 285, 286, 287, 286, 286,
286, 286, 339, 286, 286, 287, 287, 336, 337, 338, 39, 389, 389,
389, 389, 389, 439, 440, 440, 440, 440, 438, 490, 490, 490, 491,
540, 541, 541, 591, 591, 641, 591, 592, 543, 543, 593, 693, 595,
595, 644, 695, 694, 693, 693, 743, 694, 744, 743, 794, 793, 794,
794, 845, 845, 846, 896, 896, 946, 946, 946, 947, 949, 947, 997,
995, 997, 997, 998, 1048, 1099, 896, 999, 1049, 1049, 1048, 1048,
998, 998, 1048, 1048, 998, 1049, 999, 999, 1000, 1100, 1049,
1050, 1050, 1000, 1000, 1000, 1000, 1000, 999, 998, 994, 947,
997, 946, 946, 946, 947, 946, 997, 995, 995, 995, 945, 945, 945,
945, 945, 945, 897, 896, 946, 945, 896, 896, 896, 895, 896, 846,
895, 846, 845, 845, 795, 844, 895, 844, 844, 896, 844, 893, 893,
893, 894, 893, 893, 893, 893, 993, 894, 892, 892, 892, 892, 893,
892, 893, 894, 894, 943, 648, 843, 893, 893, 892, 892, 892, 891,
890, 889, 938, 888, 837, 836, 886, 887, 887, 886, 837, 886, 887,
838, 888, 888, 888, 837, 837, 837, 836, 837, 886, 787, 837, 837,
837, 837, 838, 838, 837, 887, 887, 936, 987, 986, 987, 985, 1037,
1037, 1037, 1037, 1036, 1036, 1037, 1087, 1036, 1036, 1136, 1135,
1134, 1182, 1183, 1233, 1182, 1182, 1182, 1182, 1131, 1229, 1180,
1179, 1178, 1178, 1229, 1177, 1277, 1277, 1276, 1276, 1028, 1226,
1274, 1324, 1324, 1274, 1324, 1275, 1324, 1274, 1273, 1274, 1274,
1273, 1274, 1323, 1323, 1274, 1325, 1274, 1323, 1322, 1325, 1272,
1273, 1273, 1272, 1222, 1372, 1422, 1270, 1270, 1219, 1219, 1219,
1219, 1167, 1219, 1221, 1169, 1169, 1166, 1171, 1168, 1167, 1167,
1117, 1167, 1167, 1167, 1116, 1116, 1166, 1116, 1066, 1015, 1065,
1014, 1014, 964, 963, 963, 962, 962, 911, 912, 862, 913, 863,
862, 912, 311, 862, 811, 761, 812, 812, 811, 810, 760, 760, 760,
760, 759, 759, 759, 761, 760, 709, 710, 610, 661, 660, 660, 609,
661, 663, 562, 613, 562, 562, 512, 512, 512, 512, 512, 514, 516,
464, 513, 512, 463, 463, 464, 464, 464, 413, 516, 17, 514, 464,
413, 514, 515, 617, 514, 514, 564, 564, 515, 566, 614, 565, 615,
566, 567, 617, 617, 366, 668, 668, 718, 719, 719, 719, 718, 767,
770, 770, 771, 722, 821, 821, 871, 871, 922, 970, 921, 971, 971,
971, 971, 1021, 1121, 972, 972, 972, 1022, 1022, 972, 1021, 1021,
1074, 972, 872, 972, 973, 1422, 1023, 924, 1024, 1022, 975, 975,
977, 927, 927, 927, 925, 877, 878, 927, 927, 927, 927, 878, 928,
979, 979, 929, 929, 930, 931, 931, 932, 882, 881, 881, 781, 832,
782, 783, 783, 783, 782, 732, 731, 630, 681, 681, 728, 778, 727,
677, 678, 678, 678, 629, 629, 629, 630, 631, 532, 581, 580, 581,
584, 582, 532, 533, 533, 583, 531, 380, 533, 533, 481, 533, 533,
483, 532, 432, 484, 485, 485, 486, 486, 486, 436, 436, 192, 487,
537, 587, 537, 537, 489, 537, 587, 587, 638, 638, 638, 637, 586,
637, 636, 638, 638, 637, 688, 738, 688, 688, 687, 687, 737, 737,
787, 839, 838, 838, 839, 889, 889, 1038, 989, 991, 991, 1041,
1041, 1041, 895, 1042, 994, 1094, 1044, 1044, 1094, 1094, 1094,
1196, 1145, 1145, 1196, 1196, 1246, 1246, 1296, 1297, 1298, 1298,
1298, 1297, 1297, 1349, 1398, 1348, 1348, 1347, 1346, 1346, 1345,
1395, 1394, 1394, 1393, 1344, 1394, 1393, 1343, 1393, 1443, 1443,
1443, 1443, 1393, 1444, 1444, 1442, 1443, 1442, 1443, 1693, 1442,
1441, 1492, 1441, 1441, 1390, 1288, 1390, 1389, 1389, 1389, 1390,
1390, 1390, 1391, 1391, 1390, 1190, 1391, 1391, 1390, 1389, 1389,
1389, 1388, 1338, 1339, 1339, 1340, 1290, 1290, 1290, 1290, 1240,
1239, 1239, 1240, 1649, 1240, 1239, 1240, 1190, 1288, 1189, 1189,
1189, 1187, 1139, 1139, 1138, 1139, 1088, 1088, 1137, 1087, 1087,
1036, 1036, 1035, 1035, 1085, 1035, 1035, 1085, 1085, 1085, 1085,
1084, 1529, 1085, 1036, 1035, 1087, 1085, 1085, 1135, 1134, 1135,
1134, 1134, 1134, 1234, 1184, 1183, 1183, 1133, 1133, 1182, 1183,
1182, 1231, 1231, 1330, 1231, 1231, 1183, 1281, 1331, 1331, 1381,
1381, 1381, 1381, 1381, 1431, 1431, 1431, 1431, 1481, 1481, 1531,
1532, 1531, 1530, 1580, 1580, 1630, 1630, 1679, 1678, 1678, 1627,
1675, 1678, 1678, 1679, 1679, 1629, 1629, 1677, 1678, 1677, 1677,
1726, 1725, 1726, 1725, 1725, 1676, 1676, 1675, 1675, 1674, 1674,
1673, 1673, 1623, 1623, 1623, 1623, 1623, 1721, 1673, 1722, 1673,
1673, 1673, 1674, 1725, 1673, 1673, 1673, 1673, 1673, 1673, 1673,
1722, 1671, 1721, 1670, 1621, 1621, 1621, 1619, 1619, 1619, 1570,
1568, 1567, 1518, 1567, 1467, 1417, 1417, 1467, 1417, 1418, 1418,
1468, 1419, 1368, 1369, 1371, 1368, 1368, 1369, 1317, 1269, 1317,
1267, 1318, 1216, 1166, 1166, 1166, 1266, 1116, 1116, 1116, 1067,
1068, 1117, 1117, 1066, 1166, 1065, 1066, 1015, 1014, 1014, 964,
963, 963, 913, 913, 913, 863, 863, 863, 863, 863, 864, 813, 863,
764, 812, 714, 762, 762, 712, 762, 812, 762, 763, 712, 1201,
660, 763, 763, 762, 762, 763, 814, 763, 762, 762, 763, 713, 762,
762, 762, 762, 762, 719, 813, 864, 814, 863, 813, 864, 863, 863,
863, 913, 914, 914, 913, 964, 964, 1053, 913, 1015, 1014, 1014,
1064, 1064, 1063, 1013, 1014, 1064, 1259, 1063, 1065, 1063, 1063,
1114, 1214, 1114, 1115, 1062, 1115, 1115, 1165, 1166, 1166, 1166,
1167, 1017, 1167, 1066, 1168, 1168, 1218, 1217, 1217, 1217, 1267,
1268, 1267, 1267, 1268, 1319, 1268, 1268, 1268, 1268, 1268, 1269,
1270, 1220, 1221, 1119, 1221, 1220, 1222, 1172, 1171, 1122, 1122,
1172, 1172, 1171, 1121, 1120, 1072, 1072, 1071, 1072, 970, 1024,
1074, 1026, 974, 973, 973, 974, 924, 875, 826, 826, 776, 826,
775, 776, 776, 727)
#cells2 <- track_grid(trips0$x, trips0$y, dimension = c(5, 3))
#dput(table(cells2))
tabcells2 <- structure(c(`2` = 43L, `3` = 57L, `4` = 126L, `5` = 73L, `6` = 17L,
`7` = 161L, `8` = 206L, `9` = 215L, `10` = 254L, `11` = 2L, `12` = 69L,
`13` = 120L, `14` = 107L, `15` = 50L), dim = 14L, dimnames = structure(list(
c("2", "3", "4", "5", "6", "7", "8", "9", "10",
"11", "12", "13", "14", "15")), names = ""), class = "table")
test_that("grid works", {
expect_equal(track_grid(trips0$x, trips0$y, dimension = dimension, extent = extent), cells)
## also the same if we don't provide extent
expect_equal(track_grid(trips0$x, trips0$y, dimension = dimension), cells)
expect_equal(table(track_grid(trips0$x, trips0$y, dimension = c(5, 3))), tabcells2)
})
Try the traipse package in your browser
Any scripts or data that you put into this service are public.
traipse documentation built on Oct. 10, 2022, 9:06 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
dimension <- c(50, 35)
extent <- c(range(trips0$x), range(trips0$y))
cells <- c(585, 536, 535, 536, 536, 537, 536, 537, 487, 537, 488, 487,
439, 440, 440, 441, 391, 390, 389, 390, 390, 391, 392, 392, 442,
393, 343, 342, 391, 391, 392, 392, 392, 392, 391, 392, 342, 342,
343, 397, 394, 394, 395, 447, 347, 396, 396, 446, 395, 396, 396,
396, 498, 447, 447, 446, 396, 446, 446, 446, 446, 447, 496, 496,
498, 547, 547, 547, 546, 544, 546, 547, 547, 546, 496, 496, 180,
496, 547, 546, 598, 596, 647, 645, 695, 696, 696, 646, 645, 697,
697, 696, 697, 747, 796, 950, 796, 795, 795, 297, 846, 846, 846,
896, 946, 896, 946, 946, 946, 890, 896, 1390, 947, 997, 997,
997, 997, 997, 998, 1048, 1048, 1049, 948, 1049, 1049, 1199,
1049, 1048, 1048, 1048, 1048, 1000, 1047, 1048, 1048, 1048, 1049,
998, 998, 998, 997, 947, 947, 997, 997, 997, 996, 946, 996, 945,
945, 945, 945, 945, 945, 945, 944, 943, 943, 894, 944, 894, 944,
894, 944, 945, 945, 945, 944, 944, 944, 944, 944, 944, 944, 943,
893, 893, 892, 893, 842, 842, 840, 841, 841, 841, 890, 791, 841,
891, 891, 940, 840, 840, 789, 435, 890, 890, 840, 840, 889, 839,
839, 891, 839, 839, 842, 839, 839, 839, 839, 840, 1233, 889,
889, 889, 889, 890, 886, 1050, 889, 888, 838, 939, 988, 1037,
1038, 1038, 1087, 1037, 1038, 1282, 1600, 1037, 1037, 1086, 1086,
1036, 1086, 1086, 1087, 1086, 1086, 1085, 1134, 1590, 1137, 1136,
1136, 1185, 1185, 1234, 1123, 1234, 1284, 1284, 1284, 1334, 1334,
1334, 1334, 1279, 1334, 1435, 1535, 1333, 1332, 1333, 1332, 1332,
1382, 1382, 1382, 1431, 1383, 1383, 1383, 1383, 1282, 1333, 1632,
1332, 1332, 1331, 1331, 1381, 1335, 1331, 1330, 1329, 1329, 1281,
1329, 1379, 1329, 1329, 1278, 1279, 1229, 1179, 1130, 1129, 1079,
1180, 1129, 1079, 1128, 1128, 1128, 1077, 1076, 1076, 1026, 1026,
1026, 1026, 1026, 975, 925, 975, 924, 925, 975, 976, 927, 878,
926, 875, 825, 825, 825, 873, 926, 826, 826, 826, 777, 776, 777,
777, 726, 727, 676, 676, 625, 575, 574, 667, 523, 523, 523, 473,
521, 522, 472, 472, 471, 421, 421, 421, 421, 420, 421, 371, 372,
422, 421, 371, 472, 421, 370, 420, 370, 420, 371, 371, 421, 421,
421, 517, 421, 421, 421, 421, 421, 421, 420, 421, 471, 470, 470,
471, 471, 472, 574, 624, 572, 622, 522, 522, 522, 571, 571, 571,
571, 571, 571, 571, 571, 620, 620, 572, 521, 621, 570, 622, 572,
622, 624, 623, 1138, 573, 574, 574, 625, 625, 625, 625, 673,
674, 674, 723, 723, 723, 723, 824, 771, 675, 773, 724, 774, 774,
773, 774, 873, 823, 823, 776, 823, 823, 822, 773, 723, 723, 723,
773, 774, 775, 726, 725, 725, 725, 726, 727, 728, 676, 677, 678,
729, 679, 779, 729, 729, 729, 728, 729, 681, 680, 680, 630, 631,
631, 581, 581, 581, 581, 582, 583, 583, 583, 584, 584, 583, 633,
633, 584, 534, 534, 585, 585, 631, 632, 632, 631, 631, 631, 632,
632, 633, 634, 533, 583, 584, 584, 534, 536, 483, 534, 433, 484,
434, 433, 433, 433, 430, 432, 382, 431, 383, 385, 383, 333, 333,
333, 333, 334, 335, 285, 285, 336, 335, 285, 286, 287, 286, 286,
286, 286, 339, 286, 286, 287, 287, 336, 337, 338, 39, 389, 389,
389, 389, 389, 439, 440, 440, 440, 440, 438, 490, 490, 490, 491,
540, 541, 541, 591, 591, 641, 591, 592, 543, 543, 593, 693, 595,
595, 644, 695, 694, 693, 693, 743, 694, 744, 743, 794, 793, 794,
794, 845, 845, 846, 896, 896, 946, 946, 946, 947, 949, 947, 997,
995, 997, 997, 998, 1048, 1099, 896, 999, 1049, 1049, 1048, 1048,
998, 998, 1048, 1048, 998, 1049, 999, 999, 1000, 1100, 1049,
1050, 1050, 1000, 1000, 1000, 1000, 1000, 999, 998, 994, 947,
997, 946, 946, 946, 947, 946, 997, 995, 995, 995, 945, 945, 945,
945, 945, 945, 897, 896, 946, 945, 896, 896, 896, 895, 896, 846,
895, 846, 845, 845, 795, 844, 895, 844, 844, 896, 844, 893, 893,
893, 894, 893, 893, 893, 893, 993, 894, 892, 892, 892, 892, 893,
892, 893, 894, 894, 943, 648, 843, 893, 893, 892, 892, 892, 891,
890, 889, 938, 888, 837, 836, 886, 887, 887, 886, 837, 886, 887,
838, 888, 888, 888, 837, 837, 837, 836, 837, 886, 787, 837, 837,
837, 837, 838, 838, 837, 887, 887, 936, 987, 986, 987, 985, 1037,
1037, 1037, 1037, 1036, 1036, 1037, 1087, 1036, 1036, 1136, 1135,
1134, 1182, 1183, 1233, 1182, 1182, 1182, 1182, 1131, 1229, 1180,
1179, 1178, 1178, 1229, 1177, 1277, 1277, 1276, 1276, 1028, 1226,
1274, 1324, 1324, 1274, 1324, 1275, 1324, 1274, 1273, 1274, 1274,
1273, 1274, 1323, 1323, 1274, 1325, 1274, 1323, 1322, 1325, 1272,
1273, 1273, 1272, 1222, 1372, 1422, 1270, 1270, 1219, 1219, 1219,
1219, 1167, 1219, 1221, 1169, 1169, 1166, 1171, 1168, 1167, 1167,
1117, 1167, 1167, 1167, 1116, 1116, 1166, 1116, 1066, 1015, 1065,
1014, 1014, 964, 963, 963, 962, 962, 911, 912, 862, 913, 863,
862, 912, 311, 862, 811, 761, 812, 812, 811, 810, 760, 760, 760,
760, 759, 759, 759, 761, 760, 709, 710, 610, 661, 660, 660, 609,
661, 663, 562, 613, 562, 562, 512, 512, 512, 512, 512, 514, 516,
464, 513, 512, 463, 463, 464, 464, 464, 413, 516, 17, 514, 464,
413, 514, 515, 617, 514, 514, 564, 564, 515, 566, 614, 565, 615,
566, 567, 617, 617, 366, 668, 668, 718, 719, 719, 719, 718, 767,
770, 770, 771, 722, 821, 821, 871, 871, 922, 970, 921, 971, 971,
971, 971, 1021, 1121, 972, 972, 972, 1022, 1022, 972, 1021, 1021,
1074, 972, 872, 972, 973, 1422, 1023, 924, 1024, 1022, 975, 975,
977, 927, 927, 927, 925, 877, 878, 927, 927, 927, 927, 878, 928,
979, 979, 929, 929, 930, 931, 931, 932, 882, 881, 881, 781, 832,
782, 783, 783, 783, 782, 732, 731, 630, 681, 681, 728, 778, 727,
677, 678, 678, 678, 629, 629, 629, 630, 631, 532, 581, 580, 581,
584, 582, 532, 533, 533, 583, 531, 380, 533, 533, 481, 533, 533,
483, 532, 432, 484, 485, 485, 486, 486, 486, 436, 436, 192, 487,
537, 587, 537, 537, 489, 537, 587, 587, 638, 638, 638, 637, 586,
637, 636, 638, 638, 637, 688, 738, 688, 688, 687, 687, 737, 737,
787, 839, 838, 838, 839, 889, 889, 1038, 989, 991, 991, 1041,
1041, 1041, 895, 1042, 994, 1094, 1044, 1044, 1094, 1094, 1094,
1196, 1145, 1145, 1196, 1196, 1246, 1246, 1296, 1297, 1298, 1298,
1298, 1297, 1297, 1349, 1398, 1348, 1348, 1347, 1346, 1346, 1345,
1395, 1394, 1394, 1393, 1344, 1394, 1393, 1343, 1393, 1443, 1443,
1443, 1443, 1393, 1444, 1444, 1442, 1443, 1442, 1443, 1693, 1442,
1441, 1492, 1441, 1441, 1390, 1288, 1390, 1389, 1389, 1389, 1390,
1390, 1390, 1391, 1391, 1390, 1190, 1391, 1391, 1390, 1389, 1389,
1389, 1388, 1338, 1339, 1339, 1340, 1290, 1290, 1290, 1290, 1240,
1239, 1239, 1240, 1649, 1240, 1239, 1240, 1190, 1288, 1189, 1189,
1189, 1187, 1139, 1139, 1138, 1139, 1088, 1088, 1137, 1087, 1087,
1036, 1036, 1035, 1035, 1085, 1035, 1035, 1085, 1085, 1085, 1085,
1084, 1529, 1085, 1036, 1035, 1087, 1085, 1085, 1135, 1134, 1135,
1134, 1134, 1134, 1234, 1184, 1183, 1183, 1133, 1133, 1182, 1183,
1182, 1231, 1231, 1330, 1231, 1231, 1183, 1281, 1331, 1331, 1381,
1381, 1381, 1381, 1381, 1431, 1431, 1431, 1431, 1481, 1481, 1531,
1532, 1531, 1530, 1580, 1580, 1630, 1630, 1679, 1678, 1678, 1627,
1675, 1678, 1678, 1679, 1679, 1629, 1629, 1677, 1678, 1677, 1677,
1726, 1725, 1726, 1725, 1725, 1676, 1676, 1675, 1675, 1674, 1674,
1673, 1673, 1623, 1623, 1623, 1623, 1623, 1721, 1673, 1722, 1673,
1673, 1673, 1674, 1725, 1673, 1673, 1673, 1673, 1673, 1673, 1673,
1722, 1671, 1721, 1670, 1621, 1621, 1621, 1619, 1619, 1619, 1570,
1568, 1567, 1518, 1567, 1467, 1417, 1417, 1467, 1417, 1418, 1418,
1468, 1419, 1368, 1369, 1371, 1368, 1368, 1369, 1317, 1269, 1317,
1267, 1318, 1216, 1166, 1166, 1166, 1266, 1116, 1116, 1116, 1067,
1068, 1117, 1117, 1066, 1166, 1065, 1066, 1015, 1014, 1014, 964,
963, 963, 913, 913, 913, 863, 863, 863, 863, 863, 864, 813, 863,
764, 812, 714, 762, 762, 712, 762, 812, 762, 763, 712, 1201,
660, 763, 763, 762, 762, 763, 814, 763, 762, 762, 763, 713, 762,
762, 762, 762, 762, 719, 813, 864, 814, 863, 813, 864, 863, 863,
863, 913, 914, 914, 913, 964, 964, 1053, 913, 1015, 1014, 1014,
1064, 1064, 1063, 1013, 1014, 1064, 1259, 1063, 1065, 1063, 1063,
1114, 1214, 1114, 1115, 1062, 1115, 1115, 1165, 1166, 1166, 1166,
1167, 1017, 1167, 1066, 1168, 1168, 1218, 1217, 1217, 1217, 1267,
1268, 1267, 1267, 1268, 1319, 1268, 1268, 1268, 1268, 1268, 1269,
1270, 1220, 1221, 1119, 1221, 1220, 1222, 1172, 1171, 1122, 1122,
1172, 1172, 1171, 1121, 1120, 1072, 1072, 1071, 1072, 970, 1024,
1074, 1026, 974, 973, 973, 974, 924, 875, 826, 826, 776, 826,
775, 776, 776, 727)
#cells2 <- track_grid(trips0$x, trips0$y, dimension = c(5, 3))
#dput(table(cells2))
tabcells2 <- structure(c(`2` = 43L, `3` = 57L, `4` = 126L, `5` = 73L, `6` = 17L,
`7` = 161L, `8` = 206L, `9` = 215L, `10` = 254L, `11` = 2L, `12` = 69L,
`13` = 120L, `14` = 107L, `15` = 50L), dim = 14L, dimnames = structure(list(
c("2", "3", "4", "5", "6", "7", "8", "9", "10",
"11", "12", "13", "14", "15")), names = ""), class = "table")
test_that("grid works", {
expect_equal(track_grid(trips0$x, trips0$y, dimension = dimension, extent = extent), cells)
## also the same if we don't provide extent
expect_equal(track_grid(trips0$x, trips0$y, dimension = dimension), cells)
expect_equal(table(track_grid(trips0$x, trips0$y, dimension = c(5, 3))), tabcells2)
})
Try the traipse package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.