Extracting elements of lsmobj from lsmeans package in R
fiber.lsm is an S4 object that cannot be subsetted. But you can use the summary of the object. It returns a data frame of the model results.
s <- summary(fiber.lsm)class(s)# [1] "summary.ref.grid" "data.frame" s[c("lsmean", "SE")]# lsmean SE# 40.38241 0.7236252# 41.41922 0.7444169# 38.79836 0.7878785c(s[c("lsmean", "SE")])# $lsmean# [1] 40.38241 41.41922 38.79836## $SE# [1] 0.7236252 0.7444169 0.7878785