R/dsexpect.R

#' @export
`dsexpect` <-
function(x){
# Expected value interval
#=========================================================================
# Copyright (c) Philipp Limbourg, University of Duisburg-Essen
# www.uni-duisburg-essen.de/informationslogistik/
#=========================================================================
dsexpect=c(0,0);
dsexpect[1]=sum(cbind(x[,1]*x[,3]),na.rm = TRUE);
dsexpect[2]=sum(cbind(x[,2]*x[,3]),na.rm = TRUE);
dsexpect
}

Try the ipptoolbox package in your browser

Any scripts or data that you put into this service are public.

ipptoolbox documentation built on May 2, 2019, 2:09 a.m.