Displaying 2 results from an estimated 2 matches for "m456".
Did you mean:
456
1997 Nov 24
0
R-alpha: random number generator -- S-plus's
...seed }
s0 <- ss(0)
for(i in -1000:4000)
X if(any(ss(i)[-(4:6)] != s0[-(4:6)])) cat("i=",i," .R.s=",.Random.seed,"\n")
##--> no output, i.e., it's really
## only .Random.seed[c(4,5,6)] which are modified by set.seed(.)
X
ni <- length(i.set <- -2:2000)
m456 <- matrix(NA, ni, 3, dimnames=list(paste(i.set),paste(4:6)))
for(i in i.set) m456[paste(i),] <- ss(i)[4:6]
t(m456[1:25,])
X
apply(m456, 2, function(x) sort(unique(x)))
##- $"4":
##- [1] 0 16 32 48
##-
##- $"5":
##-[1] 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 1...
2010 May 19
8
Generating all possible models from full model
...glm.nb(mantas~cosmonth+sinmonth+plankton,data=mydata))
m356<-glm.convert(glm.nb(mantas~cosmonth+coslunar+sinlunar,data=mydata))
m357<-glm.convert(glm.nb(mantas~cosmonth+coslunar+plankton,data=mydata))
m367<-glm.convert(glm.nb(mantas~cosmonth+sinlunar+plankton,data=mydata))
m456<-glm.convert(glm.nb(mantas~sinmonth+coslunar+sinlunar,data=mydata))
m457<-glm.convert(glm.nb(mantas~sinmonth+coslunar+plankton,data=mydata))
m467<-glm.convert(glm.nb(mantas~sinmonth+sinlunar+plankton,data=mydata))
m567<-glm.convert(glm.nb(mantas~coslunar+sinlunar+plankton,data...