I am trying to do factor analysis on one data problem but when I am applying the factor analysis model I am getting the error .

library(lattice)

my.wines <- read.csv(“http://steviep42.bitbucket.org/YOUTUBE.DIR/wines.csv”, header=TRUE)

my.prc <- prcomp(my.wines[,-1], center=TRUE, scale=TRUE)

m1_f1<-factanal(my.wines,factor=2,rotation=“varimax”)

Error in factanal(my.wines, factor = 2, rotation = “varimax”) :

factor analysis applies only to numerical variables