Simon O'Hanlon simonohanlon101

	# Title : Model-Based Geostatistical Mapping of Onchocerciais in West Africa
	# Objective : Script to predict onchocerciais prevalence in West Africa
	# Created by: sohanlon


	options(echo=FALSE)
	#
	#
	#/* PREAMBLE */
	#

	#include <Rcpp.h>
	#include <string>
	#include <sstream>

	using namespace Rcpp;

	//[[Rcpp::export]]

	NumericMatrix expandR(CharacterVector x) {
	int n = x.size();

	#Load relevant pacakges
	library(ggplot2)
	library(maptools)
	library(rgeos)
	library(plyr)

	# Download and unzip the Natural Earth Country Polygon data
	oldwd <- getwd()
	tmp <- tempdir()
	setwd(tmp)

	#==================================
	#
	# Answer to http://stackoverflow.com/q/14702714/1478381
	# Using R to find correlation pairs
	# Author: Simon O'Hanlon
	# Date: 5th February 2013
	#
	#==================================

	# Construct toy example of symmentrical matrix

	# Project Euler // Problem 1:
	# Find the sum of all the multiples of 3 or 5 below 1000

	x <- 1:999
	sum( x[ x %% 5 == 0 \| x %% 3 == 0 ] )



	# Another solution (this is really bad R practice!) could be:

	# Script for question posted on Stack Overflow
	# Load relevant libraries
	library(ggplot2)
	library(raster)
	library(gridExtra)


	vplayout <- function(x, y) {
	viewport(layout.pos.row = x, layout.pos.col = y)
	}