66
for (i in 1:length(uniqueids))f
for (j in 1:4)f
recs <- which(ANIMALID==uniqueids[i] & SEASON==j)
if (length(recs) >30) f
cat(”kde(in=n”telemetry.shpn”, out=n”kde
”, uniqueids[i], ”seas”, j, ”.imgn”, bandwidth=n”SCVn”,
cellsize=20, where=n”ANIMALID=’”, uniqueids[i], ”’ ANDSEASON=”, j, ”n”);nn”, sep=””)
ggg
If the uniquevalues vector wasc("M01","F01","M02","F02","J01"),forinstance,but that
only animalM01hadany datainseason4, that wouldresult in thesecommands being written
to the R window from where they can be copied and pasted into GME and run:
kde(in=”telemetry.shp”, out=”kde
M01seas1.img”, bandwidth=”SCV”, cellsize=20,
where=”ANIMALID=’M01’ AND SEASON=1”);
kde(in=”telemetry.shp”, out=”kde
M01seas2.img”, bandwidth=”SCV”, cellsize=20,
where=”ANIMALID=’M01’ AND SEASON=2”);
kde(in=”telemetry.shp”, out=”kde
M01seas3.img”, bandwidth=”SCV”, cellsize=20,
where=”ANIMALID=’M01’ AND SEASON=3”);
kde(in=”telemetry.shp”, out=”kde
M01seas4.img”, bandwidth=”SCV”, cellsize=20,
where=”ANIMALID=’M01’ AND SEASON=4”);
kde(in=”telemetry.shp”, out=”kde
F01seas1.img”, bandwidth=”SCV”, cellsize=20,
where=”ANIMALID=’F01’ AND SEASON=1”);
kde(in=”telemetry.shp”, out=”kde
F01seas2.img”, bandwidth=”SCV”, cellsize=20,
where=”ANIMALID=’F01’ AND SEASON=2”);
kde(in=”telemetry.shp”, out=”kde
F01seas3.img”, bandwidth=”SCV”, cellsize=20,
where=”ANIMALID=’F01’ AND SEASON=3”);
kde(in=”telemetry.shp”, out=”kde
F01seas4.img”, bandwidth=”SCV”, cellsize=20,
where=”ANIMALID=’F01’ AND SEASON=4”);
kde(in=”telemetry.shp”, out=”kde
M02seas1.img”, bandwidth=”SCV”, cellsize=20,
where=”ANIMALID=’M02’ AND SEASON=1”);
kde(in=”telemetry.shp”, out=”kde
M02seas2.img”, bandwidth=”SCV”, cellsize=20,
where=”ANIMALID=’M02’ AND SEASON=2”);
kde(in=”telemetry.shp”, out=”kde
M02seas3.img”, bandwidth=”SCV”, cellsize=20,
where=”ANIMALID=’M02’ AND SEASON=3”);
kde(in=”telemetry.shp”, out=”kde
M02seas4.img”, bandwidth=”SCV”, cellsize=20,
where=”ANIMALID=’M02’ AND SEASON=4”);
kde(in=”telemetry.shp”, out=”kde
F02seas1.img”, bandwidth=”SCV”, cellsize=20,
where=”ANIMALID=’F02’ AND SEASON=1”);
kde(in=”telemetry.shp”, out=”kde
F02seas2.img”, bandwidth=”SCV”, cellsize=20,
where=”ANIMALID=’F02’ AND SEASON=2”);
kde(in=”telemetry.shp”, out=”kde
F02seas3.img”, bandwidth=”SCV”, cellsize=20,
where=”ANIMALID=’F02’ AND SEASON=3”);
kde(in=”telemetry.shp”, out=”kde
F02seas4.img”, bandwidth=”SCV”, cellsize=20,
where=”ANIMALID=’F02’ AND SEASON=4”);
kde(in=”telemetry.shp”, out=”kde
J01seas1.img”, bandwidth=”SCV”, cellsize=20,
where=”ANIMALID=’J01’ AND SEASON=1”);
kde(in=”telemetry.shp”, out=”kde
J01seas2.img”, bandwidth=”SCV”, cellsize=20,
where=”ANIMALID=’J01’ AND SEASON=2”);
13