Dear David and Bogasso, The image is from <http://socserv.mcmaster.ca/jfox/Courses/R-course/index.html>, as you'd see by clicking on the graph in the Forbes article, and it was indeed produced with scatter3d() in the car package.
Best, John -------------------------------- John Fox Senator William McMaster Professor of Social Statistics Department of Sociology McMaster University Hamilton, Ontario, Canada web: socserv.mcmaster.ca/jfox > -----Original Message----- > From: r-help-boun...@r-project.org [mailto:r-help-boun...@r-project.org] On > Behalf Of David Winsemius > Sent: November-16-10 11:30 AM > To: Bogaso Christofer > Cc: r-help@r-project.org > Subject: Re: [R] R article in forbes > > > On Nov 16, 2010, at 11:18 AM, Bogaso Christofer wrote: > > > Thanks Mark, for sharing such a great article. Really feeling proud > > that I am also part of that great community. BTW can anyone share the > > code on how to draw the picture displayed there (blur surface plot)? > > > > Again... a small bit of searching at Baron's site (only 2 hits for s search > "prestige eduction income 3d": > > http://finzi.psych.upenn.edu/R/library/car/html/scatter3d.html > > Turns out none of them is exactly that plot, but this is pretty close (after > click-drag-rotating the interactive RGL display) > > require(car) > if(interactive() && require(rgl) && require(mgcv)) {scatter3d(prestige ~ > income + education, fit=c( "additive"), > data=Prestige) > } > > (screengrab of X11 window attached.) ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
