Mahdiark

Mahdiar Khosravi
========================================================
**STAT-545A hw#05**  
**October.07.2013**

```{r include = FALSE}
opts_chunk$set(tidy = FALSE)
```

### Source Data

Mahdiark

Mahdiar Khosravi
=================================
**STAT-545A hw#4 - UPDATE**  
**October.02.2013**

```{r include = FALSE}
opts_chunk$set(tidy = FALSE)
```

Mahdiark

Mahdiar Khosravi
=================================
**STAT-545A hw#4**  
**Sept.30.2013**

```{r include = FALSE}
opts_chunk$set(tidy = FALSE)
```

### Reference Source

Mahdiark

Dean Attali
=================================
**STAT 545A hw 3**  
**Sept 22 2013**

Exercises done:
* Average GDP/cap in each continent when the data was first and last collected **(easy)**
* Trimmed mean statistics for life expectancy in each continent for every year **(fun)**
* Absolute and relative world population in each of the continents **(very fun)**
* A list of all countries that at some point had their population size decrease **(very fun)**

Mahdiark

stat545a-2013-hw03_khosravi-mah
========================================================

Data Aggregation
-----------------
In this homework, we want to execute a series of data aggregation tasks on a set of data. 

### Max. and min. of GDP for different continents.
Let's import the Gapminder data set again:
```{r}

Mahdiark

stat545a-2013-hw02_khosravi-mah
========================================================

Markdown Exercise
-------------------------
This report is a basic illustration of how we can utilize **Markdown** in RStudio to develop a web page.
Here we import a sample set of data from [Gapminder](http://www.gapminder.org/) and present some basic descriptive statistics on it. 

### Data Import
It would always be wise if we verify where we are actually working and then continue:

Mahdiark

n <- 80
a <- 1.5
b <- 5
sigSq <- .4
x <- runif(n)
y <- a + b * x + rnorm(n, sd=sqrt(sigSq))
plot(x,y)
abline(a,b,col="brown")
#  I tried to use stitch function in the script but I could not figure out how to do it!:
# stitch(script, template=system.file("stat545a-2013-hw01_khosravi-mah.R","knitr-template.Rnw")