rmse(1:10+rnorm(10), 1:10+rnorm(10))
rmse(matrix(1:100+rnorm(100), ncol=5), matrix(1:100+rnorm(100), ncol=5))
freq(sample(1:4, 100, replace=TRUE), 5:1)
freq(sample(1:4, 100, replace=TRUE), 1:5)
hermite.gauss()
Run the code above in your browser using DataLab