def.source.hook  <- knitr::knit_hooks$get("source")
knitr::knit_hooks$set(source = function(x, options) {
  x <- def.source.hook(x, options)  # apply default source hook
   ifelse(!is.null(options$size), 
         paste0("\\vspace{0.1cm}\\", options$size,"\n", x,"\n", "\\normalsize\\vspace{0.1cm}"), 
         x)

})

def.output.hook <- knitr::knit_hooks$get("output")
knitr::knit_hooks$set(output = function(x, options) {
  x <- def.output.hook(x, options)  # apply default source hook
   ifelse(!is.null(options$size_out), 
         paste0("\\vspace{0.1cm}\\", options$size_out,"\n", x,"\n", "\\normalsize\\vspace{0.1cm}"), 
         x)

})

Preface {-}

This is the online version of my Master Thesis called "Asset Allocation using Particle Swarm Optimization in R". In this thesis the Particle Swarm Optimization is extensively analyzed and tested for optimization problems in quantitative portfolio management. The PDF version can be downloaded by clicking the PDF button at the top of the page.



AxelCode-R/Master-Thesis documentation built on Feb. 25, 2023, 7:57 p.m.