# NOT RUN {
library(SMITIDvisu)
data(st)
mstV <- mstVariant(st.dist113_all,st.prop113_all, st.listTimeProp113)
# }
# NOT RUN {
## export as standalone html file
htmlwidgets::saveWidget(mstV, "mstVariant.html")
browseURL("mstVariant.html")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab