Week5 Functions

Author

Jonas Amacher

Task 1: Write your own functions

BMI

for 88 kg, 1.77m

[1] 28.08899
[1] "your BMI is: 28.0889910306745"

Fahrenheit

25°C are the same as

[1] "Temperature 77 °F"

Euclidean distance

between P1 = (0,0) and P2 = (3,4)

[1] 5

Task 2: Prepare Analysis

# A tibble: 10 × 6
   TierID TierName CollarID DatetimeUTC                E        N
   <chr>  <chr>       <dbl> <dttm>                 <dbl>    <dbl>
 1 002A   Sabi        12275 2015-04-01 00:00:11 2570372. 1205313.
 2 002A   Sabi        12275 2015-04-01 00:15:22 2570309. 1205262.
 3 002A   Sabi        12275 2015-04-01 00:30:11 2570326. 1205248.
 4 002A   Sabi        12275 2015-04-01 00:45:16 2570315. 1205242.
 5 002A   Sabi        12275 2015-04-01 01:00:44 2570323. 1205237.
 6 002A   Sabi        12275 2015-04-01 01:15:17 2570320. 1205247.
 7 002A   Sabi        12275 2015-04-01 01:30:22 2570324. 1205237.
 8 002A   Sabi        12275 2015-04-01 01:45:47 2570307. 1205250.
 9 002A   Sabi        12275 2015-04-01 02:00:17 2570292. 1205262.
10 002A   Sabi        12275 2015-04-01 02:15:12 2570354. 1205297.

Task 3: Create Join Key

# A tibble: 10 × 7
   TierID TierName CollarID DatetimeUTC                E        N
   <chr>  <chr>       <dbl> <dttm>                 <dbl>    <dbl>
 1 002A   Sabi        12275 2015-04-01 00:00:11 2570372. 1205313.
 2 002A   Sabi        12275 2015-04-01 00:15:22 2570309. 1205262.
 3 002A   Sabi        12275 2015-04-01 00:30:11 2570326. 1205248.
 4 002A   Sabi        12275 2015-04-01 00:45:16 2570315. 1205242.
 5 002A   Sabi        12275 2015-04-01 01:00:44 2570323. 1205237.
 6 002A   Sabi        12275 2015-04-01 01:15:17 2570320. 1205247.
 7 002A   Sabi        12275 2015-04-01 01:30:22 2570324. 1205237.
 8 002A   Sabi        12275 2015-04-01 01:45:47 2570307. 1205250.
 9 002A   Sabi        12275 2015-04-01 02:00:17 2570292. 1205262.
10 002A   Sabi        12275 2015-04-01 02:15:12 2570354. 1205297.
# ℹ 1 more variable: DatetimeRound <dttm>

Task 4: Measuring distance at concurrent locations

# A tibble: 10 × 15
   TierID_rosa TierName_rosa CollarID_rosa DatetimeUTC_rosa      E_rosa   N_rosa
   <chr>       <chr>                 <dbl> <dttm>                 <dbl>    <dbl>
 1 016A        Rosa                  13972 2015-04-02 04:45:15 2570399. 1205393.
 2 016A        Rosa                  13972 2015-04-02 05:00:12 2570395. 1205393.
 3 016A        Rosa                  13972 2015-04-02 18:00:17 2570396. 1205388.
 4 016A        Rosa                  13972 2015-04-02 18:30:13 2570350. 1205396.
 5 016A        Rosa                  13972 2015-04-03 04:00:15 2570394. 1205391.
 6 016A        Rosa                  13972 2015-04-03 04:15:10 2570395. 1205397.
 7 016A        Rosa                  13972 2015-04-03 04:45:11 2570396. 1205396.
 8 016A        Rosa                  13972 2015-04-03 05:45:44 2570393. 1205398.
 9 016A        Rosa                  13972 2015-04-03 06:00:15 2570387. 1205402.
10 016A        Rosa                  13972 2015-04-03 06:15:09 2570392. 1205398.
# ℹ 9 more variables: DatetimeRound <dttm>, TierID_sabi <chr>,
#   TierName_sabi <chr>, CollarID_sabi <dbl>, DatetimeUTC_sabi <dttm>,
#   E_sabi <dbl>, N_sabi <dbl>, Euclid_dist <dbl>, spatially_close <lgl>

Task 5: Visualize data

Demo

My age:

Time difference of 13012.04 days