library(pander) library(caret) library(dplyr)
Generated by KidStats on r Sys.Date()
r switch(input$refsamp, 'za' = 'South Africa')
r switch(input$transform, 'none' = 'None', 'sqrt' = 'Square root', 'cbrt' = 'Cube root')
| | Diaphyseal Length | Proximal Breadth | Midshaft Breadth | Distal Breadth |
| :-------- | :---------------: | :--------------: | :--------------: | :------------: |
| Femur | r input$fdl
| | r input$fmsb
| r input$fdb
|
| Tibia | r input$tdl
| r input$tpb
| r input$tmsb
| r input$tdb
|
| Humerus | r input$hdl
| r input$hpb
| r input$hmsb
| r input$hdb
|
| Radius | r input$rdl
| r input$rpb
| r input$rmsb
| r input$rdb
|
| Ulna | r input$udl
| | r input$umsb
| |
| Lower Prediction Interval | Estimated Age | Upper Prediction Interval |
| :-----------------------: | :--------------------------: | :------------------------: |
| r earth_mod()[[2]][2]
| r earth_mod()[[2]][1]
| r earth_mod()[[2]][3]
|
r nrow(age_samp())
r round(earth_mod()[[1]]$grsq, digits = 4)
r if (length(input$ex_age) == 0) pander("none") else pander(input$ex_age)
hinges <- add_rownames(data.frame(earth_mod()[[1]]$cuts), "Coefficients") hinges <- hinges[earth_mod()[[1]]$selected.terms,] pander(hinges)
| Posterior Female | Posterior Male |
| :------------------: | :------------------: |
| r fda_mod()[[2]]$F
| r fda_mod()[[2]]$M
|
r nrow(sex_samp())
r if (input$bstrap_ca) paste(round(fda_mod()[[3]]$t0, digits = 4)," (bootstrapped)") else round(fda_mod()[[3]], digits = 4)
r if (length(input$ex_sex) == 0) pander("none") else pander(input$ex_sex)
fda_coef <- data.frame(coef(fda_mod()[[1]])) pander(fda_coef)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.