mcmtroffaes

# Return start of xs as long as f evaluates to TRUE
TakeWhile <-
function(f, x, nomatch = NULL)
{
    pos = Position(Negate(f), x, nomatch = 0L)
    if (pos == 0L) {
        ## f is TRUE everywhere
        if (length(x) > 0L)
            x
        else

mcmtroffaes

# classification.r: generic R library for classification
# Copyright (C) 2014  Matthias C. M. Troffaes  <matthias.troffaes@gmail.com>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of

mcmtroffaes

kfcv.sizes = function(n, k=10) {
  # generate sample sizes for k-fold cross validation on a data set of
  # size n
  
  # author: Matthias C. M. Troffaes
  # date: 22 Nov 2010
  # license: GPLv3
  # usage:
  #
  #   kfcv.sizes(n, k=...)

mcmtroffaes

effectsplot = function(formula, data=NULL, main=NULL, xlab=NULL, ylab=NULL) {
  # author: Matthias C. M. Troffaes
  # date: 26 Nov 2009
  # license: GPLv3
  # usage:
  #
  #   effectsplot(y ~ x, data=..., main=..., xlab=..., ylab=...)
  #
  # where the last three arguments are optional, and you should mind that xlab
  # is a *vector* of two strings (first for group effect label, second for