library("devtools")
install_git("[email protected]:johnsonjzhou/mycirclepackage.git")
library("mycirclepackage")
x <- new("BaseCircle", r = 5)
print(x)
cat("Perimeter", mycirclepackage::perimeter(x), "\n")
cat("Area", mycirclepackage::area(x), "\n")
y <- new("ColorCircle", r = 5, color = "green")
print(y)