require(MultipleChoice) .the_scorekeeper <<- createScorekeeper() show_hints <- TRUE
actionButton("update", "Send scores.") tableOutput("scores") output$scores <- renderTable({ if (input$update == 0) return(NULL) .the_scorekeeper$save_scores("DTK", "assignment 1", "my IP", "scoresDTK.Rda") foo <- .the_scorekeeper$report() foo$when <- as.character(foo$when) # display sensibly the time stamp foo })
C06-graphing-models.Rmd
--- need to move to datacampC06-S2008-var1.Rmd
--- moved (in part) to the Motivating Statistics datacamp repositoryC06-language101.Rmd
--- moved to Motivating StatisticsAdd the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.