r - lme summary から N を抽出する

Question

コピーして貼り付けるのではなくN、テストの概要で生成された観測値 ( ) の数を簡単に取得する方法を探しています。これlmeをオンラインで見つけましたが、コマンドが組み込まれていないようで、パッケージがこのサイトにアップロードされていません。texreg

n <- nobs(model) #extract number of observations

どうもありがとう。

Answer 1

library(nlme)

x <- 1:80
g <- sort(rep(c(1,2,3,4),20))
set.seed(1)
y <- 3*x+g*0.01+rnorm(80,sd=0.01)

plot(y~x)
fit <- lme(y~x,random=~1|g)

nobs(fit)
[1] 80 #works just fine

fit$dims$N
[1] 80 #alternative