Nothing
########## R function: addSignifFeatureData ##########
# For adding data points which lie in significant features
# regions to a KDE plot.
# Last changed: 04 NOV 2005
addSignifFeatureData <- function(x,SignifFeatureData,featureCol,dest,
trans.alpha=1,rgl=FALSE)
{
if (is.vector(x))
d <- 1
else
d <- ncol(x)
if (d==1)
if (sum(SignifFeatureData)>0)
rug(x[SignifFeatureData], col=featureCol)
if (d==2)
points(x[SignifFeatureData,],pch=1,col=featureCol)
if (d==3)
{
if (!all(SignifFeatureData==FALSE))
{
x.sig <- x[SignifFeatureData,]
if (is.vector(x.sig))
x.sig <- matrix(x.sig, nrow=1)
if (!rgl)
plot3D::points3D(x.sig[,1],x.sig[,2], x.sig[,3], pch=16, col=featureCol, alpha=trans.alpha, theta=-30, phi=40, d=4, add=TRUE)
else
rgl::points3d(x.sig[,1],x.sig[,2], x.sig[,3], size=3, color=featureCol, alpha=trans.alpha)
}
}
if (d==4)
{
if (!all(SignifFeatureData==FALSE))
{
x.sig <- x[SignifFeatureData,]
if (is.vector(x.sig))
x.sig <- matrix(x.sig, nrow=1)
if (!rgl)
plot3D::points3D(x.sig[,1],x.sig[,2], x.sig[,3], pch=16, col=featureCol, alpha=trans.alpha, add=TRUE)
else
rgl::points3d(x.sig[,1],x.sig[,2], x.sig[,3], size=3, color=featureCol, alpha=trans.alpha)
}
}
}
########## End of addSignifFeatureData ##########
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.