Displaying 3 results from an estimated 3 matches for "misc1".
Did you mean:
misc
2011 Dec 26
4
Other ways to lm() regression? (non-loop?)
...---
y<-matrix(rnorm(100),ncol=10,nrow=10)
x<-matrix(rnorm(50),ncol=5,nrow=10)
#Suppose I want to run the specification y=A+Bx+error, for each and every
y[,n] onto each and every x[,n].
#So with:
ncol(y);ncol(x)
#I should end up with 10*5=50 regressions in total.
#I know how to do this fine:
MISC1<-0
for(i in 1:ncol(y)){
for(j in 1:ncol(x)){
reg<-lm(y[,i]~x[,j])
MISC1<-cbind(MISC1,coef(reg)) #for coefficients
}}
coef<-matrix(MISC1[,-1],ncol=50)
coef[,1];coef(lm(y[,1]~x[,1])) #test passed
ncol(coef) #as desired, 50 regressions.
#--------------------...
2004 Jun 07
2
AGI + g729A
...ation
written in C which does some checks before dial one of the extensions.
From the AGI program, after done all I have to do, I need to call one
extension, but when
I call the "Dial" application, my AGI program exits and Asterisk gives
me:
-- Executing Goto("IAX2[callfwd2@misc1]/16386", "100|1") in new
stack
-- Goto (default,100,1)
-- Executing AGI("IAX2[callfwd2@misc1]/16386", "exm") in new stack
-- Launched AGI Script /var/lib/asterisk/agi-bin/exm
-- AGI Script Executing Application: (DIAL) Options: (Zap/23|12|m)
J...
2011 Dec 31
2
Very strange function() behaviour.
...TRUE)fake<-1 else co<-matrix(co)
if(exists(as.character(substitute(fake1)))==FALSE)fake<-1 else t3<-t
tstat<-as.numeric(t);tstat[is.na(tstat)]<-0
sig.l<-length(sig)
stars<-rawToChar(charToRaw("*********************************************"),multiple=T)
MISC1<-0
for(x in 1:length(sig)){
if(tails==1)cutoff<-qt(sig[x],Inf) else
if(tails==2)cutoff<-qt(sig[x]+0.5*(1-sig[x]),Inf) else fake<-1
MISC1<-cbind(MISC1,cutoff)
}
cutoff<-MISC1[-1]
for(i in 1:length(tstat)){
if(abs(as.numeric(tstat[i]))<=cutoff[1])tstat[i]&...