14 lines
365 B
R
14 lines
365 B
R
|
Hometime <-
|
||
|
function(mat,slout,CENTERRAD){
|
||
|
IDhome=which(slout$home==1)
|
||
|
xcenter=slout[IDhome,1]
|
||
|
ycenter=slout[IDhome,2]
|
||
|
tottime=0
|
||
|
for(i in 1:nrow(mat)){
|
||
|
if(mat[i,1]==2 && sqrt((mat[i,2]-xcenter)^2+(mat[i,3]-ycenter)^2)<CENTERRAD){ ### error missing value where true/false needed
|
||
|
tottime=tottime+mat[i,7]-mat[i,4]
|
||
|
}
|
||
|
}
|
||
|
return(tottime/60)
|
||
|
}
|