Calculate gestational age given crown-rump length and/or head circumference and femur length based on ultrasound

Usage

calculate_gestage(date = Sys.Date(), crl = NULL, hc = NULL, fl = NULL)

Arguments

date: Date when measurement/s was/were taken. Defaults to current date.
crl: Crown-rump length measurement in millimetres
hc: Head circumference measurement in millimetres
fl: Femur length measurement in millimetres

Value

A list of 3 elements containing 1) gestational age in weeks (numeric); 2) gestational age in weeks and days (character); and, 3) expected date of delivery (date).

Examples

calculate_gestage(date = "2016-23-12", crl = 17)
#> Estimating gestational age using crown-rump length of 17 mm.
#> [[1]]
#> [1] 8.585092
#> 
#> [[2]]
#> [1] "8 weeks and 4 days"
#> 
#> [[3]]
#> [1] "2017-07-31"
#> 
calculate_gestage(date = "2016-23-12", hc = 130, fl = 20)
#> Estimating gestational age using head circumference of 130 mm and femur length of 20 mm.
#> [[1]]
#> [1] 16.36685
#> 
#> [[2]]
#> [1] "16 weeks and 2 days"
#> 
#> [[3]]
#> [1] "2017-06-07"
#>