我正在为这个简单的任务而苦苦挣扎
我有一个向量列表，我想提取一个范围内的值，比如说 1700 到 6200 之间。
sample <- list(c(1062, 1084, 1104, 1130, 1143, 1178, 1193, 1209, 1233,
1276, 1315, 1458, 1752, 2027, 2483, 2598, 2713, 3196, 3780, 4448,
4937, 5070, 5734, 6347, 6859, 6963), c(1101, 1125, 1153, 1166,
1201, 1214, 1257, 1281, 1315, 1351, 1493, 1786, 2061, 2514, 2559,
2583, 2628, 2742, 3185, 3223, 3801, 4469, 4954, 5090, 5753, 6364,
6874, 6978))
sapply(sample, function(x) x[x > 1700])
sapply(sample, function(x) x[x < 6200])
如何将这两个功能合二为一？
sapply(sample, function(x) x[x > 1700] & x[x<6200])
不起作用，为什么？我错过了什么？