library("fracture")
fracture(0.5)
#> [1] 1/2
fracture(0.25) + fracture(0.11)
#> [1] 9/25
sqrt(fracture(0.25))
#> [1] 1/2
fracture((1:12) / 12)
#> [1] 1/12 1/6 1/4 1/3 5/12 1/2 7/12 2/3 3/4 5/6 11/12 1/1
fracture((1:12) / 12, common_denom = TRUE)
#> [1] 1/12 2/12 3/12 4/12 5/12 6/12 7/12 8/12 9/12 10/12 11/12 12/12
fracture((1:12) / 12, denom = 100)
#> [1] 8/100 17/100 25/100 33/100 42/100 50/100 58/100 67/100 75/100
#> [10] 83/100 92/100 100/100
fracture(1 / (2:9), base_10 = TRUE)
#> [1] 5/10 3333333/10000000 25/100 2/10
#> [5] 1666667/10000000 1428571/10000000 125/1000 1111111/10000000
fracture(1 / (2:9), base_10 = TRUE, max_denom = 1000)
#> [1] 5/10 333/1000 25/100 2/10 167/1000 143/1000 125/1000 111/1000
fracture(1 / (2:9), base_10 = TRUE, common_denom = TRUE, max_denom = 1000)
#> [1] 500/1000 333/1000 250/1000 200/1000 167/1000 143/1000 125/1000 111/1000
fracture((1:9) / 3, mixed = TRUE)
#> [1] "1/3" "2/3" "1" "1 1/3" "1 2/3" "2" "2 1/3" "2 2/3" "3"
fracture(c(0.5, NA, 1.5))
#> [1] "1/2" NA "3/2"
frac_style(fracture((1:9) / 3, mixed = TRUE))
#> [1] "¹/₃" "²/₃" "1" "1 ¹/₃" "1 ²/₃" "2" "2 ¹/₃" "2 ²/₃" "3"Created on 2021-11-02 by the reprex package (v2.0.1)