with(sun.data,
insert_hinges(w.length, s.e.irrad,
c(399.99, 400.00, 699.99, 700.00)))
with(sun.data,
insert_hinges(w.length, s.e.irrad,
c(100, 399.50, 399.99, 400.00, 699.99, 700.00, 799.99, 1000)))
Run the code above in your browser using DataLab