server_mv_rb_covmcd.R

source("mv_rb_plot.R")

## Minimum risk
output$mv_rb_covmcd_min_risk1 <- renderPlot(
  mv_rb_min_risk_plot1(estimator = "covMcdEstimator", rb_text = "minimum covariance determinant estimator")
)

output$mv_rb_covmcd_min_risk2 <- renderPlot(
  mv_rb_min_risk_plot2(estimator = "covMcdEstimator", rb_text = "minimum covariance determinant estimator")
)

output$mv_rb_covmcd_min_risk3 <- renderPlot(
  mv_rb_min_risk_plot3(estimator = "covMcdEstimator", rb_text = "minimum covariance determinant estimator")
)


## Global minimum variance
output$mv_rb_covmcd_grobmin1 <- renderPlot(
  mv_rb_globmin_plot1(estimator = "covMcdEstimator", rb_text = "minimum covariance determinant estimator")
)

output$mv_rb_covmcd_grobmin2 <- renderPlot(
  mv_rb_globmin_plot2(estimator = "covMcdEstimator", rb_text = "minimum covariance determinant estimator")
)

output$mv_rb_covmcd_grobmin3 <- renderPlot(
  mv_rb_globmin_plot3(estimator = "covMcdEstimator", rb_text = "minimum covariance determinant estimator")
)

## Tangency 
output$mv_rb_covmcd_tangen1 <- renderPlot(
  mv_rb_tangen_plot1(estimator = "covMcdEstimator", rb_text = "minimum covariance determinant estimator")
)

output$mv_rb_covmcd_tangen2 <- renderPlot(
  mv_rb_tangen_plot2(estimator = "covMcdEstimator", rb_text = "minimum covariance determinant estimator")
)

output$mv_rb_covmcd_tangen3 <- renderPlot(
  mv_rb_tangen_plot3(estimator = "covMcdEstimator", rb_text = "minimum covariance determinant estimator")
)

## Performance attribute

output$mv_rb_covmcd_performance1 <- renderPlot(
  mv_rb_performance1(estimator = "covMcdEstimator", rb_text = "minimum covariance determinant estimator")
)

output$mv_rb_covmcd_performance2 <- renderPlot(
  mv_rb_performance2(estimator = "covMcdEstimator", rb_text = "minimum covariance determinant estimator")
)

output$mv_rb_covmcd_performance3 <- renderPlot(
  mv_rb_performance3(estimator = "covMcdEstimator", rb_text = "minimum covariance determinant estimator")
)


## Frontier
output$mv_rb_covmcd_frontier1 <- renderPlot(
  mv_rb_frontier1(estimator = "covMcdEstimator", rb_text = "minimum covariance determinant estimator")
)