Как использовать функцию princomp () в R, когда ковариационная матрица имеет нули?

При использовании функции princomp () в R возникает следующая ошибка: «ковариационная матрица не является неотрицательно определенным ».

Я думаю, это связано с тем, что некоторые значения в ковариационной матрице равны нулю (фактически близки к нулю, но становятся равными нулю при округлении).

Есть ли обходной путь продолжить PCA, когда ковариационная матрица содержит нули?

[FYI: получение ковариационной матрицы - это промежуточный этап в вызове princomp () . Файл данных для воспроизведения этой ошибки можно загрузить отсюда - http://tinyurl.com/6rtxrc3 provided