data(toyRegFD)
  varSel <- selectFunctional( toyRegFD$FDlist, toyRegFD$Y, normalize=FALSE, 
                              dimensionReductionMethod="fpca", nbasisInit=16, 
                              verbose=FALSE, ntree=10)
  summary(varSel)
  plot(varSel)
Run the code above in your browser using DataLab