| Revisión | 95c71ad1353861725e95b21cdfc50843db826411 (tree) |
|---|---|
| Tiempo | 2025-01-15 02:13:46 |
| Autor | Lorenzo Isella <lorenzo.isella@gmai...> |
| Commiter | Lorenzo Isella |
I added a comment.
R-codes/shiny_pointblank_input.R (diff)| @@ -2,6 +2,17 @@ | ||
| 2 | 2 | library(dplyr) |
| 3 | 3 | library(pointblank) |
| 4 | 4 | |
| 5 | + | |
| 6 | +## save | |
| 7 | +## data <- tibble( | |
| 8 | +## a = c(100, 150, 200, 105, 70), | |
| 9 | +## b = c(102, 148, 210, 110, 500) | |
| 10 | +## ) | |
| 11 | + | |
| 12 | +## somewhere on your system as a csv file | |
| 13 | + | |
| 14 | + | |
| 15 | + | |
| 5 | 16 | # Define the custom function in the global environment |
| 6 | 17 | equal_within <- function(x, y, percent) { |
| 7 | 18 | abs(x - y) / abs(pmin(x, y)) <= percent / 100 |
Fork