mydata<-  read.csv("/x.csv",header=T, sep=";")

Warning messages: 1: In model.response(mf, "numeric") :
using type = "numeric" with a factor response will be ignored 2:
     In Ops.factor(y, z$residuals) : '-' not meaningful for factors.

mydata<-  read.csv("/x.csv",header=T, sep=",")