# make a synthetic Gaussian bandpass filter
center = 600
wave = 400:700
trans = exp( -(wave-center)^2 / 20^2 )
filter.bp = colorSpec( trans, wave, 'transmittance' )
organization( filter.bp ) # returns: [1] "vector"
specnames( filter.bp ) = "myfilter"
# and now plot it
plot( filter.bp )
Run the code above in your browser using DataLab