Add functions ROCdat.R and scale.prev.R