5/19/2023 0 Comments Circuli increments![]() ![]() Convert # days at sea to julian days and name JdayInt. Calculate the the number of days between emigration date and recapture date. Convert emigration and recapture dates to julian date. Left_join(calcreleasedatesdf,by="Batch_TagID") %>%ĭplyr::select(JoinID,Batch_TagID,RecaptureYear,RecaptureDate,SeaAge,RecaptureType,ReleaseYear,Īdd “SolsticeDateY1”, then convert to julian date (December 21). Remove fish with unknown recapture or emigration dates. Mutate(EmigrationDate = as.Date(EmigrationDate))Īdd release dates dataframe to full growth dataframe. Mutate(EmigrationDate = do.call("c",lapply(calcreleasedatesdf$DateInt, int_midpoint))) %>% Add it to the dataframe as “EmigrationDate.” int_midpoint % Calculate midpoint of release interval using “int_midpoint” function. Write function to calculate midpoint of interval. #max(calcreleasedatesdf$JdayInt,na.rm = TRUE) max = 213 #min(calcreleasedatesdf$JdayInt,na.rm = TRUE) min = 0 #mean(calcreleasedatesdf$JdayInt,na.rm = TRUE) mean = 7.9 #Number of days between Release Day 1 and Release Date 2 Carlin_full_growth%ĭplyr::mutate(DateInt = lubridate::interval(lubridate::ymd(ReleaseDate1),lubridate::ymd(ReleaseDate2),tzone = "America/New_York")) %>%ĭplyr::mutate(RdayInt = lubridate::as.period(DateInt,unit = "days")) %>%ĭplyr::mutate(RdayInt = lubridate::day(RdayInt)) ![]() Calculate monthly growth increments LGCarlson ![]()
0 Comments
Leave a Reply. |