collinsavings <- BankAccount$new("Collin", type = "Savings")
collinsavings$deposit(10)
collinsavings
#> <BankAccount>
#> Public:
#> balance: 10
#> clone: function (deep = FALSE)
#> deposit: function (amount)
#> initialize: function (owner, type)
#> owner: NULL
#> type: NULL
#> withdraw: function (amount)
collinsavings$withdraw(10)
collinsavings
#> <BankAccount>
#> Public:
#> balance: 0
#> clone: function (deep = FALSE)
#> deposit: function (amount)
#> initialize: function (owner, type)
#> owner: NULL
#> type: NULL
#> withdraw: function (amount)