frbl

data <- c(1,2,1,3,2,1,2,3)
intervals <- c(0.1, 0.3, 0.6,1)
runif(data, intervals[data], intervals[data+1])

# Test if the output is correct:
check <- all(unlist(lapply(1:length(data), function(i) {res[i] >= intervals[data[i]] & res[i] <= intervals[data[i] + 1]})))
expect_true(check)

frbl

Keybase proof

I hereby claim:

• I am frbl on github.
• I am frbl (https://keybase.io/frbl) on keybase.
• I have a public key whose fingerprint is 8756 D347 8013 8489 9210 FDD0 1BC7 5A3E 743F 90E1

To claim this, I am signing this object:

frbl

cat index.fdb_latexmk | grep .sty | awk -F' ' '{print $1}' | awk -F'"' '{print $2}' | xargs -J % cp % ~/test