plot3dHive(t4)
M <- par3d("userMatrix")#
movie3d(par3dinterp( userMatrix=list(M,#
	rotate3d(M, pi, 1, 0, 0),#
	rotate3d(M, pi, 0, 1, 0), #
	rotate3d(M, pi, 0, 0, 1) ) ), #
	duration = 10,#
	movie = "~/Desktop/HiveDemo" )
M <- par3d("userMatrix")#
movie3d(par3dinterp( userMatrix=list(M,#
	rotate3d(M, pi, 1, 0, 0),#
#
#
	) ), #
	duration = 10,#
	movie = "~/Desktop/HiveDemo" )
M <- par3d("userMatrix")#
movie3d(par3dinterp( userMatrix=list(M,#
	rotate3d(M, pi, 1, 0, 0),#
	rotate3d(M, pi, 0, 0, 0), #
	rotate3d(M, pi, 0, 0, ) ) ), #
	duration = 10,#
	movie = "~/Desktop/HiveDemo" )
M <- par3d("userMatrix")#
movie3d(par3dinterp( userMatrix=list(M,#
	rotate3d(M, pi, 1, 0, 0),#
	rotate3d(M, pi, 0, 0, 0), #
	rotate3d(M, pi, 0, 0, 0) ) ), #
	duration = 10,#
	movie = "~/Desktop/HiveDemo" )
M <- par3d("userMatrix")#
movie3d(par3dinterp( userMatrix=list(M,#
	rotate3d(M, pi, 0, 0, 0),#
	rotate3d(M, pi, 0, 1, 0), #
	rotate3d(M, pi, 0, 0, 0) ) ), #
	duration = 10,#
	movie = "~/Desktop/HiveDemo" )
M <- par3d("userMatrix")#
movie3d(par3dinterp( userMatrix=list(M,#
	rotate3d(M, pi, 0, 0, 1),#
	rotate3d(M, pi, 0, 0, 0), #
	rotate3d(M, pi, 0, 0, 0) ) ), #
	duration = 10,#
	movie = "~/Desktop/HiveDemo" )
M <- par3d("userMatrix")#
movie3d(par3dinterp( userMatrix=list(M,#
	rotate3d(M, 2*pi, 0, 1, 0) ) ), #
	duration = 10,#
	movie = "~/Desktop/HiveDemo" )
M <- par3d("userMatrix")#
movie3d(par3dinterp( userMatrix=list(M,#
	rotate3d(M, pi, 1, 0, 0) ) ), #
	duration = 10,#
	movie = "~/Desktop/HiveDemo" )
M <- par3d("userMatrix")#
movie3d(par3dinterp( userMatrix=list(M,#
	rotate3d(M, pi, 0, 1, 0) ) ), #
	duration = 10,#
	movie = "~/Desktop/HiveDemo" )
M <- par3d("userMatrix")#
movie3d(par3dinterp( userMatrix=list(M,#
	rotate3d(M, pi, 0, 0, 1) ) ), #
	duration = 10,#
	movie = "~/Desktop/HiveDemo" )
M <- par3d("userMatrix")#
movie3d(par3dinterp( userMatrix=list(M,#
	rotate3d(M, pi, 0, 0, 1) ) ), #
	duration = 10, fps = 5,#
	movie = "~/Desktop/HiveDemo" )
M <- par3d("userMatrix")#
movie3d(par3dinterp( userMatrix=list(M,#
	rotate3d(M, pi, 0, 0, 1) ) ), #
	duration = 10, fps = 50,#
	movie = "~/Desktop/HiveDemo" )
M <- par3d("userMatrix")#
movie3d(par3dinterp( userMatrix=list(M,#
	rotate3d(M, pi, 0, 0, 1) ) ), #
	duration = 5, fps = 25,#
	movie = "/Desktop/HiveDemo" )
