individuals = paste(c('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J'), c(1:10), sep = "")
for (individual in individuals) {
lat = vector("numeric", 24)
long = vector("numeric", 24)
lat[1] = rnorm(1, mean = 26, sd = 2)
long[1] = rnorm(1, mean = -35, sd = 3)
for (i in 2:24) {
lat[i] = lat[i - 1] + rnorm(1, mean = 0, sd = 1)
long[i] = long[i - 1] + rnorm(1, mean = 0, sd = 1)
}
times = seq(from=as.POSIXct("2016-02-26 00:00", tz="UTC"),
to=as.POSIXct("2016-02-26 23:00", tz="UTC"),
by="hour")
df = data.frame(date = "2016-02-26",
collar = individual,
time = times,
lat = lat,
long = long)
write.csv(df, paste("collar-data-", individual, "-2016-02-26.txt", sep = ""))
}
zip("data/individual_collar_data.zip", list.files(pattern = "collar-data-[A-Z][0-9]+-.*"))