```r},eval = TRUE, echo = FALSE, out.width="750px", out.height="750px", warning = FALSE, message = FALSE} k <- {{k}}
vvar <- as.numeric(eval(parse(text=paste("sitedata$",classvar[k],sep="") )))
p <- plotlyLayout(NA,boxvar, log = "y", nTicks = 7, digits = 0,
xTitle = classvar[k],
xZeroLine = FALSE,xLabs = sort(as.numeric(unique(vvar))),
yTitle ="Observed to Predicted Ratio", yZeroLine = FALSE,
plotTitle = "Ratio Observed to Predicted",
legend = FALSE,showPlotGrid = showPlotGrid)
p <- p %>% add_trace(y = boxvar,x = vvar, type = 'box', color = I("black"),
fillcolor = "white")
p <- p %>% layout(shapes = list(hline(1)))
p
```r}, results='asis', echo=FALSE} cat("<P style='page-break-before: always'>")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.