In tbep-tech/tbepRSparrow: RSPARROW: An R system for SPARROW modeling

```r},eval = TRUE, echo = FALSE,fig.width=8, fig.height=8, warning = FALSE, message = FALSE} i<-{{i}} x1 <- apredict_sum[,i] xx <- data.frame(x1,depvar,xclass) parmsens <- xx[(xx$depvar > 0), ]

p <- plotlyLayout(NA,parmsens$x1, log = "", nTicks = 5, digits = 0, xTitle = "", xZeroLine = FALSE, xLabs = parmsens$xclass, yTitle = "Prediction Change (%) Relative to 1% Change", yZeroLine = FALSE, plotTitle = paste0("Parameter Sensitivity: ",Parmnames[i]), legend = FALSE,showPlotGrid = showPlotGrid) p <- p %>% add_trace(y = parmsens$x1,x = parmsens$xclass, type = 'box', name = Parmnames[i], color = I("black"), fillcolor = "white") p

```r}, results='asis', echo=FALSE}
cat("<P style='page-break-before: always'>") 

tbep-tech/tbepRSparrow documentation built on Oct. 9, 2020, 6:24 a.m.