Estou executando o seguinte CRM:

read.table(file = "clipboard", header = TRUE, sep = "\t", dec = ",")-> TSF
> TSF
> names(TSF)
 [1] "Date"  "Label" "PMF"   "BC"    "Acet"  "Form"  "Cl."   "NO3."  "PO43." "SO42." "Na."   "K."  
[13] "Mg2."  "Ca2."  "NH4."
> TSFa <- TSF[,2:15]
> model <- prcomp(TSFa, scale = TRUE)
Erro em colMeans(x, na.rm = TRUE) : 'x' deve ser numérico
> model <- prcomp(TSFa, na.rm = TRUE, scale = TRUE)
Erro em colMeans(x, na.rm = TRUE) : 'x' deve ser numérico