indexing - R - Index position with condition -



indexing - R - Index position with condition -

i've info frame

w<-c(0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,0)

i index position starting after value 1.

output : na,na,na,na,na,1,2,3,4,5,6,7,1,2,3,4,5,1,2,3,4,5,6,7,8,9

ideally applicable info frame.

thanks

edit : w info frame,

roughly function

m<-as.data.frame(w) m[m!=1] <- row(m)[m!=1] m w 1 1 2 2 3 3 4 4 5 5 6 1 7 7 8 8 9 9 10 10 11 11 12 12 13 1 14 14 15 15 16 16 17 17 18 1 19 19 20 20 21 21 22 22 23 23 24 24 25 25 26 26

but homecoming 1 when value 1 matching.

> m w wanted 1 1 na 2 2 na 3 3 na 4 4 na 5 5 na 6 1 1 7 7 2 8 8 3 9 9 4 10 10 5 11 11 6 12 12 7 13 1 1 14 14 2 15 15 3 16 16 4 17 17 5 18 1 1 19 19 2 20 20 3 21 21 4 22 22 5 23 23 6 24 24 7 25 25 8 26 26 9

thanks

for given info including repeated 1's , non-sequential input, next works:

m[9,1] <- 100 m[3,1] <- 55 m[14,1] <- 60 m[14,1] <- 60 m[25,1] <- 1 m[19,1] <- 1 m$result <- 1:nrow(m) - which(m$w == 1)[cumsum(m$w == 1)] + 1

but if info not start on 1:

m[1,1] <- 2

then works:

firstone <- which(m$w == 1)[1] subindex <- m[firstone:nrow(m),'w'] == 1 m$result <- c(rep(na,firstone-1),1:length(subindex) - which(subindex)[cumsum(subindex)] + 1)

r indexing condition

Comments

Post a Comment

Popular posts from this blog

Delphi change the assembly code of a running process -

Delphi change the assembly code of a running process - i'm trying alter address 00741fa5 has push test.009e721c . alter push test.009e71c8 . procedure callback; asm force $9e71c8 end; procedure tform2.btn1click(sender: tobject); var ppid :dword; pprocess : cardinal; begin getwindowthreadprocessid(findwindow(nil,pchar('test')), @ppid); pprocess := openprocess(process_all_access, false, ppid); injectasm(pprocess, $741fa5, 10, integer(@callback), 0); end; here injectasm function (with error checking) function injectasm(process: longword; injectaddress, injectsize, codeaddress, codesize : integer): pointer; var csize, rsize : integer; replaced : array of byte; jmp : array [0..4] of byte; jmpaddress : integer; nopv : byte; : integer; nbr: ulong_ptr; begin //injectsize must equal or greater 5, because need space our //(far) jmp wwxxyyzz instruction //if there's no space, inject in place of few instructions if injectsize ...
Read more

json - Hibernate and Jackson (java.lang.IllegalStateException: Cannot call sendError() after the response has been committed) -

json - Hibernate and Jackson (java.lang.IllegalStateException: Cannot call sendError() after the response has been committed) - hello have problem hibernate , jackson. have 2 pojos @entity @table(name = "users") public class user implements serializable { static final long serialversionuid = 4235637833262722256l; @id @generatedvalue private int id; @column(name = "creation_date") private date creationdate; @column(name = "first_name") private string firstname; @column(name = "last_name") private string lastname; @version @column(name = "version") private int version; @column(name = "e_mail") private string email; @column(name = "enabled") private boolean enabled; @column(name = "login") private string login; @column(name = "password") private string password; @jsonmanagedreference("role") @onetomany(mappedby = "user", cascade = cascadetype.all,fetch = fetchtyp...
Read more

C++ 11 "class" keyword -

C++ 11 "class" keyword - i've started using c++ 11 little bit more , have few questions on special uses of class keyword. know it's used declare class, there's 2 instances have seen don't understand: method<class t>(); and class class_name *var; why precede typename keyword class in first example, , keyword pointer in sec example? that known elaborated type specifier , necessary when class name "shadowed" or "hidden" , need explicit. class t { }; // love of god don't t t; t t2; if compiler smart, give these warnings: main.cpp:15:5: error: must utilize 'class' tag refer type 't' in scope t t2; ^ class main.cpp:14:7: note: class 't' hidden non-type declaration of 't' here t t; ^ if class not defined, deed forwards declaration. for example: template <typename t> void method() { using type = typename t::value_type; } method...
Read more