固定偏差的随机数生成

有个客户的需求比较奇怪?

#你希望对原始数据中的每个数添加一个在[-0.05, 0.05]范围内的随机扰动。

#inmt
textConnection( 
  '
1.5  1.7  1.9    2

'   )  %>%scan()  %>% sapply (., function(x) x +  runif(.,min = -0.05, max = 0.05)  )

####asma
textConnection( 
  '
0.86
0.81
0.7
0.5
0.37

'   )  %>%scan()  %>% sapply (., function(x) x +  runif(.,min = -0.07, max = 0.06)  )



#你希望对原始数据中的每个数添加一个在[-0.05, 0.05]范围内的随机扰动。

textConnection( 
  '
0.25 0.75 0.15 0.70

'   )  %>%scan()  %>% sapply (., function(x) x +  runif(1,min = -0.05, max = 0.05)  )