search for: box3d

..." species scores " from RDA results in 3D plot like i can in 2D plot. With the code i used , i get errors like ; ERROR dans t$sites : $ operator is invalid for atomic vectors, Erreur dans match.arg (display, items) : 'arg' should be one of ?xyz.convert?, ?points3d?, ?plane3d?, ?box3d?, ?points?, ?arrows? I saw that I can use other functions, but it is impossible to extract the 3D scores ( and add species to 3d plot ), Other fonctions works but, add elements in a 2D space. How can I add the "species scores" (sites and arrows are added correctly) to the 3D plot as wi...

...ta[,1], 'red'); vector3D(start=c(0,0,0),end=data[,2],'green') arrow3d(c(0,0,0),data[,1],color='red');arrow3d(c(0,0,0),data[,2], color='green') axes3d(c('x','y','z'));title3d('main','sub','X','Y','Z');box3d() thanks, Ren?

...y2<-rep(0,length(ge9recs)) y2<-c(uy2,ly2) m1<-cbind(path.one,y1) m2<-cbind(path.two,y2) d.mat<-rbind(m1,m2) open3d() points3d(x=d.mat[,1],y=d.mat[,3],z=d.mat[,2],size=3) lines3d(x=m1[,1],y=m1[,3],z=m1[,2],size=3) lines3d(x=m2[,1],y=m2[,3],z=m2[,2],size=3) I then added axes using box3d() axes3d(c('x--'),tick=TRUE,nticks=5) axes3d(c('z--'),tick=TRUE,nticks=5) axes3d(c('z++'),tick=TRUE,nticks=5) title3d(main = "Test 3-D plot", sub = NULL, xlab ="Lag", ylab = NULL, zlab = "Dissolved O2", line = NA) I did some rotation to de...

Un texte encapsul? et encod? dans un jeu de caract?res inconnu a ?t? nettoy?... Nom : non disponible URL : <https://stat.ethz.ch/pipermail/r-help/attachments/20111027/aa73bd4c/attachment.pl>

Hi all, I am considering writing a 3D visualisation package for R. Purposes: - Visualise 3 dimension data - Manipulate the data or series or any other object with the mouse as in any 3D software (3D Studio Max, Lightwave...) - Eventually display more than just 3D objects. Justification: - It's always interesting to plot data before performing any analysis - Manipulating (rotating,

...i in 1:3 ) { raw <- data[, vecs[i]] ran <- range(raw) const <- c(offsets[i + 1], offsets[i + 2]) line(rule(ran, const, axes[i], opt$move)) } } if ( opt$origin || opt$quip ) message() # finally add the bounding box if ( opt$wire ) { box3d() } <---- R code ends ----------------------------------------------> all the best --- Robbie Morrison PhD student -- policy-oriented energy system simulation Institute for Energy Engineering (IET) Technical University of Berlin (TU-Berlin), Germany University email (redirected) : morriso...