M <- par3d("userMatrix")#
movie3d(par3dinterp( userMatrix=list(M,#
	rotate3d(M, pi, 0, 0, 1) ) ), #
	duration = 5, fps = 50,#
	movie = "Users/bryanhanson/Desktop/HiveDemo" )
?movie3d
M <- par3d("userMatrix")#
movie3d(par3dinterp( userMatrix=list(M,#
	rotate3d(M, pi, 0, 0, 1) ) ), #
	duration = 5, fps = 50, convert = FALSE,#
	movie = "Users/bryanhanson/Desktop/HiveDemo/HiveDemo" )
warnings()
?rgl.snapshot
setwd("/Users/bryanhanson/HiveMovie")#
M <- par3d("userMatrix")#
movie3d(par3dinterp( userMatrix=list(M,#
	rotate3d(M, pi, 0, 0, 1) ) ), #
	duration = 5, fps = 50, convert = FALSE,#
	movie = "HiveDemo" )
setwd("/Users/bryanhanson/Desktop/HiveMovie")
M <- par3d("userMatrix")#
movie3d(par3dinterp( userMatrix=list(M,#
	rotate3d(M, pi, 0, 0, 1) ) ), #
	duration = 5, fps = 50, convert = FALSE,#
	movie = "HiveDemo" )
getwd()
setwd("/Users/bryanhanson/Desktop/HiveMovie")#
M <- par3d("userMatrix")#
movie3d(par3dinterp( userMatrix=list(M,#
	rotate3d(M, pi, 0, 0, 1) ) ), #
	duration = 5, fps = 50, convert = TRUE,#
	movie = "HiveDemo" )
M <- par3d("userMatrix")#
movie3d(par3dinterp( userMatrix=list(M,#
	rotate3d(M, pi, 0, 0, 1),#
	rotate3d(M, pi, 0, 0, 0), #
	rotate3d(M, pi, 0, 0, 0) ) ), #
	duration = 10,#
	movie = "HiveDemo" )
M <- par3d("userMatrix")#
movie3d(par3dinterp( userMatrix=list(M,#
	rotate3d(M, pi, 0, 0, 1),#
	rotate3d(M, pi, 1, 0, 0), #
	rotate3d(M, pi, 0, 1, 0) ) ), #
	duration = 10,#
	movie = "HiveDemo" )
M <- par3d("userMatrix")#
movie3d(par3dinterp( userMatrix=list(M,#
	rotate3d(M, pi, 0, 0, 1),#
	rotate3d(M, pi, 1, 0, 0), #
	rotate3d(M, pi, 0, 1, 0) ) ), #
	duration = 10, fps = 50,#
	movie = "HiveDemo" )
plot3dHive(t5)
M <- par3d("userMatrix")#
movie3d(par3dinterp( userMatrix=list(M,#
	rotate3d(M, pi, 0, 0, 1),#
	rotate3d(M, pi, 1, 0, 0), #
	rotate3d(M, pi, 0, 1, 0) ) ), #
	duration = 10, fps = 100,#
	movie = "HiveDemo" )
test3 <- ranHiveData(nx = 3)#
plotHive(test3)
str(test3)
test3$center.hole <- 0.05 #
plotHive(test3)
?Spectra
set.seed(55)#
test3 <- ranHiveData(nx = 3)#
plotHive(test3)
plotHive(test3, method = "rank")#
plotHive(test3, method = "norm")
?seXy
R_HOME
?R_HOME
R.home
R.home()
?FuncMap
require(mvbutils)#
require(lattice)#
require(grid)#
#
fw <- foodweb(where = "package:lattice", charlim = 20, cex = 0.5, lwd = 1)#
#
ans <- FuncMap(fwb = fw, pkg = "lattice", method = "abs")
?foodweb
?plotHive
hp2 <- ranHiveData(nx = 2)#
plotHive(hp2)
hp3 <- ranHiveData(nx = 3)#
plotHive(hp3)
vignette("HiveR")
library("HiveR")
?ranHiveData
Sweave("HiveR.Rnw")
