sei folgender Datensatz gegeben:
Code: Alles auswählen
Data_Sample<-data.table(c(0,90,rep(-1,10)),c(rep(1,12)))
Sollte eigentlich trivial sein, leider komme ich momentan nicht dahinter, meine gescheiterne Ansätze soweit die folgende:
Code: Alles auswählen
Data_Sample[2, test_var:= ifelse(V1>0, 1,0), V2]
Data_Sample[,ifelse(max(test_var)==1, Data_Sample[-1,],Data_Sample), V2]
[1] NA
Code: Alles auswählen
Data_Sample[, test_var:= ifelse(last(head(V1,2))>0, 1,0), V2]
Regression