Nothing
if (interactive())
old.prompt <- devAskNewPage(TRUE)
##################################################
# Some examples from the OpenRepGrid package #
##################################################
#### Biplots ####
plot(0, type="n", xaxt="n", yaxt="n", xlab="", ylab="")
text(1, 0, "Biplots", cex=5)
#### Standard biplot ####
biplot2d(feixas2004)
#### Slater's INGRID biplot ####
biplotSlater2d(feixas2004)
#### Creating an ESA biplot ####
biplotEsa2d(feixas2004)
#### Pseudo 3D biplot #####
biplotPseudo3d(feixas2004)
#### 3D biplot #####
x <- scan(n=1)
biplot3d(boeker)
#### Bertin displays ####
plot(0, type="n", xaxt="n", yaxt="n", xlab="", ylab="")
text(1, 0, "Bertin \ndisplay", cex=5)
#### Bertin display ####
bertin(feixas2004)
#### Colored display ####
bertin(feixas2004, colors=c("white", "darkred"))
#### Clustered Bertin display ####
x <- scan(n=1)
dev.off()
dev.new()
plot(0, type="n", xaxt="n", yaxt="n", xlab="", ylab="")
text(1, 0, "Clustered \nBertin display", cex=5)
#### Clustered Bertin display ####
bertinCluster(feixas2004)
###############################################
if (interactive())
devAskNewPage(old.prompt)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.