Francis Smart EconometricsBySimulation

	txt2	month
	<<NO TEXT FOUND FOR SPECIFIED DATE>>	12
	apoo od f n@N2enuo ttc aEon0t 0THOTesv1t tioil0,s ct'en O1t"to i cdCert.piawob Cd epEoRu gE h oIl i t coerdee VtR sou'eoet n crnrho C .ik/e lkreigypMn Rf s troCokeecT 0es nCoc4 oDn O oerlisd lo'ontom/ei i9Ir,2hgu,bt n/r kr20ta wtontl iriiC e Paots eu 0e12y1esenp tcaat )n eniTseon 4tE2l oCotoaN0 encuRi n eu e nrsroidNcinwp -t iECr9( gep2. k oiRub01gT'n1i Irmn ecT T.0'pbCu" 0w pt"Fso.f rdneeTs UW.nnl/s2tt uneTk't itri,ig nO.eth tere0eci 0 a pl( ' "rtvlbOntuftfr tn Onyn t1n10thtt i d eoe a rHc CtdorltCniwmfbao9 rdC vtecf pl nTOahf10ornet wueotoT o .s	12
	<<NO TEXT FOUND FOR SPECIFIED DATE>>	12

emailto: [email protected] student: Francis Smart [email protected] EDMS769G

# Text Network graph
#           Student Ability _______________________
#            /           |                         \_____
#          /             |  Public/Private Transport     \
#         ↓              ↓     ↓                          ↘

	# Estimating Weekly consumption from periodic purchasing data

	library(dplyr)
	library(data.table)
	library(reshape)
	library(tidyr)
	library(ggplot2)


	# Day Purchase

	rm(list=ls())

	library(data.table)
	library(dplyr)
	library(ggplot2)

	setwd('Z:/Data/FEC')

	dsum <- function(...) dplyr::summarize(...)
	to.data.table <- function(x) {(class(x) <- class(data.table())) ;x}

	rm(list=ls())

	library(data.table)
	library(dplyr)
	library(ggplot2)
	library(scales)

	setwd('Z:/Data/FEC')

	dsum <- function(...) dplyr::summarize(...)

	# adapted from John Fox's numbers2words function

	require(magrittr); require(Rmpfr)

	make.digits <- function(x) {
	# This is a function breaks an input number x into the positive (left)
	# and negative(right) elements and returns these as numbers
	x <- toString(x)
	negative <- substr(x,1,1)=="-"
	if (negative) x <- substring(x,2)

	library('rgl'); library('magrittr')

	cube <- function(x=0,y=0,z=0, bordered=TRUE,
	filled = TRUE, lwd=2, scale=1,
	fillcol = gray(.95),
	bordercol ='black', ...) {

	mycube <- cube3d()

	# Reduce size to unit

	print("Functions F1")

	def F1():
	print("F1 Run")