With parameters

# A constructor is a plain function
new_man <- function(name) {
  structure(list(name = name), class = "Man")
}

man <- new_man("Alex")
# man$name = Alex

cat("man$name =", man$name, "\n")
cat("class(man) =", class(man), "\n")