statistical_tests_menu_bis<-function(){
cat("statistical_tests_menu")
switch(menu(c("Pairwise ANOVA", "Pairwise MANOVA", "Pairwise MANOVA variables sig. 0.5 in ANOVA" ,"PCA", "LDA", "LDA with Unknowing material", "Back test_menu")), pairwise.anova_interactive(marks_subsetted), pairwise.manova_interactive(marks_subsetted), pairwise.manova_interactive_sig(marks_subsetted), PCA_interactive(marks_subsetted), lda_pandora_interactive(marks_subsetted), lda_pandora_interactive_U(marks_subsetted), tests_menu())
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.