```
library(forestFloor)
library(randomForest)
library(rgl)
data(wwq)
X = wwq[,-12]
Y = wwq[, 12]
plot(wwq[sample(1:nrow(wwq),500),7:12])
rfo = randomForest(X,Y,keep.inbag=T,importance=T)
ff = forestFloor(rfo,X)
plot(ff)
plot(ff,col=fcol(ff,1,alpha=0.3),cropX=c(2,4,5,9))
plot(ff,c(1,3),col=fcol(ff,1,alpha=0.1),cropX=3)
show3d(ff,c(1,3),col=fcol(ff,c(1),alpha=0.3),zoom=2)
```

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.