| 1 | PlotAniso_Fn(FileName, Report, ControlList = list(Width = 5, Height = 5, Res = 200, Units = "in"))
 | 
| FileName | |
| Report | |
| ControlList | 
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.
## The function is currently defined as
function (FileName, Report, ControlList = list(Width = 5, Height = 5, 
    Res = 200, Units = "in")) 
{
    png(file = FileName, width = ControlList$Width, height = ControlList$Height, 
        res = ControlList$Res, units = ControlList$Units)
    par(mar = c(2, 2, 0, 0), mgp = c(1.5, 0.5, 0), tck = -0.02)
    Eigen = eigen(Report$H)
    plot(1, type = "n", xlim = c(-1, 1) * max(Eigen$values), 
        ylim = c(-1, 1) * max(Eigen$values))
    arrows(x0 = rep(0, 2), y0 = rep(0, 2), x1 = Eigen$vectors[1, 
        ] * Eigen$values, y1 = Eigen$vectors[2, ] * Eigen$values)
    dev.off()
  }
 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.