假设有一百万个数字的对象：c（1：1000000） 这些c（78,460，...，999390,999612）的10000个元素子集理想地由数字c（1：10000）代替。
total<-c(1:1000000)
out<-c(78,460,...,999390,999612)
in<-c(1:10000)
# to reach output:
total<-c(1:77,1,79:459,2,461:...etc)
我可以使用total==78|total==460|total==...|etc创建一个非常长的逻辑，但这需要很长时间才能运行。我的gsub，subset和lapply次尝试未取得成功。有没有人有一个好的解决方案？
提前谢谢!!
红色