Displaying 4 results from an estimated 4 matches for "nkids".
Did you mean:
kids
2004 Jul 15
0
indexing a parameter in nls
...1 and
f2 (with no intercept). The p-parameter indicates the relative impact
of the two factors on Y. If p=.5, f1 and f2 have equal impact, for
p>.5, f1 has greater impact, for p<.5 f2 has greater impact.
I can estimate the model as follows for f1="row", f2="col",
Y="nkids":
rd<-model.matrix(~as.factor(row)-1)
cd<-model.matrix(~as.factor(col)-1)
strt<-list(m1=2,m2=2,m3=2,m4=2,m5=3,p=.5)
nls(nkids~p*(rd[,1]*m1+rd[,2]*m2+rd[,3]*m3+rd[,4]*m4+rd[,5]*m5) +
(1-p)*(cd[,1]*m1+cd[,2]*m2+cd[,3]*m3+cd[,4]*m4+cd[,5]*m5),
start=strt)
---
What I want...
2008 Nov 07
2
Vectorizing sample()
I am simulating sickness among a group of families. Part of the task is
to randomly draw who in the family will be sick, randomly drawing from
family ID's where Dad =1, Mom = 2, Kid1 = 3, Kid2 = 4., etc. My census of
Dads is of the form shown below.
Dad_ID Spouse (Y=1;N=0) #Kids #People_Becoming_Sick
1 1 0 1
2
2001 Nov 05
1
Why doesn't outer work?
...x2<-p.vec[7];
sigmax<-sqrt(sigmax2);
mux<-p.vec[5]+p.vec[6]*x;
fac1<-sqrt(2*pi)*sigmax;
fac2<-((y-mux)^2)/(2*sigmax2);
return(exp(-fac2)/fac1);
}
#survival-growth function
pxy<-function(x,y) { return(sx(x)*(1-fx(x))*gxy(x,y)) }
#fecundity function
fxy<-function(x,y) {
nkids<-p.est*exp(p.vec[8]+p.vec[9]*x);
kidsize.mean<- p.vec[10];
kidsize.var<- p.vec[11];
fac1<-sqrt(2*pi)*sqrt(kidsize.var);
fac2<-((y-kidsize.mean)^2)/(2*kidsize.var);
f<-fx(x)*nkids*exp(-fac2)/fac1;
return(f);
}
# Part (III)
###################################################...
2003 Jul 02
2
Domain Member server and W2kServer
i'm currently running samba 2.2.8a as a domain member server to an
NT4Server.... no problems
will be upgrading the PDC to a W2K server next week...
there isn't a need to use LDAP with Samba with W2KServer is there ? I can
still go with my current setup can I ?