Displaying 4 results from an estimated 4 matches for "schnable".
Did you mean:
schnabel
2017 Aug 05
2
Nested for loop
...cum.sampled: how many total items have you seen?
schnabel.comp$cum.sampled <- c(0,
cumsum(schnabel.comp$n.newly.sampled)[2:n.samples-1])
## numerator of schnabel formula
schnabel.comp$numerator <- with(schnabel.comp,
n.sampled * cum.sampled)
## denominator of schnable formula is n.prev.sampled
## pop.estimate -- after each sample (starting with 2nd -- need at least
two samples)
schnabel.comp$pop.estimate <- NA
for(i in 1:length(schnabel.comp$pop.estimate)) {
schnabel.comp$pop.estimate[i] <- sum(schnabel.comp$numerator[1:i]) /
sum(schnabel.comp$n.prev.s...
2017 Aug 06
0
Nested for loop
...you seen?
> schnabel.comp$cum.sampled <- c(0,
> cumsum(schnabel.comp$n.newly.sampled)[2:n.samples-1])
>
> ## numerator of schnabel formula
> schnabel.comp$numerator <- with(schnabel.comp,
> n.sampled * cum.sampled)
>
> ## denominator of schnable formula is n.prev.sampled
>
> ## pop.estimate -- after each sample (starting with 2nd -- need at least
> two samples)
> schnabel.comp$pop.estimate <- NA
>
> for(i in 1:length(schnabel.comp$pop.estimate)) {
> schnabel.comp$pop.estimate[i] <- sum(schnabel.comp$numerator[...
2017 Aug 06
1
Nested for loop
...umsum(schnabel.comp$n.newly.sampled)[2:n.samples-1])
>
> >
>
> > ## numerator of schnabel formula
>
> > schnabel.comp$numerator <- with(schnabel.comp,
>
> > n.sampled * cum.sampled)
>
> >
>
> > ## denominator of schnable formula is n.prev.sampled
>
> >
>
> > ## pop.estimate -- after each sample (starting with 2nd -- need at least
>
> > two samples)
>
> > schnabel.comp$pop.estimate <- NA
>
> >
>
> > for(i in 1:length(schnabel.comp$pop.estimate)) {
>
> &g...
2017 Aug 08
1
Nested for loop
...p$cum.sampled <- c(0,
>> cumsum(schnabel.comp$n.newly.sampled)[2:n.samples-1])
>>
>> ## numerator of schnabel formula
>> schnabel.comp$numerator <- with(schnabel.comp,
>> n.sampled * cum.sampled)
>>
>> ## denominator of schnable formula is n.prev.sampled
>>
>> ## pop.estimate -- after each sample (starting with 2nd -- need at least
>> two samples)
>> schnabel.comp$pop.estimate <- NA
>>
>> for(i in 1:length(schnabel.comp$pop.estimate)) {
>> schnabel.comp$pop.estimate[i] <- s...