Print output of nlsystemfit estimation

Share:

Description

These functions print a summary of the estimated equation system.

Usage

1
2
3
4
5
   ## S3 method for class 'nlsystemfit.system'
print( x, digits=6, ... )

   ## S3 method for class 'nlsystemfit.equation'
print( x, digits=6, ... )

Arguments

x

an object of class nlsystemfit.system or nlsystemfit.equation.

digits

number of digits to print.

...

not used by user.

Author(s)

Jeff D. Hamann jeff.hamann@forestinformatics.com

See Also

nlsystemfit, summary.nlsystemfit.system

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
library( systemfit )
data( ppine )

hg.formula <- hg ~ exp( h0 + h1*log(tht) + h2*tht^2 + h3*elev + h4*cr)
dg.formula <- dg ~ exp( d0 + d1*log(dbh) + d2*hg + d3*cr + d4*ba  )
labels <- list( "height.growth", "diameter.growth" )
inst <- ~ tht + dbh + elev + cr + ba
start.values <- c(h0=-0.5, h1=0.5, h2=-0.001, h3=0.0001, h4=0.08,
                  d0=-0.5, d1=0.009, d2=0.25, d3=0.005, d4=-0.02 )
model <- list( hg.formula, dg.formula )

model.ols <- nlsystemfit( "OLS", model, start.values, data=ppine, eqnlabels=labels )
print( model.ols )

model.3sls <- nlsystemfit( "3SLS", model, start.values, data=ppine,
                                    eqnlabels=labels, inst=inst )
print( model.3sls )

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.