fed_stimulus (assignment 3)

Hi, this is Jessie Jin. Wed Apr 17 19:30:48 2019

import the dataset

library(readr)
fed_stimulus <- read.csv("fed_stimulus.csv")

Compute the sum and mean for the payment value column

sum(fed_stimulus$Payment.Value, na.rm = TRUE)

## [1] 3180464994

mean(fed_stimulus$Contract.Value, na.rm = TRUE)

## [1] 14894004

projects that Completed 50% or more

completed50 <- subset(fed_stimulus, fed_stimulus$"Project Status"=="Completed 50% or more")