Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- geostats =
- {{DateObject[{2013, 12, 5, 13, 47, 19.822}, "Instant","Gregorian", 10.], "VIC", -37.8004, 144.984, 100.},
- {DateObject[{2013, 12, 5, 20, 44, 57.715}, "Instant", "Gregorian", 10.], "VIC", -36.9902, 144.063, 100.},
- {DateObject[{2015, 3, 27, 15, 38, 46.051}, "Instant", "Gregorian", 10.], "NSW", -33.7495, 151.065, 60.},
- {DateObject[{2015, 4, 29, 16, 05, 10.006}, "Instant", "Gregorian", 10.], "NSW", -33.8261, 151.199, 106.},
- {DateObject[{2013, 6, 17, 20, 25, 34.948}, "Instant", "Gregorian", 10.], "SA", -34.9266, 138.512, 25.},
- {DateObject[{2017, 7, 21, 20, 01, 42.497}, "Instant", "Gregorian", 10.], "VIC", -38.3296, 144.263, 10.},
- {DateObject[{2016, 09, 25, 21, 27, 40.98}, "Instant", "Gregorian", 10.], "QLD", -27.4635, 152.98, 106.},
- {DateObject[{2014, 10, 31, 15, 19, 59.965}, "Instant","Gregorian", 10.], "VIC", -37.9829, 145.065, 31.8}}
- state[s_String] := Switch[s, "VIC", "Victoria", "NSW", "New South Wales", "SA",
- "South Australia", "QLD", "Queensland"];
- geostats = geostats /. {s_, t_, u_, v_, w_} :>
- {s, Entity["AdministrativeDivision", {state[t], "Australia"}], GeoPosition[{u, v}], w}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement