use Wolfram Mathematica to write the economic essay
You need the outline information and deadline request to finish a paper and use Wolfram Mathematica to get a table .you must use the Wolfram Mathematica to get a table. If you cannot use Wolfram Mathematica, do not receive this work.
Surname 2
Proposal: Effect of Education Policy in Canada
College education focuses on more technical and vocational training than the university education yet college education is not free in Canada for the learners who don’t have scholarship and parents working on the institutions that provide college scholarship benefits. The paper applies to Canada and China which should follow the steps of the European countries such as German, France, Norway, and Sweden which have implemented the college-free education proposal. Besides, the paper covers the 20 year period between 2000 and 2020 to effectively demonstrate the macroeconomic effects of changes in college education in Canada in two decades. The paper will use the OECD data source because it is the only source dealing with Canada. Also, the paper will simulate the Mankiw Romer Weil (1982) model with a keen interest to the Canadian education policy. In this case, the paper will study economic variables such as human capital, saving rates, population growth rates and technology growth rates.
Bibliography
Boothby, Daniel, and Torben Drewes. “Postsecondary Education in Canada: Returns to University, College and Trades Education.” Canadian Public Policy 32, no. 1 (2006): 1-22.
The paper concludes that college education generates more economic returns as compared to the secondary school education. Economic returns of the college education provide an important ground to support the free college proposal.
Lacroix, Guy, Francois Laliberté-Auger, Pierre-Carl Michaud, and Daniel Parent. “The Effect of College Education on Health and Mortality: Evidence from Canada.” Health Economics, 2019, Health Economics, 24 November 2019.
This article finds out that college education delays mortality by decreasing the health conditions and increase survival advantage condition on having the diseases. For this reason, the paper will support the hypothesis that social good of free college education outweigh its economic cost.
Regehr, Cheryl. “Trends in Higher Education in Canada and Implications for Social Work Education.” Social Work Education 32, no. 6 (2013): 700-14.
This paper finds out that high enrollment rates and falling of revenues are the major problems facing the Canadian post-secondary education. This will help the paper demonstrate the need for educational reforms in the Canadian college education.
Paper deadline
[10 pts] Due Saturday 03/21 Turn in the following document, submitted by email, keeping the format below, including:
Title
Author’s name
Abstract
Copy your proposal paragraph here. [You will add your main quantitative results to this paragraph in a later assignment]
I. Introduction
First paragraph: motivation and question:
· Present data or references showing why your question is important. 10 sentences.
Second paragraph: literature review (3 references at the very minimum):
· One connecting sentence to start the paragraph + 5 sentences by article +one sentence of conclusion regarding what we learn overall from the literature.
Description of what you are doing: theoretical model used, method, country, period:
· One connecting sentence + 4 sentences.
Quantitative results:[You will add your main quantitative results to this paragraph in a later assignment]
II. Methodology
a. [To be completed in a later assignment]
b. Calibration
i. Data description
Paragraph describing the data set. It must include important details, such as the provenance, the exact name of the data set, the frequency, and period covered.
ii. Parameters and model economy
Paragraph describing the table that you are filling below, which describes the ratios of the economy that you are studying (consumption/GDP, Investment/GDP, government expenditure/GDP, wage income/GDP). (Use program (7) Data treatment)
If you study two countries, make two tables.
Table 1: Actual versus model economy
Country |
C/Y |
I/Y |
G/Y |
wN/Y |
Actual economy |
Reference list
https://www.chicagomanualofstyle.org/tools_citationguide/citation-guide-1.html
Appendix
Your Mathematica code:
Data treatment, submitted as a separate file named: Your name_data1.nb
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy=’Mathematica 12.0′ *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 10539, 248]
NotebookOptionsPosition[ 9903, 228]
NotebookOutlinePosition[ 10240, 243]
CellTagsIndexPosition[ 10197, 240]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{“(*”,
RowBox[{
RowBox[{
“Calculate”, ” “, “economic”, ” “, “indicators”, ” “, “depicting”, ” “,
“long”, ” “, “term”, ” “, “trends”}], ” “, “-“, ” “,
RowBox[{
“an”, ” “, “example”, ” “, “with”, ” “, “quarterly”, ” “, “data”}]}],
“*)”}], “\[IndentingNewLine]”,
RowBox[{“(*”,
RowBox[{
RowBox[{
“First”, ” “, “I”, ” “, “downloaded”, ” “, “data”, ” “, “on”, ” “, “my”,
” “, “Mac”}], “,”, ” “,
RowBox[{“from”, ” “, “FRED”}]}], “*)”}], “\[IndentingNewLine]”,
“\[IndentingNewLine]”,
RowBox[{
RowBox[{“ClearAll”, “;”}], “\[IndentingNewLine]”,
RowBox[{
RowBox[{“Remove”, ” “, “[“, “\”\
“\[IndentingNewLine]”, “\[IndentingNewLine]”,
RowBox[{“(*”,
RowBox[{
“This”, ” “, “is”, ” “, “how”, ” “, “imported”, ” “, “data”, ” “, “in”,
” “, “cvs”, ” “, “format”, ” “, “look”, ” “,
RowBox[{“like”, “:”}]}], “*)”}], “\[IndentingNewLine]”,
RowBox[{
RowBox[{“rawydata”, “=”,
RowBox[{
“Import”, “[“, “\”\\””, “]”}]}],
“;”}], “\[IndentingNewLine]”, “\[IndentingNewLine]”,
RowBox[{“(*”,
RowBox[{
“You”, ” “, “need”, ” “, “to”, ” “, “eliminate”, ” “, “the”, ” “,
“inside”, ” “, “brackets”, ” “,
RowBox[{“(“,
RowBox[{“list”, ” “, “in”, ” “, “the”, ” “, “list”}], “)”}], ” “,
“with”, ” “, “Flatten”}], “*)”}], “\[IndentingNewLine]”,
RowBox[{
RowBox[{“ydata”, “=”,
RowBox[{
RowBox[{
“Import”, “[“, “\”\\””, “]”}], “//”,
“Flatten”}]}], “;”}], “\[IndentingNewLine]”,
RowBox[{
RowBox[{“cdata”, “=”,
RowBox[{
RowBox[{
“Import”, “[“, “\”\\””, “]”}], “//”,
“Flatten”}]}], “;”}], “\[IndentingNewLine]”, “\[IndentingNewLine]”,
RowBox[{“(*”,
RowBox[{
RowBox[{“eliminate”, ” “, “the”, ” “, “dates”}], “,”, ” “,
RowBox[{
“keep”, ” “, “every”, ” “, “second”, ” “, “element”, ” “, “in”, ” “,
“the”, ” “, “lists”}]}], “*)”}], “\[IndentingNewLine]”,
RowBox[{
RowBox[{“yonly”, “=”,
RowBox[{“Last”, “/@”,
RowBox[{“Partition”, “[“,
RowBox[{“ydata”, “,”, “2”}], “]”}]}]}], “;”}], “\[IndentingNewLine]”,
RowBox[{
RowBox[{“conly”, “=”,
RowBox[{“Last”, “/@”,
RowBox[{“Partition”, “[“,
RowBox[{“cdata”, “,”, “2”}], “]”}]}]}], “;”}], “\[IndentingNewLine]”,
“\[IndentingNewLine]”,
RowBox[{“(*”,
RowBox[{“calculate”, ” “, “the”, ” “,
RowBox[{“consumption”, “/”, “output”}], ” “, “each”, ” “, “quarter”}],
“*)”}], “\[IndentingNewLine]”,
RowBox[{
RowBox[{“ratiocyq”, “=”,
RowBox[{“conly”, “/”, “yonly”}]}], “;”}], “\[IndentingNewLine]”,
“\[IndentingNewLine]”,
RowBox[{“(*”,
RowBox[{
“eliminate”, ” “, “the”, ” “, “first”, ” “, “element”, ” “, “of”, ” “,
“the”, ” “, “list”, ” “, “before”, ” “, “caculating”, ” “, “the”, ” “,
“average”, ” “, “consumption”, ” “, “output”, ” “, “ratio”, ” “, “for”,
” “, “the”, ” “, “whole”, ” “, “period”}], “*)”}], “\[IndentingNewLine]”,
RowBox[{
RowBox[{“cyq”, “=”,
RowBox[{“Delete”, “[“,
RowBox[{“ratiocyq”, “,”, “1”}], “]”}]}], “;”}], “\[IndentingNewLine]”,
RowBox[{“Print”, “[“, “\”\
“\[IndentingNewLine]”,
RowBox[{
RowBox[{“Mean”, “[“, “cyq”, “]”}], “;”}], “\[IndentingNewLine]”,
“\[IndentingNewLine]”,
RowBox[{“(*”,
RowBox[{“other”, ” “, “useful”, ” “,
RowBox[{“manipulations”, “:”, ” “,
RowBox[{
“eliminate”, ” “, “parts”, ” “, “of”, ” “, “the”, ” “, “elements”, ” “,
“of”, ” “, “a”, ” “, “list”}]}]}], “*)”}], “\[IndentingNewLine]”,
RowBox[{“(*”, ” “,
RowBox[{
RowBox[{“for”, ” “,
RowBox[{“ex”, “:”, ” “,
RowBox[{
“eliminate”, ” “, “the”, ” “, “first”, ” “, “10”, ” “, “years”}]}]}],
“,”, ” “,
RowBox[{
“that”, ” “, “is”, ” “, “the”, ” “, “first”, ” “, “40”, ” “, “elements”,
” “, “because”, ” “, “I”, ” “, “want”, ” “, “the”, ” “, “period”, ” “,
“to”, ” “, “start”, ” “, “1957”, ” “, “instead”, ” “, “of”, ” “,
“1947”}]}], “*)”}], “\[IndentingNewLine]”,
RowBox[{
“Print”, “[“, “\”\
“\[IndentingNewLine]”,
RowBox[{
RowBox[{“Drop”, “[“,
RowBox[{“conly”, “,”, “41”}], “]”}], “;”,
RowBox[{“(*”,
RowBox[{
“I”, ” “, “added”, ” “, “one”, ” “, “because”, ” “, “the”, ” “, “first”,
” “, “term”, ” “, “is”, ” “, “a”, ” “, “word”, ” “, “that”, ” “,
“needs”, ” “, “to”, ” “, “be”, ” “, “eliminated”, ” “, “too”}], “*)”}],
“\[IndentingNewLine]”,
RowBox[{“(*”, ” “,
RowBox[{
RowBox[{“for”, ” “,
RowBox[{“ex”, “:”, ” “,
RowBox[{“the”, ” “, “last”, ” “, “10”, ” “, “years”}]}]}], “,”, ” “,
RowBox[{
“that”, ” “, “is”, ” “, “the”, ” “, “las”, ” “, “40”, ” “, “elements”,
” “, “because”, ” “, “I”, ” “, “want”, ” “, “the”, ” “, “period”, ” “,
“to”, ” “, “start”, ” “, “1957”, ” “, “instead”, ” “, “of”, ” “,
“1947”}]}], “*)”}], “\[IndentingNewLine]”,
RowBox[{
“Print”, “[“, “\”\
“\[IndentingNewLine]”,
RowBox[{
RowBox[{“Drop”, “[“,
RowBox[{“yonly”, “,”,
RowBox[{“-“, “40”}]}], “]”}], “;”}], “\[IndentingNewLine]”,
“\[IndentingNewLine]”}]}]], “Input”,
CellChangeTimes->{{3.789414040528288*^9, 3.789414288888193*^9}, {
3.7900201349036913`*^9, 3.7900201504200172`*^9}, {3.790020380010124*^9,
3.7900203807940493`*^9}, {3.790020414622364*^9, 3.790020541126563*^9}, {
3.790020718464375*^9, 3.790020794748599*^9}, {3.790020864035513*^9,
3.7900208901640673`*^9}, {3.790021005078186*^9, 3.790021108427026*^9}, {
3.7900213241266212`*^9, 3.7900214024095*^9}, {3.790021526605946*^9,
3.790021633542076*^9}, {3.7900234820523777`*^9, 3.7900234871848927`*^9}, {
3.79002374244658*^9, 3.790023769289939*^9}, {3.79002380977787*^9,
3.7900238238665123`*^9}, {3.790023960495116*^9, 3.7900240004227858`*^9}, {
3.7900240821187*^9, 3.790024088608788*^9}, {3.790024137783252*^9,
3.7900241734962797`*^9}, {3.79002440750764*^9, 3.790024488322109*^9},
3.790024604102325*^9, {3.790024912104377*^9, 3.790024973996162*^9}, {
3.790025005287833*^9, 3.790025021125103*^9}, {3.7900251156075983`*^9,
3.790025189931978*^9}, {3.790025243955394*^9, 3.79002528251155*^9},
3.790025324444734*^9, {3.7900255063491297`*^9, 3.790025544294271*^9}, {
3.790025626805093*^9, 3.7900256291193323`*^9}, {3.7900257123460827`*^9,
3.7900257168609343`*^9}, {3.79002575435981*^9, 3.7900257669619226`*^9}, {
3.790025800205867*^9, 3.790025801802842*^9}, {3.790025839855112*^9,
3.790025977777979*^9}, {3.790026086959691*^9, 3.790026089224833*^9}, {
3.790026246808292*^9, 3.790026298356697*^9}, {3.790026396882894*^9,
3.7900264071097116`*^9}, {3.790026459202075*^9, 3.790026552332365*^9}, {
3.7900265903554583`*^9, 3.7900266136098337`*^9}, {3.79002668050285*^9,
3.7900266951833687`*^9}, {3.7900267285400667`*^9,
3.7900268462378674`*^9}, {3.790026884448247*^9, 3.7900271755645638`*^9}, {
3.7900272103539667`*^9, 3.790027312345327*^9}, {3.7900273553504753`*^9,
3.7900273906034307`*^9}, {3.790027609958256*^9, 3.790027664558758*^9}, {
3.790027794127428*^9, 3.790027945411756*^9}, {3.7900279811166887`*^9,
3.790028008496923*^9}, {3.790028089529285*^9, 3.7900283107449427`*^9}, {
3.790028344666679*^9, 3.790028379729891*^9}, {3.790028688370392*^9,
3.790028696403879*^9}},
CellLabel->
“In[3682]:=”,ExpressionUUID->”205ec875-2237-47bd-840a-8d8150907d3f”],
Cell[CellGroupData[{
Cell[BoxData[“\<\"C/Y for the period 1947-2019:\"\>“], “Print”,
CellChangeTimes->{
3.7900272412197657`*^9, {3.7900272784199877`*^9, 3.790027296418367*^9}, {
3.790027817338188*^9, 3.790027832346726*^9}, {3.7900278632554197`*^9,
3.790027963799673*^9}, 3.790028280289846*^9, 3.790028311218491*^9,
3.7900283467190313`*^9, {3.790028673014132*^9, 3.7900286968352222`*^9}},
CellLabel->
“During evaluation of \
In[3682]:=”,ExpressionUUID->”d8192d17-808d-4bf5-8ea8-3f493fd0591a”],
Cell[BoxData[“\<\"C quarterly for the period 1957-2019:\"\>“], “Print”,
CellChangeTimes->{
3.7900272412197657`*^9, {3.7900272784199877`*^9, 3.790027296418367*^9}, {
3.790027817338188*^9, 3.790027832346726*^9}, {3.7900278632554197`*^9,
3.790027963799673*^9}, 3.790028280289846*^9, 3.790028311218491*^9,
3.7900283467190313`*^9, {3.790028673014132*^9, 3.790028696836972*^9}},
CellLabel->
“During evaluation of \
In[3682]:=”,ExpressionUUID->”541ae6e1-b6b5-485a-8a61-dab440f94ee7″],
Cell[BoxData[“\<\"Y quarterly for the period 1947-2009:\"\>“], “Print”,
CellChangeTimes->{
3.7900272412197657`*^9, {3.7900272784199877`*^9, 3.790027296418367*^9}, {
3.790027817338188*^9, 3.790027832346726*^9}, {3.7900278632554197`*^9,
3.790027963799673*^9}, 3.790028280289846*^9, 3.790028311218491*^9,
3.7900283467190313`*^9, {3.790028673014132*^9, 3.790028696838716*^9}},
CellLabel->
“During evaluation of \
In[3682]:=”,ExpressionUUID->”c1402f0e-2f87-4f85-893f-a0c613e5730d”]
}, Open ]]
}, Open ]]
},
WindowSize->{936, 547},
WindowMargins->{{Automatic, 0}, {Automatic, 260}},
FrontEndVersion->”12.0 for Mac OS X x86 (64-bit) (April 8, 2019)”,
StyleDefinitions->”Default.nb”
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 7791, 170, 808, “Input”,ExpressionUUID->”205ec875-2237-47bd-840a-8d8150907d3f”],
Cell[CellGroupData[{
Cell[8396, 196, 487, 8, 24, “Print”,ExpressionUUID->”d8192d17-808d-4bf5-8ea8-3f493fd0591a”],
Cell[8886, 206, 493, 8, 24, “Print”,ExpressionUUID->”541ae6e1-b6b5-485a-8a61-dab440f94ee7″],
Cell[9382, 216, 493, 8, 24, “Print”,ExpressionUUID->”c1402f0e-2f87-4f85-893f-a0c613e5730d”]
}, Open ]]
}, Open ]]
}
]
*)