static ULONG
MyDispatcher(struct IClass *cl, Object *obj, Msg msg)
{
switch (msg->MethodID)
{
case OM_NEW:
return(mNew(cl, obj, (struct opSet *) msg));
case MUIM_DynTest_ToggleChild:
return(mToggleChild(cl, obj, (APTR)msg));
}
return(DoSuperMethodA(cl, obj, msg));
}
BOOPSI_DISPATCHER(IPTR, classdispatcher, cl, obj, msg) {
mybug(0,("Class Dispatcher!\n"));
switch (msg->MethodID) {
case OM_NEW:
return mNew(cl,obj,(APTR)msg);
case OM_DISPOSE:
return mDispose(cl,obj,(APTR)msg);
case MUIM_Setup:
return mSetup(cl,obj,(APTR)msg);
case MUIM_Cleanup:
return mCleanup(cl,obj,(APTR)msg);
case OM_SET:
return mSet(cl,obj,(APTR)msg);
case OM_GET:
return mGet(cl,obj,(APTR)msg);
case MUIM_AskMinMax:
return mAskMinMax(cl,obj,(APTR)msg);
case MUIM_Hide:
return mHide(cl,obj,(APTR)msg);
case MUIM_Show:
return mShow(cl,obj,(APTR)msg);
case MUIM_Draw:
return mDraw(cl,obj,(APTR)msg);
// case MUIM_Action_HandlePsdEvents:
// return mPsdEventHandler(cl,obj,(APTR)msg);
case MUIM_Action_HandleTmrEvents:
return mTmrEventHandler(cl,obj,(APTR)msg);
default:
return DoSuperMethodA(cl,obj,msg);
}
return 0;
}
// [[Rcpp::export]]
RcppExport SEXP get_Distance_Matrix(SEXP newData, SEXP refData, SEXP weights) {
Rcpp::NumericVector vWeights(weights);
Rcpp::NumericMatrix mNew(newData);
Rcpp::NumericMatrix mRef(refData);
// number of variables in model
int nVars = mRef.ncol();
// n new cases
int nNewCases = mNew.nrow();
// allocate result matrix
Rcpp::NumericMatrix mResult(mRef.nrow(), nNewCases);
for (int i=0; i<nVars; ++i) { // loop over variables
for (int j=0; j<nNewCases; ++j) { // loop over new cases
mResult(Rcpp::_, j) = mResult(Rcpp::_, j) + abs(vWeights(i) * (mRef(Rcpp::_, i) - mNew(j, i)));
} // end loop new cases
} // end loop variables
return Rcpp::wrap(mResult);
}
AppManager::AppItem::AppItem(app_ctor aNew)
:mNew(aNew)
{
mApp = mNew();
}
