jointDoF <- function(name){
joint_dofs <- c('r'=1, 'u'=2, 's'=3, 'p'=2, 'ur'=2, 'ou'=3, 'our'=3)
joint_dofs[tolower(name)]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.