diff --git a/Class_Slides_1.tex b/Class_Slides_1.tex index 7f06f13..cb9e9a8 100644 --- a/Class_Slides_1.tex +++ b/Class_Slides_1.tex @@ -2,13 +2,15 @@ \usetheme{Madrid} \usepackage{tikz} \usepackage{datetime} +\usepackage{hyperref} +\usepackage{cleveref} \usepackage{tcolorbox} \tcbuselibrary{skins, breakable} \newdate{nextTuesday}{26}{08}{2025} \title{ECON 4530/5530 \\ Computational Economics} -\author{University of Wyoming} +\author{Alex Gebben} \date{\displaydate{nextTuesday}} \begin{document} @@ -35,10 +37,29 @@ \item \textbf{Office:} BU 362 \item \textbf{Email:} \texttt{agebben@uwyo.edu} \item \textbf{Phone:} 307-766-4136 - \item \textbf{Office Hours:} Monday \& Friday 1:00–2:30, other times by appointment + \item \textbf{Office Hours:} Monday \& Wednesday 1:00–2:30 \end{itemize} \end{tcolorbox} \end{frame} +\begin{frame}{Class Structure} + Learn to create economic reports using computational methods + \newline + \begin{enumerate} + \item{Intro to programming with data management in mind} + \item{R and analysis} + \item{Python and machine learning} + \end{enumerate} + You will understand the basics of R, Python and GAMS and when to use them. +\end{frame} + +\begin{frame}{Assignments} + \begin{enumerate} + \item{In class work} + \item{\(\approx\) Weekly homework} + \item{Final project} + \end{enumerate} + The final project will involve a economic impact analysis using data you have collected. +\end{frame} % Workflow Diagram Slide \begin{frame}{Steps of an Economic Analysis} @@ -188,33 +209,273 @@ \onslide<6->{Should you rethink the strategy?} \onslide<6->{Should you change the question?} } - \only<7->{Linear Regression - \newline - R would work well - - \textbf{Ideal Data} - \begin{enumerate} - \item{Skiing numbers} - \item{Temperature} - \item{Air quality} - \item{Snow fall} - \item{Road closures} - \item{Distance travelled of visitors} - \item{Income} - \item{Population trends} - \item{Skiing trends in other states} - \end{enumerate} - Narrow focus -} \end{column} \end{columns} \end{frame} -\begin{frame}{Data Collection} +%%%%%%%%%%%%%%%%%%%%%%%%%%% +\begin{frame}{Strategy and Design: Example} \centering +\begin{columns} + \begin{column}{0.5\textwidth} -\only<1>{\includegraphics[width=\textwidth]{"Data_Types"}} -\only<2>{\includegraphics[width=\textwidth]{"Data_Conversion"}} -\only<3>{\includegraphics[width=\textwidth]{"Data_Flow"}} +\begin{tikzpicture}[ + node distance=1.5cm and 2.5cm, + every node/.style={draw, rounded corners, text centered, minimum width=3.8cm, minimum height=1cm, font=\small}, + designstyle/.style={fill=blue!20}, + designstyle_blur/.style={fill=blue!20, opacity=0.3}, + designstyle_bold/.style={fill=blue!20, thick, draw=black, font=\bfseries}, + datastyle/.style={fill=orange!20}, + datastyle_blur/.style={fill=orange!20, opacity=0.3}, + datastyle_bold/.style={fill=orange!20, thick, draw=black, font=\bfseries }, + analysisstyle/.style={fill=teal!20, opacity=0.3}, + reportstyle/.style={fill=yellow!40, thick, draw=black, font=\bfseries, opacity=0.3}, + fadedarrow/.style={->, thick, opacity=0.3} +] + +% Title above left column + +% Left column nodes +\node[designstyle_blur] (q) at (-3,1.8) {Economic Question}; +\node[designstyle_bold] (sd) at (-3,0) {Strategy and Design}; +\node[datastyle_blur] (dc) at (-3,-1.8) {Data Collection}; +\node[datastyle_blur] (clean) at (-3,-3.6) {Data Cleaning}; + +% arrows +\draw[fadedarrow] (q) -- ++(sd); +\draw[fadedarrow] (sd) -- ++(dc); +\draw[fadedarrow] (dc) -- ++(clean); +\end{tikzpicture} + +\end{column} + +\begin{column}{0.5\textwidth} + +\onslide<1->{Linear Regression} + \newline + \onslide<2->{R would work well} +\newline + \onslide<3->{\textbf{Ideal Data} + \begin{enumerate} + \onslide<4->{\item{Skiing numbers}} + \onslide<5->{\item{Temperature}} + \onslide<6->{\item{Air quality}} + \onslide<7->{\item{Snow fall}} + \onslide<8->{\item{Road closures}} + \onslide<9->{\item{Distance travelled of visitors}} + \onslide<10->{\item{Income}} + \onslide<11->{\item{Population trends}} + \onslide<12->{\item{Skiing trends in other states}} + \end{enumerate} +} +\onslide<13->{Narrow focus?} +\end{column} +\end{columns} \end{frame} + +%%%%%%%%%%%%%%%%%% +\begin{frame}{Data collection} +\begin{columns} + \begin{column}{0.5\textwidth} +\begin{tikzpicture}[ + node distance=1.5cm and 2.5cm, + every node/.style={draw, rounded corners, text centered, minimum width=3.8cm, minimum height=1cm, font=\small}, + designstyle/.style={fill=blue!20}, + designstyle_blur/.style={fill=blue!20, opacity=0.3}, + designstyle_bold/.style={fill=blue!20, thick, draw=black, font=\bfseries}, + datastyle/.style={fill=orange!20}, + datastyle_blur/.style={fill=orange!20, opacity=0.3}, + datastyle_bold/.style={fill=orange!20, thick, draw=black, font=\bfseries }, + analysisstyle/.style={fill=teal!20, opacity=0.3}, + reportstyle/.style={fill=yellow!40, thick, draw=black, font=\bfseries, opacity=0.3}, + fadedarrow/.style={->, thick, opacity=0.3} +] + +% Title above left column + +% Left column nodes +\node[designstyle_blur] (q) at (-3,1.8) {Economic Question}; +\node[designstyle_blur] (sd) at (-3,0) {Strategy and Design}; +\node[datastyle_bold] (dc) at (-3,-1.8) {Data Collection}; +\node[datastyle_blur] (clean) at (-3,-3.6) {Data Cleaning}; + +% arrows +\draw[fadedarrow] (q) -- ++(sd); +\draw[fadedarrow] (sd) -- ++(dc); +\draw[fadedarrow] (dc) -- ++(clean); +\end{tikzpicture} +\end{column} + \begin{column}{0.5\textwidth} + + \begin{itemize} + \onslide<1->{\item{Identify key needs}} + \onslide<2->{\item{Observe possible data sets}} + \onslide<3->{\item{Evaluate data options}} + \onslide<4->{\item{Develop code}} + \end{itemize} +\end{column} +\end{columns} +\end{frame} + +\begin{frame}{Data Collection} +\only<1>{\includegraphics[width=\textwidth]{"Data_Types"}} +\only<2-7>{ +\centering +\begin{columns} + \begin{column}{0.5\textwidth} +\begin{tikzpicture}[ + node distance=1.5cm and 2.5cm, + every node/.style={draw, rounded corners, text centered, minimum width=3.8cm, minimum height=1cm, font=\small}, + designstyle/.style={fill=blue!20}, + designstyle_blur/.style={fill=blue!20, opacity=0.3}, + designstyle_bold/.style={fill=blue!20, thick, draw=black, font=\bfseries}, + datastyle/.style={fill=orange!20}, + datastyle_blur/.style={fill=orange!20, opacity=0.3}, + datastyle_bold/.style={fill=orange!20, thick, draw=black, font=\bfseries }, + analysisstyle/.style={fill=teal!20, opacity=0.3}, + reportstyle/.style={fill=yellow!40, thick, draw=black, font=\bfseries, opacity=0.3}, + fadedarrow/.style={->, thick, opacity=0.3} +] + +% Title above left column + +% Left column nodes +\node[designstyle_blur] (q) at (-3,1.8) {Economic Question}; +\node[designstyle_blur] (sd) at (-3,0) {Strategy and Design}; +\node[datastyle_bold] (dc) at (-3,-1.8) {Data Collection}; +\node[datastyle_blur] (clean) at (-3,-3.6) {Data Cleaning}; + +% arrows +\draw[fadedarrow] (q) -- ++(sd); +\draw[fadedarrow] (sd) -- ++(dc); +\draw[fadedarrow] (dc) -- ++(clean); +\end{tikzpicture} +\end{column} + + + + \begin{column}{0.5\textwidth} + \textbf{Data considerations} + \begin{itemize} + \onslide<3->{\item{Reputable data set}} + \onslide<4->{\item{Ease of access for a computer}} + \onslide<5->{\item{Able to extract automatically}} + \onslide<6->{\item{Able to verify results}} + \onslide<7->{\item{Will the data change in the future?}} + \end{itemize} + + \end{column} +\end{columns} + } +\only<8->{ + Challenging data collection is not always bad. + + A good paper may either use advanced methods OR new data. + \begin{center} + \includegraphics[width=0.75\textwidth]{"Searching"} +\end{center} +} + +\end{frame} +%%%%%%%%%%%%%%%%%% + +\begin{frame}{Data Collection: Example} + \begin{itemize} + \item{\href{https://www.wrds.uwyo.edu/wrds/nrcs/nrcs.html}{Snow Pack}} + \item{\href{https://www.nsaa.org/NSAA/Store/Research/Shared_Content/Shop/All_Products_Pages/Research.aspx?hkey=818ad543-3c76-}{All data but paid}} + \item{\href{https://www.nps.gov/subjects/socialscience/visitor-use-statistics-dashboard.htm}{National Park Query}} + \item{\href{https://aqs.epa.gov/aqsweb/airdata/download_files.html}{Air Quality}} + \item{\href{https://wyoroad.info/Highway/History/HistoricalInfo.html}{WYDOT road closure}} + \item{\href{https://fred.stlouisfed.org/series/MEHOINUSWYA672N}{Real Wyoming Income \((\)clean data set\()\)}} + \end{itemize} +\end{frame} + + +%%%%%%%%%%%%%%%%%% +\begin{frame}{Data Cleaning} +\begin{columns} + \begin{column}{0.5\textwidth} +\begin{tikzpicture}[ + node distance=1.5cm and 2.5cm, + every node/.style={draw, rounded corners, text centered, minimum width=3.8cm, minimum height=1cm, font=\small}, + designstyle/.style={fill=blue!20}, + designstyle_blur/.style={fill=blue!20, opacity=0.3}, + designstyle_bold/.style={fill=blue!20, thick, draw=black, font=\bfseries}, + datastyle/.style={fill=orange!20}, + datastyle_blur/.style={fill=orange!20, opacity=0.3}, + datastyle_bold/.style={fill=orange!20, thick, draw=black, font=\bfseries }, + analysisstyle/.style={fill=teal!20, opacity=0.3}, + reportstyle/.style={fill=yellow!40, thick, draw=black, font=\bfseries, opacity=0.3}, + fadedarrow/.style={->, thick, opacity=0.3} +] + +% Title above left column + +% Left column nodes +\node[designstyle_blur] (q) at (-3,1.8) {Economic Question}; +\node[designstyle_blur] (sd) at (-3,0) {Strategy and Design}; +\node[datastyle_blur] (dc) at (-3,-1.8) {Data Collection}; +\node[datastyle_bold] (clean) at (-3,-3.6) {Data Cleaning}; + +% arrows +\draw[fadedarrow] (q) -- ++(sd); +\draw[fadedarrow] (sd) -- ++(dc); +\draw[fadedarrow] (dc) -- ++(clean); +\end{tikzpicture} +\end{column} + +\begin{column}{0.5\textwidth} +\textbf{Tidy data} +\begin{itemize} + \item{Each variable is a column; each column is a variable.} + \item{Each observation is a row; each row is an observation.} + \item{Each value is a cell; each cell is a single value.} +\end{itemize} +\end{column} +\end{columns} +\end{frame} + +\begin{frame}{Data Processing} +\centering +\only<1>{\includegraphics[width=\textwidth]{"Data_Conversion"}} +\only<2>{\includegraphics[width=\textwidth]{"Data_Flow"}} +\only<3>{\includegraphics[width=\textwidth]{"CSV_Clean"}} +\end{frame} +%%%%%%%%%%%%%%%%%% +\begin{frame}{Data Processing: Example} + \begin{center} + \includegraphics[width=0.65\textwidth]{"Clean_Example"} +\end{center} +Make the data computer ready + \begin{itemize} + \onslide<2->{ \item{Convert from HTML table to CSV}} + \onslide<3->{ \item{Aggregate each Basin}} + \onslide<4->{ \item{Make code to pull data over time with URL changes}} + \end{itemize} + + +\end{frame} + +\begin{frame}{Next Class} + \begin{itemize} + \item{Install R-base} + \item{Install R-Studio} + \item{Load tidyverse in R} + \item{Homework} + \begin{enumerate} + \item{Develop at least three economic questions you are interested in} + \item{5530: Select one question and appropriate analysis} + \item{Create a list of relevant data} + \item{Find at least three data sets on the list and provide a URL} + \item{5530: Explain the main challenges to making the data usable} + \item{4430: Submit a list of these findings} + \item{5530: Provide a memo or one page report with this information} + \end{enumerate} + + \end{itemize} + + +\end{frame} + + \end{document} diff --git a/Clean_Example.png b/Clean_Example.png new file mode 100644 index 0000000..0443a8c Binary files /dev/null and b/Clean_Example.png differ diff --git a/Searching.jpg b/Searching.jpg new file mode 100644 index 0000000..b29423b Binary files /dev/null and b/Searching.jpg differ