demo/ng_2d_images_frey_LLE.R

In RnavGraph: Using Graphs as a Navigational Infrastructure

require(RnavGraph) || stop("RnavGraph library not available")
require(RnavGraphImageData) || stop('You need the RnavGraphImageData package installed!')
require(RDRToolbox)|| stop('You need the RDRToolbox package installed!')

local({
			data(frey)
			
			## LLE
			d_low <- LLE(t(frey),dim=5,k=12)
			
			## Images
			## sample a few
			sel <- seq(1,dim(frey)[2],3)			
			ng.frey <- ng_image_array_gray('Brendan_Frey',frey[,sel],28,20, img_in_row = FALSE, rotate = 90)
			ng.frey
			
			
			V <- mapply(function(x){paste("i",x,sep="")},1:5)
			
			ng.lle.frey <- ng_data(name = "ISO_frey",
					data = data.frame(d_low[sel,]),
					shortnames = V)
			
					
			#nav <- scagNav(ng.lle.frey,c("Clumpy","Outlying","Skewed","Monotonic", "Striated"),
			#		images=ng.frey)
			
			G <- completegraph(V)
			
			LG <- linegraph(G)
			LGnot <- complement(LG)
			
			ng.LG <- ng_graph("3d frey", LG)
			ng.LGnot <- ng_graph("4d frey", LGnot)
			
			viz3d <- ng_2d(ng.lle.frey,ng.LG, images = ng.frey)
			viz4d <- ng_2d(ng.lle.frey,ng.LGnot, images = ng.frey)
			
			nav <- navGraph(ng.lle.frey,list(ng.LG,ng.LGnot),list(viz3d,viz4d))
			
		})

cat(paste("\n\nThe source code of this demo file is located at:\n",system.file("demo", "ng_2d_images_frey_LLE.R", package="RnavGraph"),"\n\n\n"))