..week<<-4
.whichChapters<<-c(0:8)  # 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  Value assignment/functions                    *
 *  .c3  Introduction to R packages                    *
 *  .c4  Data Frame, list, and date                    *
 *  .c5  Loops and conditions                          *
 *  .c6  Open data                                     *
 *  .c7  Data input                                    *
 *  .c8  Simple data manipulations                     *
 *-----------------------------------------------------*
 * >.c8       # go to chapter 8                        *
 * >.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  Value assignment/functions                    *
 *  .c3  Introduction to R packages                    *
 *  .c4  Data Frame, list, and date                    *
 *  .c5  Loops and conditions                          *
 *  .c6  Open data                                     *
 *  .c7  Data input                                    *
 *  .c8  Simple data manipulations                     *
 *-----------------------------------------------------*
 * >.c8       # go to chapter 8                        *
 * >.uu       # go to utility submenu                  *
 * >.fm       # back to this menu                      *
 *-----------------------------------------------------*
")}

.cls()
.fm()