..week<<-1 .whichChapters<<-c(0:2) # base on the following menu source('http://datayyy.com/fmr/starter/sourceAll.txt') .fm<-function(){ " *-----------------------------------------------------* * Financial Modeling using R (2nd edition) 2025 Yan * *-----------------------------------------------------* * .c1: R Basics * * .c2: R functions * *-----------------------------------------------------* * >.c2 # go to chapter 1 (a dot in front of c1) * * >.uu # go to utility submenu * * >.fm # back to this menu * *-----------------------------------------------------* ";.zfm()} .zfm<-function(){ cat(" *-----------------------------------------------------* * Financial Modeling using R (2nd edition) 2025 Yan * *-----------------------------------------------------* * .c1: R Basics * * .c2: R functions * *-----------------------------------------------------* * >.c2 # go to chapter 1 (a dot in front of c1) * * >.uu # go to utility submenu * * >.fm # back to this menu * *-----------------------------------------------------* ")} .cls() .fm()