diff --git a/config.template.R b/config.template.R
index 64e25b7..5ac3f55 100644
--- a/config.template.R
+++ b/config.template.R
@@ -1,3 +1,4 @@
 # Copy each of the sheets by URL (from address bar)
+# TODO return a list, not series of named variables
 journal1<-gsheet2tbl("https://docs.google.com/spreadsheets/morestuffhere1")
 journal2<-gsheet2tbl("https://docs.google.com/spreadsheets/morestuffhere2")
\ No newline at end of file
diff --git a/working.Rmd b/working.Rmd
index 475c4a1..5e1fd0c 100644
--- a/working.Rmd
+++ b/working.Rmd
@@ -24,15 +24,26 @@ journal<-rbind(journal1,journal2)
 ## Clean up
 # Date is date
 journal$Date<-as.Date(journal$Date,format="%m/%d/%Y")
+# Class is a factor
+journal$Class<-as.factor(journal$Class)
 # Debit and Credit are numeric, without commas
 journal$Debit<-as.numeric(sub(",","",journal$Debit))
 journal$Credit<-as.numeric(sub(",","",journal$Credit))
 
 # Start thinking about reports
-# All time net, should be function
+# All time net
+# TODO should be function
 net<-sum(journal$Credit,na.rm=T)-sum(journal$Debit,na.rm=T)
 
-# Net by class and date range, should be function
+# Net by class and date range
+# TODO should be function that uses the net function above
+classes<-levels(journal$Class)
+
+for (i in 1:length(classes))
+{ print(paste(classes[i],
+        " net is ",
+        sum(journal$Credit[journal$Class==classes[i]],na.rm=T)-sum(journal$Debit[journal$Class==classes[i]],na.rm=T)))
+}
 
 # See other reports in QB and Ledger