Winter 2021 BUS 230A Syllabus
topic <- c("1: Financial Statements",
"2: Accounting cycle I",
"3: Accounting cycle II",
"4: Accounting cycle III",
"5: Sales Revenue, Receivables and Cash",
"6: Cost of Sales Revenue and Inventory",
"7: Property/Plant/Equipment and Intangibles",
"8: Liabilities",
"9: Owners' Equity",
"Exam open from 9 AM to 5 PM (2 hour time limit)"
)
# Short Term 10/8/18 and 12/3/18
dates <- c("20210106","20210107", "20210108",
"20210111", "20210112","20210113","20210114", "20210115",
"20210119", "20210120")
dates_formatted <- paste(month(ymd(dates), label=TRUE), day(ymd(dates)))
quiz <- c("1", "2", "3", "4", "5", "6", "7","8","9", "")
quiz_due <- c(rep("5 PM", 9), "")
kable(cbind(dates_formatted, topic, quiz, quiz_due ),
col.names = c("Date", "Topic", "Quiz due", "Closes at"))
Date | Topic | Quiz due | Closes at |
---|---|---|---|
Jan 6 | 1: Financial Statements | 1 | 5 PM |
Jan 7 | 2: Accounting cycle I | 2 | 5 PM |
Jan 8 | 3: Accounting cycle II | 3 | 5 PM |
Jan 11 | 4: Accounting cycle III | 4 | 5 PM |
Jan 12 | 5: Sales Revenue, Receivables and Cash | 5 | 5 PM |
Jan 13 | 6: Cost of Sales Revenue and Inventory | 6 | 5 PM |
Jan 14 | 7: Property/Plant/Equipment and Intangibles | 7 | 5 PM |
Jan 15 | 8: Liabilities | 8 | 5 PM |
Jan 19 | 9: Owners’ Equity | 9 | 5 PM |
Jan 20 | Exam open from 9 AM to 5 PM (2 hour time limit) |
There are 1000 possible points in the course. Your grade will be determined by your total points:
Grade | Points |
---|---|
A | 950 |
A- | 900 |
B+ | 870 |
B | 830 |
B- | 800 |
C+ | 770 |
C | 730 |
C- | 700 |
D+ | 670 |
D | 600 |