Displaying 1 result from an estimated 1 matches for "totalvar".
Did you mean:
totalvac
2017 Oct 20
1
create a loop
....pop)
Rep1$adj.var<-(Rep1$variance)/(Rep1$sampled.pop/(1-(Rep1$sampled.pop/Rep1$
total.pop)))
Rep1$over.adj.var<-(Rep1$total.pop/sum(Rep1$total.pop))^2*Rep1$adj.var
Rep1$total<-Rep1$adj.mean*(Rep1$total.pop)
##
Estimated.TotalTemp<-sum(Rep1$adj.mean)*sum(Rep1$total.pop)
Estimated.totalvar<-sum(Rep1$adj.var)
Estimated.SE<-sqrt(Estimated.totalvar)*sum(Rep1$total.pop)
RESULTS.R1<-data.frame(Estimated.TotalTemp, SE=Estimated.SE)
RESULTS.R1
##########################
#Replication 2 create a resampled data
############################
Replication2<-dat1[unlist(lapply...