Чтение xts из файла CSV в R

Я пытаюсь прочитать временные ряды из файла CSV и сохранить их как xts, чтобы иметь возможность обрабатывать их с помощью Quantmod. Проблема в том, что числовые значения не анализируются.

CSV-файл:

name;amount;datetime
test1;3;2010-09-23 19:00:00.057
test2;9;2010-09-23 19:00:00.073

R-код:

library(xts)
ColClasses = c("character", "numeric", "character")
Data <- read.zoo("c:\\dat\\test2.csv", index.column = 3, sep = ";", header = TRUE, FUN = as.POSIXct, colClasses = ColClasses)
as.xts(Data)

Результат:

                    name    amount
2010-09-23 19:00:00 "test1" "3"   
2010-09-23 19:00:00 "test2" "9"   

См. Столбец количества содержит символьные данные, но ожидается, что они будут числовыми. Что не так с моим кодом?