This is a report showing the Federal Stimulus dataset available from https://data.cityofnewyork.us/Business/Federal-StimulusData/ivix-m77e. This report was generated on Sun Apr 16 15:27:18 2017.

The data was first imported into R as a data frame called fed_stimulus.

library(readr)
Federal_Stimulus_Data <- read_csv("C:/Users/engha/Desktop/Alvin/NYU MSBA/Federal_Stimulus_Data.csv")
## Parsed with column specification:
## cols(
##   .default = col_character(),
##   `Stimulus Tracker ID` = col_integer(),
##   `Stimulus Funding` = col_double(),
##   `Displaced City Funding` = col_integer(),
##   `All Other Funding` = col_double(),
##   `% of Funds Spent` = col_double(),
##   `% of Funds to be Spent by Interim Spending Deadine` = col_integer(),
##   `Contract Value` = col_double(),
##   `Payment Id` = col_integer(),
##   `Payment Value` = col_double()
## )
## See spec(...) for full column specifications.
fed_stimulus <- data.frame(Federal_Stimulus_Data)

The sum and mean of the payment value were computed using the following code:

sum(fed_stimulus$Payment.Value, na.rm = TRUE)
## [1] 3180464994
mean(fed_stimulus$Payment.Value, na.rm = TRUE)
## [1] 242044.5

A subset of the data showing projects that are more than 50% completed (excluding those fully completed) is generated using the following code:

fed_stimulus_completed50pctOrMore <- subset.data.frame(fed_stimulus, Project.Status == "Completed 50% or more")

This subset contains 4908 projects out of a total of 13553 projects.