Анализ котировок в приложении R: Quantmod

Я пытаюсь создать функцию, которая обеспечивает историческую волатильность после получения символа от Yahoo. Однако, когда я передаю результат в функцию волатильности, ей это не нравится; Переменной Get присваивается вектор с кавычками, например "SPY", но функция волатильности принимает только без кавычек (SPY без "SPY"). Я пытаюсь убрать кавычки с помощью noquote () и теперь получаю следующую ошибку:

Ошибка в журнале (x): нечисловой аргумент математической функции

Мой код

require(quantmod)

vClose = function(X){
Get <- getSymbols(X, from="2000-01-01", src="yahoo")
Set <- noquote(Get)
volatility(Set, calc="close")
}

Любая помощь будет отличной.