# \donttest{
# load data
data("TracksCleaned")
# loop movegroup and scaleraster through tide subsets
tide <- c("H", "M", "L")
for (i in tide) {
dir.create(file.path(tempdir(), i))
movegroup(
data = TracksCleaned[TracksCleaned$T.Ph == i, ],
ID = "Shark",
Datetime = "Datetime",
Lat = "Lat",
Lon = "Lon",
savedir = file.path(tempdir(), i, "/"))
scaleraster(path = file.path(tempdir(), i),
crsloc = file.path(tempdir(), i))
}
alignraster(folderroots = file.path(tempdir(), tide),
foldernames = tide,
savefolder = file.path(tempdir(), "Aligned"))
# }
Run the code above in your browser using DataLab