ベクトルの最長順序部分の最初のインデックス

Question

ベクトルの最も長い順序部分を抽出することを検討しています。したがって、このベクターを用いた例：

x <- c(1,2,1,0.5,1,4,2,1:10) 
x 
[1] 1.0 2.0 1.0 0.5 1.0 4.0 2.0 1.0 2.0 3.0 4.0 5.0 6.0 7.0 8.0 9.0 10.0 

私はいくつかの関数を適用したい、次のように返されます：

x_ord <- some_func(x) 
x_ord 
[1] 1.0 2.0 3.0 4.0 5.0 6.0 7.0 8.0 9.0 10.0 

私はベクトルがノーであるどの時点で判断するためにis.unsorted()を活用しようとしてきました長いソート。ここに私の厄介な試みであり、私がこれまで持っているものは：10を生産していない右x_ordとして

for(i in 1:length(x)){ 
    if(is.unsorted(x[i:length(x)])==TRUE){ 
    cat(i,"\n")} 
    else{x_ord=print(x[i])} 
} 

しかし、これは明らかです。私が最初に増加配列を同定する上で立ち往生していても今

x2 <- c(1,2,1,0.5,1,4,2,1:10,2,3) 

：私はまた、これは、より一般的にすると、このようなベクトル何かを同様後に順序付けられたシーケンスを非増えをカバーするために期待しています言及されたベクター。

アイデア？

Answer 1

これは動作するようです：

s = 1L + c(0L, which(x[-1L] < x[-length(x)]), length(x)) 
w = which.max(diff(s)) 

x[s[w]:(s[w+1]-1L)] 
# 1 2 3 4 5 6 7 8 9 10 

sは、実行が開始場所です、プラスlength(x)+1、便宜上：

• 最初の実行がある1つの
• その後の実行が開始から始まりますドロップ
• length(x)+1をタックし、ベクトルが継続する場合は次の実行が開始されます

diff(s)は、runsの長さであり、which.maxは、最初の最大化を取り、結び目を破る。

s[w]は、選択した実行の開始点です。 s[w+1L]は次の実行の開始点です。選択された実行に属する番号を取得するには：s[w]:(s[w+1]-1L)。

---

代わりに、分割し、目的のサブベクトルを選択：

sp = split(x, cumsum(x < c(-Inf, x[-length(x)]))) 
sp[[which.max(lengths(sp))]] 
# 1 2 3 4 5 6 7 8 9 10