library(glmnet)

## Warning: package 'glmnet' was built under R version 3.1.3

## Loading required package: Matrix
## Loading required package: foreach

## Warning: package 'foreach' was built under R version 3.1.3

## Loaded glmnet 2.0-2

library(varSelRF)

## Warning: package 'varSelRF' was built under R version 3.1.3

## Loading required package: randomForest

## Warning: package 'randomForest' was built under R version 3.1.3

## randomForest 4.6-12
## Type rfNews() to see new features/changes/bug fixes.
## Loading required package: parallel

library(FSelector)

## Warning: package 'FSelector' was built under R version 3.1.3

library(mlbench)

## Warning: package 'mlbench' was built under R version 3.1.3

library(knitr)

## Warning: package 'knitr' was built under R version 3.1.3

library(plot3D)

## Warning: package 'plot3D' was built under R version 3.1.3

library(rgl)

## Warning: package 'rgl' was built under R version 3.1.3

library(R.basic)

## Loading required package: R.methodsS3
## R.methodsS3 v1.6.1 (2014-01-04) successfully loaded. See ?R.methodsS3 for help.
## Loading required package: R.oo
## R.oo v1.18.0 (2014-02-22) successfully loaded. See ?R.oo for help.
## 
## Attaching package: 'R.oo'
## 
## The following objects are masked from 'package:methods':
## 
##     getClasses, getMethods
## 
## The following objects are masked from 'package:base':
## 
##     attach, detach, gc, load, save
## 
## Loading required package: R.utils
## R.utils v1.29.8 (2014-01-27) successfully loaded. See ?R.utils for help.
## 
## Attaching package: 'R.utils'
## 
## The following object is masked from 'package:utils':
## 
##     timestamp
## 
## The following objects are masked from 'package:base':
## 
##     cat, commandArgs, getOption, inherits, isOpen, parse, warnings
## 
## R.basic v0.53.0 (2013-05-30) successfully loaded. See ?R.basic for help.
## 
## Attaching package: 'R.basic'
## 
## The following object is masked from 'package:R.utils':
## 
##     insert.default
## 
## The following objects are masked from 'package:rgl':
## 
##     lines3d, plot3d, points3d, polygon3d, text3d
## 
## The following objects are masked from 'package:graphics':
## 
##     abline, hist.default
## 
## The following object is masked from 'package:base':
## 
##     factorial

set.seed(2)
knit_hooks$set(webgl = hook_webgl)

x <- sort(rnorm(1000))
y <- rnorm(1000)
z <- rnorm(1000) + atan2(x,y)
plot3d(x, y, z, col=rainbow(1000))