data = subset(data, select=c(Date, Name, Type, Status, Gross, Fee, Net, From.Email.Address))
data = subset(data, Type != 'Withdraw Funds to a Bank Account')
d = strptime(data$Date, '%m/%d/%Y')
mon = strftime(d, format='%y-%m')
sums = tapply(data$Net, mon, sum)
barplot(sums, main='Paypal net by month')
aggregate(data$Net, list('month'=data$mon, 'type'=data$Type), sum)