..week<<-9
.whichChapters<<-c(0:17,23:25)  # base on the following menu 
source('http://datayyy.com/fmr/starter/sourceAll.txt')

.fm<-function(){
"
 *---------------------------------------------------------------------*
 * Financial Modeling using R (2nd edition)                  2026 Yan  *
 *---------------------------------------------------------------------*
 *          Learning R               |      Applying R to finance      *
 *---------------------------------------------------------------------*
 *  .c1: R Basics                       .c14 Finance Basics            *
 *  .c2: Value assignment/functions     .c15 Fin Statement Analysis    *
 *  .c3: Introduction to R packages     .c16 Distributions, T-,F-tests *
 *  .c4: Data Frame, list, and date     .c17 Linear Regressions        *
 *  .c5: Loops and conditions                                          *
 *  .c6: Open data                                                     *
 *  .c7  Data input                                                    *
 *  .c8  Simple data manipulations                                     *
 *  .c9  Data output                                                   *
 * .c10  Simple plots and graphs        -----------------------------  *
 * .c11  Matrix manipulation [optional] .c23 GitHub and Git Bash       *
 * .c12  Excel and R                    .c24 ChatGPT: write/debug code *
 * .c13  String manipulation            .c25 Term Projects             *
 *---------------------------------------------------------------------*
 * >.c17      # go to chapter 17                                       *
 * >.uu       # go to utility submenu                                  *
 * >.fm       # back to this menu                                      *
 *---------------------------------------------------------------------*
";.zfm()}

.zfm<-function(){
cat("

 *---------------------------------------------------------------------*
 * Financial Modeling using R (2nd edition)                  2026 Yan  *
 *---------------------------------------------------------------------*
 *          Learning R               |      Applying R to finance      *
 *---------------------------------------------------------------------*
 *  .c1: R Basics                       .c14 Finance Basics            *
 *  .c2: Value assignment/functions     .c15 Fin Statement Analysis    *
 *  .c3: Introduction to R packages     .c16 Distributions, T-,F-tests *
 *  .c4: Data Frame, list, and date     .c17 Linear Regressions        *
 *  .c5: Loops and conditions                                          *
 *  .c6: Open data                                                     *
 *  .c7  Data input                                                    *
 *  .c8  Simple data manipulations                                     *
 *  .c9  Data output                                                   *
 * .c10  Simple plots and graphs        -----------------------------  *
 * .c11  Matrix manipulation [optional] .c23 GitHub and Git Bash       *
 * .c12  Excel and R                    .c24 ChatGPT: write/debug code *
 * .c13  String manipulation            .c25 Term Projects             *
 *---------------------------------------------------------------------*
 * >.c17      # go to chapter 17                                       *
 * >.uu       # go to utility submenu                                  *
 * >.fm       # back to this menu                                      *
 *---------------------------------------------------------------------*
")}

.cls()
.fm()