Update constructors.R

Added extractStatbankData() function.