matt/ledgerr
1
0
Fork 0
Code Issues 5 Pull Requests Packages Projects Releases Wiki Activity

snapshot

Browse Source
This commit is contained in:
Matt
2016-04-08 12:38:15 -05:00
parent e106d97c1c
commit 97c352ae60
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
working.Rmd
View File

@ -39,16 +39,23 @@ net.calc<-function(journ){
# Net by class and date range # Net by class and date range
# TODO should be function that uses the net function above # TODO should be function that uses the net function above
# List of classes
classes<-levels(journal$Class) classes<-levels(journal$Class)
# Set up data frame
net.byclass<-data.frame(Class=character(), net.byclass<-data.frame(Class=character(),
Net=numeric(), Net=numeric(),
stringsAsFactors=FALSE) stringsAsFactors=FALSE)
# Loop through classes, calculate net, and add to data frame
for (i in 1:length(classes)) for (i in 1:length(classes))
{ net.byclass[i,] <- c(as.character(classes[i]), { net.byclass[i,] <- c(as.character(classes[i]),
sum(journal$Credit[journal$Class==classes[i]], sum(journal$Credit[journal$Class==classes[i]],
na.rm=T)-sum(journal$Debit[journal$Class==classes[i]], na.rm=T)-sum(journal$Debit[journal$Class==classes[i]],
na.rm=T)) na.rm=T))
} }
# Identify empty class
net.byclass$Class[net.byclass$Class==""] <- "Unclassified"
# Add total net row
net.byclass[nrow(net.byclass)+1,]<-c("Total",net.calc(journal))
# See other reports in QB and Ledger # See other reports in QB and Ledger