subj <- c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16)
hr <- c(4,4,4,4,12,12,12,12,20,20,20,20,28,28,28,28)
score <- c(37,22,22,25,36,45,47,23,43,75,66,46,76,66,43,62)
radar <- data.frame(subj=c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16),
hr=hr,score=score)
rm(subj,hr,score)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.