neubig

set.seed(123141)

fcount <- 20
tcount <- 1
alpha <- 3
xf <- rnorm(fcount,mean=-1, sd=0.7)
xt <- rnorm(tcount,mean=1, sd=0.7)
yf <- mat.or.vec(fcount,1)
yt <- mat.or.vec(tcount,1)

neubig

#!/usr/bin/perl

use strict;
use utf8;
use List::Util qw(max min);
binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";

if(@ARGV != 2) {
    print STDERR "Usage: counterrors.pl REFERENCE SYSTEM\n";