splot: Function to calculate reflectivity from raw Monochromator...
In tjconstant/photonMonkey: Misc Tools for Photonics

Divides the signal by a reference spectra

1	splot(data, ref, dkf)

`data`	raw variable from imported data.dat file
`ref`	raw variable from imported ref.dat file
`dkf`	raw variable from imported dkf.dat file (dark field reading)

## The function is currently defined as
function (data, ref, dkf) 
{
    d <- data[, 3] - mean(dkf[, 3])
    r <- ref[, 3] - mean(dkf[, 3])
    dr <- data[, 4] - mean(dkf[, 4])
    rr <- ref[, 4] - mean(dkf[, 4])
    normData <- (d/r)
    normRef <- (dr/rr)
    par(mfrow = c(2, 2))
    par(mfrow = c(1, 1))
    return(normData/normRef)
  }