Create a system for back test trade algorithm and idea using OOP in R