### Go inside the "preamble" section and type C-e C-e C-r (ess-roxy-preview-Rd)1### to get an R error message about 'col(m)' --> there's a buglet somewhere23##' Computes different parameter estimates for foo bars and variations4##'5##' @title Estimation procedures for Foo Bar6##' @param x data matrix7##' @param op object to be estimated8##' @param method estimation method; can be9##' "mle" MLE10##' "smle" SMLE11##' "dmle" MLE based on the diagonal12##' "mde.normal" minimum distance estimation based on the chisq distribution and CvM distance13##' "mde.log" minimum distance estimation based on the Erlang distribution and CvM distance14##' "tau.tau.mean" averaged pairwise Kendall's tau estimator15##' "tau.theta.mean" average of Kendall's tau estimators16##' "beta" multivariate Blomqvist's beta estimator17##' @return estimated value/vector according to the chosen method18##' @author Foo Bar19estimateFoo <- function(x, op, method=c("mle", "smle", "dmle", "mde.normal", "mde.log",20"tau.tau.mean", "tau.theta.mean", "beta"))21{22....23}242526