if (FALSE) {
data(amino)
## Plotting Emission spectra
oldpar <- par(mfrow=c(2,1))
matplot(t(amino[,,1]), type="l",
xlab="Wavelength/nm", ylab="Intensity",
main="Fluorescence emission spectra")
matplot(t(amino[,,5]), type="l",
xlab="Wavelength/nm", ylab="Intensity",
main="Fluorescence emission spectra")
par(oldpar)
## Plotting excitation spectra
oldpar <- par(mfrow=c(2,1))
matplot(t(amino[,1,]), type="l",
xlab="Wavelength/nm", ylab="Intensity",
main="Fluorescence excitation spectra")
matplot(t(amino[,30,]), type="l",
xlab="Wavelength/nm", ylab="Intensity",
main="Fluorescence excitation spectra")
par(oldpar)
}
Run the code above in your browser using DataLab