tk:

Usage Arguments Examples

View source: R/tk.R

Usage

1
tk(fkx, pk)

Arguments

fkx
pk

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (fkx, pk) 
{
    K <- length(pk)
    n <- length(fkx)
    tk <- matrix(0, ncol = K, nrow = n)
    for (i in 1:n) {
        tk[i, ] <- (as.numeric(unlist(fkx[[i]])) * pk)/(as.numeric(unlist(fkx[[i]])) %*% 
            pk)[1, 1]
    }
    return(tk)
  }

SaraTouzani/EM documentation built on Dec. 16, 2019, 12:31 a.m.