powered by
emissionParam(object) emissionParam(object) <- value
EmissionParam
hparam <- HmmParam() emissionParam(hparam) ep <- EmissionParam() cn_means(ep) <- log2(c(.1/2, 1/2, 2/2, 2/2, 3/2, 4/2)) emissionParam(hparam) <- ep
Run the code above in your browser using DataLab