Displaying 2 results from an estimated 2 matches for "pulla".
Did you mean:
pull
2007 Mar 24
2
Two Problems while trying to aggregate a dataframe
...1: num 1.99 2.34 5.23 4.23 2.23 2.77 3.83 2.76 6.32 2.88
$ Betrag2: num 3.44 5.32 5.21 9.12 7.32 8.32 6.99 4.45 5.34 3.81
> atest
PrsNr Namen Betrag1 Betrag2
1 1 Holla 1.99 3.44
2 2 Mabba 2.34 5.32
3 2 Mabba 5.23 5.21
4 3 Pisa 4.23 9.12
5 4 Pulla 2.23 7.32
6 5 Raba 2.77 8.32
7 6 Saba 3.83 6.99
8 6 Saba 2.76 4.45
9 6 Saba 6.32 5.34
10 7 Mulla 2.88 3.81
> aggregate(list(Betrag1=atest$Betrag1), by=list(PsrNr=atest$PrsNr,
Namen=atest$Namen), sum)
PsrNr Namen Betrag1
1 1...
2011 Apr 21
0
C source code question (Robustbase edition)
...w[i] = w_cand[i];
}
} while(1);
} /* _WHIMED_ */
#############################################################
mqn<-function(x,p0){
n<-length(x)
h<-as.integer((n/2)+1)
h<-as.integer(n-p0)
k<-h*(h-1)/2
y<-left<-right<-weight<-work<-p<-q<-rep(NA,n)
pulla<-function(a_in,n,k){
a<-rep(NA,n)
for(j in 0:(n-1)) a[j+1]<-a_in[j+1]
ax<-sort(a)[k]
return(ax)
}
y<-sort(x)
for(i in 1:n){
left[i]<-n-i+2
right[i]<-ifelse(i<=h,n,n-(i-h))
}
nl<-n*(n+1)/2
nr<-n*n
knew<-as.integer(k+nl)
found<-F
while(found==...