data(khan)
if (require(ade4, quiet = TRUE)) {
khan.bga<-bga(khan$train, khan$train.classes)
}
out.3D <-html3D(khan.bga$bet$ls, khan.bga$fac, writepdb=TRUE,
filenamebase ="Khan" , writehtml=TRUE)
## Not run:
# browseURL(paste("file://", file.path(paste(getwd(),"/khan.html",
# sep="")), sep=""))
# ## End(Not run)
Run the code above in your browser using DataLab