我想创建一个名为max distance的新列，在其中显示与列Distance (km)的最大距离。但是，我想通过在列Season和Transmitter中进行选择来缩短数据帧。按顺序排列：每个唯一的Transmitter名称都应该在唯一的季节值下获得最大距离。例如：发射器A69-1602-59769应该在Winter1、Spawn1、Forage、Winter2和Spawn2下获得最大距离值，最终针对每个唯一的发射器。不幸的是，我的数据集相当大，并不是所有唯一的函数都可见。Season的唯一值如下所示：
[1] "；Winter1"Spawn1""饲料"Winter2"Spawn2"；
我怎样才能做到这一点？
structure(list(Date = structure(c(18211, 18211, 18211, 18211,
18211, 18211, 18211, 18211, 18211, 18211, 18212, 18212, 18212,
18212, 18212, 18212, 18212, 18212, 18213, 18213, 18213, 18213,
18213, 18213, 18213, 18214, 18214, 18214, 18214, 18214, 18214,
18214, 18214, 18215, 18215, 18215, 18215, 18215, 18215, 18216,
18216, 18216, 18216, 18216, 18216, 18217, 18217, 18217, 18217,
18217, 18217, 18217, 18218, 18218, 18218, 18218, 18218, 18219,
18219, 18219, 18219, 18219, 18219, 18219, 18220, 18220, 18220,
18220, 18220, 18220, 18220, 18220, 18221, 18221, 18221, 18221,
18221, 18221, 18221, 18222, 18222, 18222, 18222, 18222, 18222,
18223, 18223, 18223, 18223, 18223, 18223, 18224, 18224, 18224,
18224, 18224, 18224, 18224, 18224, 18225), class = "Date"), Transmitter = c("A69-1602-59769",
"A69-1602-59776", "A69-1602-59775", "A69-1602-59771", "A69-1602-59774",
"A69-1602-59773", "A69-1602-59772", "A69-1602-59777", "A69-1602-59778",
"A69-1602-59770", "A69-1602-59773", "A69-1602-59775", "A69-1602-59777",
"A69-1602-59771", "A69-1602-59772", "A69-1602-59774", "A69-1602-59778",
"A69-1602-59776", "A69-1602-59772", "A69-1602-59777", "A69-1602-59774",
"A69-1602-59773", "A69-1602-59776", "A69-1602-59775", "A69-1602-59771",
"A69-1602-59774", "A69-1602-59773", "A69-1602-59772", "A69-1602-59777",
"A69-1602-59778", "A69-1602-59776", "A69-1602-59775", "A69-1602-59771",
"A69-1602-59772", "A69-1602-59773", "A69-1602-59774", "A69-1602-59777",
"A69-1602-59778", "A69-1602-59769", "A69-1602-59774", "A69-1602-59772",
"A69-1602-59773", "A69-1602-59777", "A69-1602-59775", "A69-1602-59778",
"A69-1602-59773", "A69-1602-59774", "A69-1602-59777", "A69-1602-59772",
"A69-1602-59778", "A69-1602-59769", "A69-1602-59775", "A69-1602-59773",
"A69-1602-59777", "A69-1602-59772", "A69-1602-59774", "A69-1602-59769",
"A69-1602-59777", "A69-1602-59772", "A69-1602-59774", "A69-1602-59773",
"A69-1602-59769", "A69-1602-59778", "A69-1602-59775", "A69-1602-59772",
"A69-1602-59777", "A69-1602-59773", "A69-1602-59774", "A69-1602-59769",
"A69-1602-59778", "A69-1602-59771", "A69-1602-59775", "A69-1602-59777",
"A69-1602-59772", "A69-1602-59773", "A69-1602-59774", "A69-1602-59778",
"A69-1602-59771", "A69-1602-59775", "A69-1602-59772", "A69-1602-59773",
"A69-1602-59777", "A69-1602-59774", "A69-1602-59775", "A69-1602-59778",
"A69-1602-59772", "A69-1602-59777", "A69-1602-59773", "A69-1602-59769",
"A69-1602-59774", "A69-1602-59775", "A69-1602-59772", "A69-1602-59773",
"A69-1602-59777", "A69-1602-59775", "A69-1602-59774", "A69-1602-59769",
"A69-1602-59778", "A69-1602-59771", "A69-1602-59772"), Batch.location = c("Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever",
"Den Oever", "Den Oever", "Den Oever", "Den Oever"), Season = c("Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1",
"Winter1", "Winter1", "Winter1"), Latitude = c(52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343,
52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343
), Longitude = c(5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127,
5.04127, 5.04127, 5.04127, 5.04127), `Distance (km)` = c(0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)), row.names = c(716209L,
1073805L, 1019330L, 812249L, 987220L, 934268L, 840464L, 1156663L,
1226152L, 795888L, 928943L, 1020561L, 1138203L, 807648L, 855925L,
966957L, 1234618L, 1085184L, 846794L, 1129076L, 982617L, 955912L,
1081788L, 1009592L, 814527L, 977839L, 875687L, 842029L, 1102446L,
1229579L, 1085547L, 1000314L, 807813L, 829339L, 885972L, 984860L,
1121520L, 1223695L, 706154L, 973168L, 857036L, 922413L, 1131675L,
1053493L, 1230983L, 947900L, 977889L, 1127631L, 834415L, 1220587L,
722244L, 1061698L, 911860L, 1157213L, 857431L, 989969L, 724411L,
1168275L, 837874L, 982503L, 932847L, 769907L, 1232536L, 1032207L,
846636L, 1209851L, 934974L, 984655L, 746638L, 1229866L, 815912L,
1020860L, 1203162L, 862968L, 898922L, 972024L, 1227411L, 813436L,
1037845L, 835304L, 931295L, 1195324L, 981568L, 1049961L, 1225530L,
839859L, 1141828L, 906338L, 757218L, 969904L, 1026505L, 845489L,
957888L, 1190118L, 1056091L, 981788L, 751164L, 1229692L, 817813L,
856978L), class = "data.frame")
基R
aggregate(`Distance (km)` ~ Transmitter + Batch.location + Season, data = dat, FUN = max)
# Transmitter Batch.location Season Distance (km)
# 1 A69-1602-59769 Den Oever Winter1 0
# 2 A69-1602-59770 Den Oever Winter1 0
# 3 A69-1602-59771 Den Oever Winter1 0
# 4 A69-1602-59772 Den Oever Winter1 0
# 5 A69-1602-59773 Den Oever Winter1 0
# 6 A69-1602-59774 Den Oever Winter1 0
# 7 A69-1602-59775 Den Oever Winter1 0
# 8 A69-1602-59776 Den Oever Winter1 0
# 9 A69-1602-59777 Den Oever Winter1 0
# 10 A69-1602-59778 Den Oever Winter1 0
dplyr
library(dplyr)
dat %>%
group_by(Transmitter, Season, Batch.location) %>%
summarize(`max distance` = max(`Distance (km)`), .groups = "drop")
# # A tibble: 10 x 4
# Transmitter Season Batch.location `max distance`
# <chr> <chr> <chr> <dbl>
# 1 A69-1602-59769 Winter1 Den Oever 0
# 2 A69-1602-59770 Winter1 Den Oever 0
# 3 A69-1602-59771 Winter1 Den Oever 0
# 4 A69-1602-59772 Winter1 Den Oever 0
# 5 A69-1602-59773 Winter1 Den Oever 0
# 6 A69-1602-59774 Winter1 Den Oever 0
# 7 A69-1602-59775 Winter1 Den Oever 0
# 8 A69-1602-59776 Winter1 Den Oever 0
# 9 A69-1602-59777 Winter1 Den Oever 0
# 10 A69-1602-59778 Winter1 Den Oever 0
数据表
library(data.table)
as.data.table(dat)[, .(`max distance` = max(`Distance (km)`)), by = .(Transmitter, Batch.location, Season)]
# Transmitter Batch.location Season max distance
# <char> <char> <char> <num>
# 1: A69-1602-59769 Den Oever Winter1 0
# 2: A69-1602-59776 Den Oever Winter1 0
# 3: A69-1602-59775 Den Oever Winter1 0
# 4: A69-1602-59771 Den Oever Winter1 0
# 5: A69-1602-59774 Den Oever Winter1 0
# 6: A69-1602-59773 Den Oever Winter1 0
# 7: A69-1602-59772 Den Oever Winter1 0
# 8: A69-1602-59777 Den Oever Winter1 0
# 9: A69-1602-59778 Den Oever Winter1 0
# 10: A69-1602-59770 Den Oever Winter1 0
数据
dat <- structure(list(Date = structure(c(18211, 18211, 18211, 18211, 18211, 18211, 18211, 18211, 18211, 18211, 18212, 18212, 18212, 18212, 18212, 18212, 18212, 18212, 18213, 18213, 18213, 18213, 18213, 18213, 18213, 18214, 18214, 18214, 18214, 18214, 18214, 18214, 18214, 18215, 18215, 18215, 18215, 18215, 18215, 18216, 18216, 18216, 18216, 18216, 18216, 18217, 18217, 18217, 18217, 18217, 18217, 18217, 18218, 18218, 18218, 18218, 18218, 18219, 18219, 18219, 18219, 18219, 18219, 18219, 18220, 18220, 18220, 18220, 18220, 18220, 18220, 18220, 18221, 18221, 18221, 18221, 18221, 18221, 18221, 18222, 18222, 18222, 18222, 18222, 18222, 18223, 18223, 18223, 18223, 18223, 18223, 18224, 18224, 18224, 18224, 18224, 18224, 18224, 18224, 18225), class = "Date"), Transmitter = c("A69-1602-59769", "A69-1602-59776", "A69-1602-59775", "A69-1602-59771", "A69-1602-59774", "A69-1602-59773", "A69-1602-59772", "A69-1602-59777", "A69-1602-59778", "A69-1602-59770", "A69-1602-59773", "A69-1602-59775", "A69-1602-59777", "A69-1602-59771", "A69-1602-59772", "A69-1602-59774", "A69-1602-59778", "A69-1602-59776", "A69-1602-59772", "A69-1602-59777", "A69-1602-59774", "A69-1602-59773", "A69-1602-59776", "A69-1602-59775", "A69-1602-59771", "A69-1602-59774", "A69-1602-59773", "A69-1602-59772", "A69-1602-59777", "A69-1602-59778", "A69-1602-59776", "A69-1602-59775", "A69-1602-59771", "A69-1602-59772", "A69-1602-59773", "A69-1602-59774", "A69-1602-59777", "A69-1602-59778", "A69-1602-59769", "A69-1602-59774", "A69-1602-59772", "A69-1602-59773", "A69-1602-59777", "A69-1602-59775", "A69-1602-59778", "A69-1602-59773", "A69-1602-59774", "A69-1602-59777", "A69-1602-59772", "A69-1602-59778", "A69-1602-59769", "A69-1602-59775", "A69-1602-59773", "A69-1602-59777", "A69-1602-59772", "A69-1602-59774", "A69-1602-59769", "A69-1602-59777", "A69-1602-59772", "A69-1602-59774", "A69-1602-59773", "A69-1602-59769", "A69-1602-59778", "A69-1602-59775", "A69-1602-59772", "A69-1602-59777", "A69-1602-59773", "A69-1602-59774", "A69-1602-59769", "A69-1602-59778", "A69-1602-59771", "A69-1602-59775", "A69-1602-59777", "A69-1602-59772", "A69-1602-59773", "A69-1602-59774", "A69-1602-59778", "A69-1602-59771", "A69-1602-59775", "A69-1602-59772", "A69-1602-59773", "A69-1602-59777", "A69-1602-59774", "A69-1602-59775", "A69-1602-59778", "A69-1602-59772", "A69-1602-59777", "A69-1602-59773", "A69-1602-59769", "A69-1602-59774", "A69-1602-59775", "A69-1602-59772", "A69-1602-59773", "A69-1602-59777", "A69-1602-59775", "A69-1602-59774", "A69-1602-59769", "A69-1602-59778", "A69-1602-59771", "A69-1602-59772"), Batch.location = c("Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever", "Den Oever"), Season = c("Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1", "Winter1"), Latitude = c(52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343, 52.92343), Longitude = c(5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127, 5.04127), "Distance (km)" = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)), row.names = c(716209L, 1073805L, 1019330L, 812249L, 987220L, 934268L, 840464L, 1156663L, 1226152L, 795888L, 928943L, 1020561L, 1138203L, 807648L, 855925L, 966957L, 1234618L, 1085184L, 846794L, 1129076L, 982617L, 955912L, 1081788L, 1009592L, 814527L, 977839L, 875687L, 842029L, 1102446L, 1229579L, 1085547L, 1000314L, 807813L, 829339L, 885972L, 984860L, 1121520L, 1223695L, 706154L, 973168L, 857036L, 922413L, 1131675L, 1053493L, 1230983L, 947900L, 977889L, 1127631L, 834415L, 1220587L, 722244L, 1061698L, 911860L, 1157213L, 857431L, 989969L, 724411L, 1168275L, 837874L, 982503L, 932847L, 769907L, 1232536L, 1032207L, 846636L, 1209851L, 934974L, 984655L, 746638L, 1229866L, 815912L, 1020860L, 1203162L, 862968L, 898922L, 972024L, 1227411L, 813436L, 1037845L, 835304L, 931295L, 1195324L, 981568L, 1049961L, 1225530L, 839859L, 1141828L, 906338L, 757218L, 969904L, 1026505L, 845489L, 957888L, 1190118L, 1056091L, 981788L, 751164L, 1229692L, 817813L, 856978L), class = "data.frame")