Вы можете написать свою собственную функцию равномерного распределения, которая включает в себя конечные точки, используя функцию sample
:
myrunif <- function(n, min=0, max=1) {
min + (sample(.Machine$integer.max, n) - 1) / (.Machine$integer.max - 1) *
(max - min)
}
С помощью этой функции каждая конечная точка имеет небольшую вероятность, 1/(.Machine$integer.max-1)
, возврата .
Однако стоит вспомнить, что математически вероятность рисования a или b (или любого конкретного значения) из случайной величины U (a, b) равна 0, поэтому текущее поведение runif
имеет большой смысл.