Fix bug of Barnett's location features

pull/95/head
Meng Li 2020-04-07 11:22:04 -04:00
parent 3986f4e185
commit 8d4a0718e8
1 changed files with 2 additions and 2 deletions

View File

@ -22,10 +22,10 @@ function(out){
} }
if(l1+l2==0){phatall=length(ID2)/(length(ID1)+length(ID2))} if(l1+l2==0){phatall=length(ID2)/(length(ID1)+length(ID2))}
#flight distances #flight distances
fd=apply(out[ID1,],1,function(xx) sqrt((xx[2]-xx[5])^2+(xx[3]-xx[6])^2)) fd=apply(matrix(out[ID1,],ncol=7),1,function(xx) sqrt((xx[2]-xx[5])^2+(xx[3]-xx[6])^2))
# flight times: ft # flight times: ft
ft=apply(out[ID1,],1,function(xx) (xx[7]-xx[4])) ft=apply(matrix(out[ID1,],ncol=7),1,function(xx) (xx[7]-xx[4]))
fxs=out[ID1,2] fxs=out[ID1,2]
fys=out[ID1,3] fys=out[ID1,3]
# flight angles range [0,2pi]: fa # flight angles range [0,2pi]: fa