我的数据如下所示:
library(tidyverse)
df <- tibble(
x_val = c(10.3, 14.3, 18.7)
)
在通过每个x_val
到my_fun
...
my_fun <- function(x) {
x * pi
}
df %>% rowwise() %>% mutate(y_val = my_fun(x_val))
...我得到以下信息:
# A tibble: 3 × 2
x_val y_val
<dbl> <dbl>
1 10.3 32.35840
2 14.3 44.92477
3 18.7 58.74778
我如何反转函数(不只是除以 pi!因为我的实际函数要复杂得多)以找到合适的值x_val
来获得y_val
最接近的integer - 0.01
.. 来实现x.99
:
32.99
44.99
58.99