search for: rotacion

...< 360) { # Vertices del cuadrado original if(cont == 1) { v <- matrix(NA,4,3) v[,1] <- c(0,0,1,1) v[,2] <- c(0,0,0,0) v[,3] <- c(0,1,1,0) # Cuadrado Original quads3d(v[,1],v[,2],v[,3],col="green") } # Rotacion v[1,] <- rotate3d(v[1,], ang, 0, 1, 0) v[2,] <- rotate3d(v[2,], ang, 0, 1, 0) v[3,] <- rotate3d(v[3,], ang, 0, 1, 0) v[4,] <- rotate3d(v[4,], ang, 0, 1, 0) # Pausa Sys.sleep(0.3) # Limpiar if(rgl.cur() !=0) rgl.clear() # Nuevo cuadrado quads3d(...

...nicial PCA en un espacio diferente de tal manera que las variables estén máximamente separadas, en la práctica, los pesos variable-componente serán o muy altos o muy bajos, de tal modo que se facilita enormemente la tarea de separar variables significativas por componente de las que no lo son. Las rotaciones son un mundo (ortogonales, oblicuas, ...), la más habitual es la varimax que mantiene la ortogonalidad de la solución original. Aquí una descripción que he encontrado al vuelo: http://data-mining-tutorials.blogspot.com.es/2009/12/varimax-rotation-in-principal-component.html No sé si la implement...