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


.fm<-function(){
"
 *-----------------------------------------------------------------------*
 * Financial Modeling using R (2nd ed.)               2026        Yan    *
 *-----------------------------------------------------------------------*
 *          Learning R             |       Applying R to finance         *
 *-----------------------------------------------------------------------*
 *  .c1  R Basics                    .c14 Finance Basics                 *
 *  .c2  Functions                   .c15 Financial Statement Analysis   *
 *  .c3  Introduction to R packages                                      *
 *  .c4  Data Frame, list, and date                                      *
 *  .c5  R loops and conditions                                          *
 *  .c6  Open data                                                       *
 *  .c7  Data input                                                      *
 *  .c8  Simple data manipulations                                       *
 *  .c9  Data output                                                     *
 * .c10  Simple plots and graphs      ---------------------------------- *
 * .c11  Matrix manipulation         .c23 GitHub and Git Bash            *
 * .c12  Excel and R                 .c24 ChatGPT: write and bug R code  *
 * .c13  String manipulation         .c25 Term projects                  *
 * ----------------------------------------------------------------------*
";.zfm()}

.zfm<-function(){
cat("

 *-----------------------------------------------------------------------*
 * Financial Modeling using R (2nd ed.)               2026        Yan    *
 *-----------------------------------------------------------------------*
 *          Learning R             |       Applying R to finance         *
 *-----------------------------------------------------------------------*
 *  .c1  R Basics                    .c14 Finance Basics                 *
 *  .c2  Functions                   .c15 Financial Statement Analysis   *
 *  .c3  Introduction to R packages                                      *
 *  .c4  Data Frame, list, and date                                      *
 *  .c5  R loops and conditions                                          *
 *  .c6  Open data                                                       *
 *  .c7  Data input                                                      *
 *  .c8  Simple data manipulations                                       *
 *  .c9  Data output                                                     *
 * .c10  Simple plots and graphs      ---------------------------------- *
 * .c11  Matrix manipulation         .c23 GitHub and Git Bash            *
 * .c12  Excel and R                 .c24 ChatGPT: write and bug R code  *
 * .c13  String manipulation         .c25 Term projects                  *
 * ----------------------------------------------------------------------*
")}

.cls()
.fm()