2016-03-19 22 views
-1

uyacak basit bir test kodu lm` gelen formülünü bir uygulama: y ~ x formülünü dönecektir böyleceözü ve `İşte

> x=runif(10) 
> y=runif(10) 
> tt=paste0("y~", "x") 
> fitt=lm(as.formula(tt)) 
> fitt$call[[2]] 
as.formula(tt) 

nasıl son komut çalıştırılabilir çıkış dil nesnesi yapabilir? Mathematica'da ToExpression komutu.

+0

Çok teşekkürler! Mathematicada 'Evaluate' gibi. –

+0

Yorum yaptığım bir yanıt, önerdiğim ilk seçenek bu konuda daha iyi bir yol olsa da – Raad

cevap

1

Burada iki seçenek düşünebilirsiniz:

formula(fitt$terms) # Option 1 
eval(fitt$call[[2]]) # Option 2 
+0

Sadece seçenek 2 regsubsets nesnesi için çalışıyor. –

+0

Sınıfı bilmeyen, bir şartname nesnesi içermiyor mu? – Raad

+0

Hayır, 'NULL' döndürür. İkinci sürümü koduma koydum. 'leaps' kütüphanesi iyi organize edilmemiştir. –