tulostaAdmixtureTiedot <- function(proportions, uskottavuus, alaRaja, niter) { warning("tulostaAdmixtureTiedot() not implemented" ) }