junos
/
rapids
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/features/location_barnett/InitializeParams.R
View File

@ -22,10 +22,10 @@ function(out){
}
if(l1+l2==0){phatall=length(ID2)/(length(ID1)+length(ID2))}
#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
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]
fys=out[ID1,3]
# flight angles range [0,2pi]: fa