parm<-function(x){function() {return(x)}}
lF<-list()
lF$ScaleFactor1<-parm(1.10)
lF$ScaleFactor2<-parm(0.5)
lF$Generations<-parm(4)
lF$cGeneration<-parm(0)
DETVSF(lF)
lF$cGeneration<-parm(1)
DETVSF(lF)
lF$cGeneration<-parm(2)
DETVSF(lF)
lF$cGeneration<-parm(3)
DETVSF(lF)
lF$cGeneration<-parm(4)
DETVSF(lF)
Run the code above in your browser using DataLab