electronic_gadgets1<-read.csv("electronic_gadgets1.csv")
electronic_gadgets1[1:12,]## Transaction_Details Assets
## 1 Started with a capital of 20 Lakhs 1/1/2015 Cash & Bank
## 2 Paid deposit of Rs. 5 lakhs for a Warehouse Rent Advance
## 3 c Cash & Bank
## 4 Monthly rent of 1 lakh per month on the last day <NA>
## 5 Imported Goods of 380 lakhs from China on credit Inventory
## 6 Sales of 480 lakhs incld 20 lakhs VAT Cash & Bank
## 7 <NA> <NA>
## 8 32 lakhs to e-commerce portal as commission Cash & Bank
## 9 Monthly expenses excld rent/interest: 3 lakhs/mo Cash & Bank
## 10 Rent & Interest: 6 and 3 lakhs Cash & Bank
## 11 June 30th,unsold inventory 60 lakhs. Inventory
## 12 Paid 320 lakhs to Chinese supplier. Cash & Bank
## Assets_Value Liabilities Liabilities_Value Equity Revenue_Name
## 1 20 <NA> NA 20 <NA>
## 2 5 <NA> NA NA <NA>
## 3 -5 <NA> NA NA <NA>
## 4 NA <NA> NA NA <NA>
## 5 380 Payables 380 NA <NA>
## 6 460 <NA> NA NA Sales
## 7 NA <NA> NA NA VAT
## 8 -32 <NA> NA NA <NA>
## 9 -18 <NA> NA NA <NA>
## 10 -9 <NA> NA NA <NA>
## 11 -320 <NA> NA NA <NA>
## 12 -320 Payables -320 NA <NA>
## Revenue_Value Expense_Account_Name Expense_Value
## 1 0 <NA> 0
## 2 0 <NA> 0
## 3 0 <NA> 0
## 4 0 <NA> 0
## 5 0 <NA> 0
## 6 460 <NA> 0
## 7 20 VAT -20
## 8 0 Commission -32
## 9 0 Monthly Expenses -18
## 10 0 Rent & Interest -9
## 11 0 Cost of Inventory -320
## 12 0 <NA> 0##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union## Revenue_Name Revenue_Value Expense_Account_Name Expense_Value
## 1 Sales 460 <NA> 0
## 2 VAT 20 VAT -20
## 3 <NA> 0 Commission -32
## 4 <NA> 0 Monthly Expenses -18
## 5 <NA> 0 Rent & Interest -9
## 6 <NA> 0 Cost of Inventory -320sum(Income_Statement[,2])+sum(Income_Statement[,4])## [1] 81Since it’s positive it’s Profit and it’s 81 lakhs for the period of 6 months.