Displaying 1 result from an estimated 1 matches for "d_ltraj".
2012 Dec 07
0
apply a function at: dateX, dateX+1, dateX+2, ....
...myframesxy)
myframe3$Longitude <- NULL
myframe3$Latitude <- NULL
myframe3
str(myframe3)
# and this is what I did with the help of Dennis Murphy last week:
myframe3$day <- as.Date(myframe3$myframestime)
hrfun <- function(d)
{
dxy <- d[, c("Long", "Lat")]
d_ltraj <- as.ltraj(dxy, d$myframestime, id = d$AnimalID)
dLiker <- liker (d_ltraj, sig2 = 18, rangesig1= c(1, 100) )
dBB <- kernelbb(d_ltraj, sig1=dLiker$Ernie$sig1, sig2=18)
data.frame(AnimalID = unique(d$AnimalID), day = unique(d$day), h =
kernel.area(dBB, unout=c("km2")))
}...