cordf <- data.frame(Par1=c("A","A","A","A","B","B","B","C","C","D"),
Par2=c("B","C","D","E","C","D","E","D","E","E"),
Corr=c(0.6500,0.7500,-0.8500,0.9500,0.9750,
-0.9850,0.9950,-0.9950,0.9995,-0.9999))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.