Displaying 3 results from an estimated 3 matches for "form4".
Did you mean:
form
2011 Jun 23
0
Loops, Paste, Apply? What is the best way to set up a list of many equations?
Is there a way to apply paste to?list(form1 = EQ1, form2 = EQ2, form3 = EQ3, form4 = EQ4)?such that I don't have to write form1=EQ1 for all my models?(I might have a list of 20 or more)? I also need the EQs to read the formulas associated with them.
For example, below, I was able to automate the name assignment but I could not figure out how to?to set up the list using?paste...
2011 Jun 21
1
Setting up list of many equations for systemfit
...ind a simple way to set up the list command under the package system fit. Here is the example from system fit and what I am trying to do:
EQ1 <- Y1 ~ X1 + X2 + X4EQ2 <- Y2 ~ X2 + X3EQ3 <- Y3 ~ X2 + X3 + X4EQ4 <- Y4 ~ X1 + X3 + X4eqSystem <-list(form1 = EQ1, form2 = EQ2, form3 = EQ3, form4 = EQ4)
#atempt 1 to "automate" above:eqSystem1 <-paste(paste("form", 1:4, sep=""), paste("EQ", 1:4,sep=""),sep="=")
#attempt 2 "automate" above:eqSystem2 <-as.list(paste(paste("form", 1:4, sep=""), past...
2011 Jun 28
2
How do I output all the R-squares of an SUR? summary(fitSUR$eq[[1:4]])$r.squared does not work
...+ X4 + X7 + X10 ## equation 1 formula
EQ2 <- Y2 ~ X2 + X3 + X5 + X8 + X10 ## equation 2 formula
EQ3 <- Y3 ~ X5 + X6 + X7 + X9 ## equation 3 formula
EQ4 <- Y4 ~ X1 + X3 + X4 + X6 + X9 ## equation 4 formula
eqSystem <-list(form1 = EQ1, form2 = EQ2, form3 = EQ3, form4 = EQ4)
fitSUR <- systemfit(eqSystem, method ="SUR", data=YX)
## How do I out put all the R-squares of the system without having to type a
single line for each?
summary(fitSUR$eq[[1]])$r.squared
summary(fitSUR$eq[[2]])$r.squared
summary(fitSUR$eq[[3]])$r.squared
summary(fitSUR$eq[[4...