R/addSignifFeatureData.R

Defines functions addSignifFeatureData

########## 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 ##########

Try the feature package in your browser

Any scripts or data that you put into this service are public.

feature documentation built on Feb. 10, 2021, 9:06 a.m.