Jeff Hanson jeffreyhanson

Reading GeoTiffs

	{
	"Items": [ {
	"TemplateId": "BADGE_BATTLE_ATTACK_WON",
	"Badge": {
	"BadgeType": "BADGE_BATTLE_ATTACK_WON",
	"BadgeRanks": 4,
	"Targets": "\\nd\\350\\007"
	}
	}, {
	"TemplateId": "BADGE_BATTLE_TRAINING_WON",

	Result: 1
	Items {
	TemplateId: "BADGE_BATTLE_ATTACK_WON"
	Badge {
	BadgeType: BADGE_BATTLE_ATTACK_WON
	BadgeRanks: 4
	Targets: "\nd\350\007"
	}
	}
	Items {

	library(raster)
	library(RandomFields)
	library(R2OpenBUGS)
	library(coda)
	library(R2jags)
	library(mvtnorm)

	# Compare JAGS manual method to spatial.exp in BUGS

	# simulate data

	library(ggplot2)
	#' create a data frame with test data.
	my.df <- data.frame(index = 1:10, value = rnorm(10))

	#' create the ggplot object
	my.ggp <- ggplot(data = my.df, aes(x = index, y = value)) + geom_point() + geom_line()

	#' get the x- and y-axis ranges actually used in the graph

	# This worked in early versions of ggplot2 (probably <2.2)

	library(shiny)



	shinyServer(function(input, output, session) {

	# Partial example
	output$meh <- renderPrint({
	print("Press enter or focusout to update --- ")
	print(input$myTextInput )