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:18:39 -05:00
parent ff85c27c29
commit e106d97c1c
1 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
working.Rmd
View File

@ -30,19 +30,24 @@ journal$Class<-as.factor(journal$Class)
journal$Debit<-as.numeric(sub(",","",journal$Debit)) journal$Debit<-as.numeric(sub(",","",journal$Debit))
journal$Credit<-as.numeric(sub(",","",journal$Credit)) journal$Credit<-as.numeric(sub(",","",journal$Credit))
# Start thinking about reports ## Temp function location
# All time net # All time net, takes journal as an argument
# TODO should be function net.calc<-function(journ){
net<-sum(journal$Credit,na.rm=T)-sum(journal$Debit,na.rm=T) net<-sum(journ$Credit,na.rm=T)-sum(journ$Debit,na.rm=T)
return(net)
}
# 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
classes<-levels(journal$Class) classes<-levels(journal$Class)
net.byclass<-data.frame(Class=character(),
Net=numeric(),
stringsAsFactors=FALSE)
for (i in 1:length(classes)) for (i in 1:length(classes))
{ print(paste(classes[i], { net.byclass[i,] <- c(as.character(classes[i]),
" net is ", 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))) na.rm=T)-sum(journal$Debit[journal$Class==classes[i]],
na.rm=T))
} }
# See other reports in QB and Ledger # See other reports in QB and Ledger