require(dielectric) ; data(AgPalik)
wvl <- seq(300, 900)
silver <- epsAg(wvl)
matplot(silver$wavelength, cbind(Re(silver$epsilon), Im(silver$epsilon)), t="l", lty=1)
matpoints(AgPalik$wavelength, cbind(Re(AgPalik$epsilon), Im(AgPalik$epsilon)))
Run the code above in your browser using DataLab