This should be easy but it does not work
I have 3 vectors*(activeT,inactT, activeR)*,
the idea is that if the last value in inactT is higher than the last in
activeT
this value has to be append in active T
and the last value in another vector call activeR has to be repeated.
(at the bottom you can find the vectors)
I have done this:

activeT=round(as.numeric(activeT))
inactT= round(as.numeric(inactT))
lastV<-round(as.numeric(tail(lat,1)))
lastA<-round(as.numeric(tail(activeT,1)))
lastI<-round(as.numeric(tail(inactT,1)))

if (lastV!=lastA){
append(lastV, activeT)
lastR=tail(activeR,1)
append(activeR,lastR)
}

lastR has been appended to activeR
but not lastV to activeV

I guess that this is related to the attributes of the vectors this is why I
applied as.numeric at all the vectors.

Thank you for you time and your patience
:)
Claudio

*this are the vectors:*
> activeT
 [1]    26.11   341.11   376.11   459.11   466.21   532.11   935.11  1163.11

 [9]  1721.11  6167.11  6513.11  7114.21  7225.11  7254.11  7728.11  7964.11

[17]  8630.11  8803.11  9186.11  9453.11 10132.11 10669.21 11326.11 11486.11

[25] 11508.11 11711.11 11726.11 13450.11 13465.11 15965.11 15979.11 16324.11

[33] 16827.11 16959.11 17809.11 19048.21 22673.11 23268.11 32596.11 33148.11

[41] 46717.11

> inactT
 [1] "316.13"   "656.13"   "6378.13"  "8098.13"  "8099.13"  "10755.13"
 [7] "11440.13" "15463.13" "22474.13" "22600.13" "27936.13" "27944.13"
[13] "30757.13" "32503.13" "32506.13" "32522.13" "33082.13" "51436.13"


> activeR
 [1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
25
[26] 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

	[[alternative HTML version deleted]]

