## Tracking data of two green turtles
data(turtle); data(turtle2)
## Filter data
d1 <- ddfilter(dupfilter(turtle))
d2 <- ddfilter(dupfilter(turtle2))
## Combine two data
d <- list(d1, d2)
if (FALSE) {
## Generate a kmz file from each tracking data
shp <- 'http://maps.google.com/mapfiles/kml/pal2/icon18.png'
for(i in 1:2){
# labels for points (date and time)
pn <- d[[i]]$DateTime
# Apply a colour gradient to points based on the date and time
pt_col <- hcl.colors(n = nrow(d[[i]]), palette = 'Zissou 1')
# Generate a kmz file
to_kmz(d[[i]], shape = shp, colour_scale = pt_col, colour = pn, points_names = pn, LabelScale = 0)
}
}
Run the code above in your browser using DataLab