load(url("http://datayyy.com/fmr/fmrWeek15.RData"))

.fmr<<-.fm
.cls()
.fm()