## Not run:
# library(raster)
# # set up MKDE object
# data(pandadem)
# cell.sz <- mean(res(pandadem))
# ext <- extent(pandadem)
# nx <- ncol(pandadem)
# ny <- nrow(pandadem)
# mkde.obj <- initializeMKDE2D(ext@xmin, cell.sz, nx, ext@ymin, cell.sz, ny)
#
# # set up movement data
# data(panda)
# mv.dat <- initializeMovementData(panda$time, panda$x, panda$y,
# sig2obs=25.0, t.max=185.0)
#
# # estimate density
# dens.res <- initializeDensity(mkde.obj, mv.dat)
# mkde.obj <- dens.res$mkde.obj
# mv.dat <- dens.res$move.dat
# mkde.rst <- mkdeToRaster(mkde.obj)
# plot(mkde.rst)
# ## End(Not run)
Run the code above in your browser using DataLab