[R] generating phi using function()

[T.Riedle]

Hi everybody,
I am trying to generate the formula shown in the attachment. My formula so far looks as follows:

phi <- function(w1, w2, j, k, K){
zaehler <- (k/K)^(w1-1)*(1-k/K)^(w2-1)
nenner <- sum( ((1:K)/K)^(w1-1)*(1-(1:K)/K)^(w2-1))
return( zaehler/nenner )
}

Unfortunately something must be wrong here as I get the following message when running a midas regression

m22.phi<- midas_r(rv~mls(rvh,1:max.lag+h1,1,phi), start = list(rvh=c(1,1)))
Error in phi(c(1, 1), 44L, 1) : argument "K" is missing, with no default
Called from: .rs.breakOnError(TRUE)
Browse[1]> K<-125
Browse[1]> 125

Could anybody look into my phi formula and tell me what is wrong with it?

Thanks in advance.

-------------- next part --------------
A non-text attachment was scrubbed...
Name: psi.png
Type: image/png
Size: 2199 bytes
Desc: psi.png
URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20150329/3191bef5/attachment.png>