Displaying 2 results from an estimated 2 matches for "trimesh".
Did you mean:
times
2008 Oct 29
1
How to set read.table variables to vectors?
...n 0:3){
+
+ screen(k+1)
+ cnt <- 0
+ #grp<- iter * 5
+ for (i in 1:5000 ) {
+ if (iter<-k*5) {
+ cnt = cnt + 1
+ x[cnt] <- myx[i]
+ y[cnt] <- myy[i]
+ }
+ }
+ #p = cbind(x=rnorm(300), y=rnorm(300))
+ #p = cbind(x, y)
+ #tt = delaunayn(p)
+ #trimesh(tt,p,axis=TRUE,box=TRUE)
+ plot(myx,myy)
+ }
>
>
[[alternative HTML version deleted]]
2008 Oct 29
0
Selecting cases for a grouping value to refill x and y vectors
...reen(k)
+ cnt <- 0
+ grp<- mydata$iter * 5
+ for (i in 1:5000 ) {
+ if (grp<-k*5) {
+ cnt = cnt + 1
+ x[cnt] <- mydata$xin[i]
+ y[cnt] <- mydata$yin[i]
+ }
+ }
+ #p = cbind(x=rnorm(300), y=rnorm(300))
+ #p = cbind(x, y)
+ #tt = delaunayn(p)
+ #trimesh(tt,p,axis=TRUE,box=TRUE)
+ plot(x,y)
+ }
>
>
[[alternative HTML version deleted]]