R: Plot dataset from package fda.usc

Question

I want to plot the dataset tecator from the R-package fda.usc like it has been done at the following page: https://rpubs.com/moviedo/fda_usc_regres