Error in var(if (is.vector(x) || is.factor(x)) x else as.double(x), na.rm = na.rm) :

My csv file osagecreekfinal has dates (Date) in (YYYY-MM-DD) and L.s.ha is a continuous variable. I have performed this same code on 14 other files but it will not work for this one. I am simply trying to get descriptive statistics from each of my sites from May-September 2014.

I keep getting an error saying factor x is defunct.

library(psych)
library(openair)

osage<-osagecreekfinal
osage$Date<-as.Date(osage$Date,format= "%Y-%m-%d")
osage2014<-subset(osage,Date>="2014-05-01"& Date<"2014-10-01")
describe(osage2014$L.s.ha, type=2)

Date         L.s.ha
2014-06-15  2085.712359
2014-07-15  1984.790794
2014-08-19  1867.048967