..week<<-3
.whichChapters<<-c(0:6)  # base on the following menu 
source('http://datayyy.com/fmr/starter/sourceAll.txt')

.fm<-function(){
"
 *-----------------------------------------------------*
 * Financial Modeling using R (2nd edition)  2026 Yan  *
 *-----------------------------------------------------*
 *  .c1  R Basics                                      *
 *  .c2  R functions                                   *
 *  .c3  Introduction to R packages                    *
 *  .c4  Data Frame, list, and date                    *
 *  .c5  R loops and conditions                        *
 *  .c6  Open data                                     *
 *-----------------------------------------------------*
 * >.c6       # go to chapter 6                        *
 * >.uu       # go to utility submenu                  *
 * >.fm       # back to this menu                      *
 *-----------------------------------------------------*
";.zfm()}

.zfm<-function(){
cat("

 *-----------------------------------------------------*
 * Financial Modeling using R (2nd edition)  2026 Yan  *
 *-----------------------------------------------------*
 *  .c1  R Basics                                      *
 *  .c2  R functions                                   *
 *  .c3  Introduction to R packages                    *
 *  .c4  Data Frame, list, and date                    *
 *  .c5  R loops and conditions                        *
 *  .c6  Open data                                     *
 *-----------------------------------------------------*
 * >.c6       # go to chapter 6                        *
 * >.uu       # go to utility submenu                  *
 * >.fm       # back to this menu                      *
 *-----------------------------------------------------*
")}

.cls()
.fm()