..week<<-2
.whichChapters<<-c(0:4)  # 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                    *
 *-----------------------------------------------------*
 * >.c4       # go to chapter 3 (a dot in front of c4) *
 * >.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                    *
 *-----------------------------------------------------*
 * >.c4       # go to chapter 3 (a dot in front of c4) *
 * >.uu       # go to utility submenu                  *
 * >.fm       # back to this menu                      *
 *-----------------------------------------------------*
")}

.cls()
.fm()