# NOT RUN {
as_pc(.50) # => 50
as_pc(1/3) # => 33.33
as_pc(1/3, n.digits = 0) # => 33
as_pc(pi) # => 314.16 + Warning that prob is not in range.
as_pc(as_pb(12.3)) # => 12.3
prob.seq <- seq(0, 1, by = 1/10)
perc.seq <- seq(0, 100, by = 10)
as_pc(prob.seq) # => 0 10 20 30 40 50 60 70 80 90 100
as_pb(perc.seq) # => 0.0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1.0
perc.seq == as_pc(as_pb(perc.seq)) # => all TRUE
prob.seq == as_pb(as_pc(prob.seq)) # => some FALSE due to rounding errors!
round(prob.seq, 4) == as_pb(as_pc(prob.seq)) # => all TRUE (both rounded to 4 decimals)
# }
Run the code above in your browser using DataLab