Signal/Noise ratio
SNR(x, y)
x
Original reference signal.
y
Restored or noisy signal.
Signal/Noise ratio.
n <- 2^4 x <- MakeSignal('HeaviSine', n) y <- x + rnorm(n, mean=0, sd=1) SNR(x, y)