Input buildinfo: https://buildinfos.debian.net/buildinfo-pool/o/octave-statistics/octave-statistics_1.4.3-2_all.buildinfo Use metasnap for getting required timestamps New buildinfo file: /tmp/octave-statistics-1.4.3-22l078i_k/octave-statistics_1.4.3-2_all.buildinfo Get source package info: octave-statistics=1.4.3-2 Source URL: http://snapshot.notset.fr/mr/package/octave-statistics/1.4.3-2/srcfiles?fileinfo=1 env -i PATH=/usr/sbin:/usr/bin:/sbin:/bin TMPDIR=/tmp mmdebstrap --arch=amd64 --include=adduser=3.118 aglfn=1.7+git20191031.4036a9c-2 autoconf=2.71-2 automake=1:1.16.5-1.1 autopoint=0.21-4 autotools-dev=20180224.1+nmu1 base-files=12 base-passwd=3.5.52 bash=5.1-5 binutils=2.37-10 binutils-common=2.37-10 binutils-x86-64-linux-gnu=2.37-10 bsdextrautils=2.37.2-4 bsdutils=1:2.37.2-4 build-essential=12.9 bzip2=1.0.8-5 ca-certificates=20211016 cme=1.034-1 coreutils=8.32-4.1 cpp=4:11.2.0-2 cpp-11=11.2.0-12 dash=0.5.11+git20210903+057cd650a4ed-3 debconf=1.5.79 debhelper=13.5.2 debianutils=5.5-1 dh-autoreconf=20 dh-octave=1.0.5 dh-octave-autopkgtest=1.0.5 dh-strip-nondeterminism=1.12.1-1 diffstat=1.64-1 diffutils=1:3.7-5 dpkg=1.21.1 dpkg-dev=1.21.1 dwz=0.14-1 file=1:5.41-2 findutils=4.8.0-1 fontconfig=2.13.1-4.2 fontconfig-config=2.13.1-4.2 fonts-dejavu-core=2.37-2 fonts-freefont-otf=20120503-10 g++=4:11.2.0-2 g++-11=11.2.0-12 gcc=4:11.2.0-2 gcc-11=11.2.0-12 gcc-11-base=11.2.0-12 gettext=0.21-4 gettext-base=0.21-4 gfortran=4:11.2.0-2 gfortran-11=11.2.0-12 gnuplot-data=5.4.1+dfsg1-1 gnuplot-nox=5.4.1+dfsg1-1 gpg=2.2.27-2 gpgconf=2.2.27-2 grep=3.7-1 groff-base=1.22.4-7 gzip=1.10-4 hdf5-helpers=1.10.7+repack-4 hostname=3.23 ibverbs-providers=38.0-1 init-system-helpers=1.61 intltool-debian=0.35.0+20060710.5 libacl1=2.3.1-1 libaec-dev=1.0.6-1 libaec0=1.0.6-1 libalgorithm-c3-perl=0.11-1 libaliased-perl=0.34-1.1 libamd2=1:5.10.1+dfsg-4 libapp-cmd-perl=0.334-1 libapt-pkg-perl=0.1.40 libapt-pkg6.0=2.3.13 libarchive-zip-perl=1.68-1 libarpack2=3.8.0-1 libarray-intspan-perl=2.004-1 libasan6=11.2.0-12 libasound2=1.2.5.1-1 libasound2-data=1.2.5.1-1 libassuan0=2.5.5-1 libatomic1=11.2.0-12 libattr1=1:2.5.1-1 libaudit-common=1:3.0.6-1 libaudit1=1:3.0.6-1+b1 libavahi-client3=0.8-5 libavahi-common-data=0.8-5 libavahi-common3=0.8-5 libb-hooks-endofscope-perl=0.25-1 libb-hooks-op-check-perl=0.22-1+b3 libbinutils=2.37-10 libblas-dev=3.10.0-1 libblas3=3.10.0-1 libblkid1=2.37.2-4 libboolean-perl=0.46-1 libbrotli1=1.0.9-2+b3 libbsd0=0.11.3-1 libbtf1=1:5.10.1+dfsg-4 libbz2-1.0=1.0.8-5 libc-bin=2.32-5 libc-dev-bin=2.32-5 libc6=2.32-5 libc6-dev=2.32-5 libcairo2=1.16.0-5 libcamd2=1:5.10.1+dfsg-4 libcap-ng0=0.7.9-2.2+b1 libcap2=1:2.44-1 libcapture-tiny-perl=0.48-1 libcarp-assert-more-perl=2.0.1-1 libcbor0.8=0.8.0-2 libcc1-0=11.2.0-12 libccolamd2=1:5.10.1+dfsg-4 libcholmod3=1:5.10.1+dfsg-4 libclass-c3-perl=0.35-1 libclass-data-inheritable-perl=0.08-3 libclass-load-perl=0.25-1 libclass-method-modifiers-perl=2.13-1 libclass-xsaccessor-perl=1.19-3+b7 libclone-choose-perl=0.010-1 libclone-perl=0.45-1+b1 libcolamd2=1:5.10.1+dfsg-4 libcom-err2=1.46.4-1 libcombblas1.16.0=1.6.2-6 libconfig-model-backend-yaml-perl=2.134-1 libconfig-model-dpkg-perl=2.153 libconfig-model-perl=2.147-1 libconfig-tiny-perl=2.27-1 libconst-fast-perl=0.014-1.1 libconvert-binhex-perl=1.125-1 libcpanel-json-xs-perl=4.27-1 libcrypt-dev=1:4.4.26-1 libcrypt1=1:4.4.26-1 libctf-nobfd0=2.37-10 libctf0=2.37-10 libcups2=2.3.3op2-7 libcurl3-gnutls=7.79.1-2 libcurl4=7.79.1-2 libcurl4-openssl-dev=7.79.1-2 libcxsparse3=1:5.10.1+dfsg-4 libdata-dpath-perl=0.58-1 libdata-messagepack-perl=1.01-2 libdata-optlist-perl=0.112-1 libdata-section-perl=0.200007-1 libdata-validate-domain-perl=0.10-1.1 libdata-validate-ip-perl=0.30-1 libdata-validate-uri-perl=0.07-1 libdatrie1=0.2.13-2 libdb5.3=5.3.28+dfsg1-0.8 libdbus-1-3=1.12.20-3 libdebconfclient0=0.261 libdebhelper-perl=13.5.2 libdeflate0=1.8-1 libdevel-callchecker-perl=0.008-1+b2 libdevel-size-perl=0.83-1+b2 libdevel-stacktrace-perl=2.0400-1 libdouble-conversion3=3.1.5-7 libdpkg-perl=1.21.1 libdrm-amdgpu1=2.4.108-1 libdrm-common=2.4.108-1 libdrm-intel1=2.4.108-1 libdrm-nouveau2=2.4.108-1 libdrm-radeon1=2.4.108-1 libdrm2=2.4.108-1 libdynaloader-functions-perl=0.003-1.1 libedit2=3.1-20210910-1 libegl-dev=1.3.4-2+b1 libegl-mesa0=21.2.6-1 libegl1=1.3.4-2+b1 libelf1=0.186-1 libemail-address-xs-perl=1.04-1+b3 libencode-locale-perl=1.05-1.1 liberror-perl=0.17029-1 libevdev2=1.12.0+dfsg-1 libevent-core-2.1-7=2.1.12-stable-1 libevent-pthreads-2.1-7=2.1.12-stable-1 libexception-class-perl=1.45-1 libexpat1=2.4.1-3 libexporter-lite-perl=0.08-1 libexporter-tiny-perl=1.002002-1 libfabric1=1.11.0-2 libffi8=3.4.2-3 libfftw3-bin=3.3.8-2 libfftw3-dev=3.3.8-2 libfftw3-double3=3.3.8-2 libfftw3-long3=3.3.8-2 libfftw3-mpi3=3.3.8-2 libfftw3-quad3=3.3.8-2 libfftw3-single3=3.3.8-2 libfido2-1=1.9.0-1 libfile-basedir-perl=0.09-1 libfile-find-rule-perl=0.34-1 libfile-homedir-perl=1.006-1 libfile-listing-perl=6.14-1 libfile-stripnondeterminism-perl=1.12.1-1 libfile-which-perl=1.23-1 libflac8=1.3.3-2 libfltk-gl1.3=1.3.5-3 libfltk1.3=1.3.5-3 libfont-ttf-perl=1.06-1.1 libfontconfig1=2.13.1-4.2 libfreetype6=2.11.0+dfsg-1 libfribidi0=1.0.8-2 libgbm1=21.2.6-1 libgcc-11-dev=11.2.0-12 libgcc-s1=11.2.0-12 libgcrypt20=1.9.4-4 libgd3=2.3.0-2 libgdbm-compat4=1.22-1 libgdbm6=1.22-1 libgetopt-long-descriptive-perl=0.109-2 libgfortran-11-dev=11.2.0-12 libgfortran5=11.2.0-12 libgl-dev=1.3.4-2+b1 libgl1=1.3.4-2+b1 libgl1-mesa-dev=21.2.6-1 libgl1-mesa-dri=21.2.6-1 libgl2ps1.4=1.4.2+dfsg1-2 libglapi-mesa=21.2.6-1 libgles-dev=1.3.4-2+b1 libgles1=1.3.4-2+b1 libgles2=1.3.4-2+b1 libglib2.0-0=2.70.2-1 libglpk40=5.0-1 libglu1-mesa=9.0.1-1 libglvnd-core-dev=1.3.4-2+b1 libglvnd-dev=1.3.4-2+b1 libglvnd0=1.3.4-2+b1 libglx-dev=1.3.4-2+b1 libglx-mesa0=21.2.6-1 libglx0=1.3.4-2+b1 libgmp10=2:6.2.1+dfsg-3 libgnutls30=3.7.2-2 libgomp1=11.2.0-12 libgpg-error0=1.42-3 libgraphicsmagick++-q16-12=1.4+really1.3.36+hg16481-2 libgraphicsmagick-q16-3=1.4+really1.3.36+hg16481-2 libgraphite2-3=1.3.14-1 libgssapi-krb5-2=1.18.3-7 libgudev-1.0-0=237-2 libharfbuzz0b=2.7.4-1 libhash-fieldhash-perl=0.15-1+b3 libhash-merge-perl=0.302-1 libhdf5-103-1=1.10.7+repack-4 libhdf5-cpp-103-1=1.10.7+repack-4 libhdf5-dev=1.10.7+repack-4 libhdf5-fortran-102=1.10.7+repack-4 libhdf5-hl-100=1.10.7+repack-4 libhdf5-hl-cpp-100=1.10.7+repack-4 libhdf5-hl-fortran-100=1.10.7+repack-4 libhdf5-openmpi-103-1=1.10.7+repack-4 libhogweed6=3.7.3-1 libhtml-html5-entities-perl=0.004-1.1 libhtml-parser-perl=3.76-1 libhtml-tagset-perl=3.20-4 libhtml-tree-perl=5.07-2 libhttp-cookies-perl=6.10-1 libhttp-date-perl=6.05-1 libhttp-message-perl=6.35-1 libhttp-negotiate-perl=6.01-1 libhwloc-plugins=2.6.0-1 libhwloc15=2.6.0-1 libhypre=2.22.1-3 libibverbs1=38.0-1 libice6=2:1.0.10-1 libicu67=67.1-7 libidn2-0=2.3.2-2 libimport-into-perl=1.002005-1 libinput-bin=1.19.2-1 libinput10=1.19.2-1 libio-html-perl=1.004-2 libio-interactive-perl=1.023-1 libio-prompt-tiny-perl=0.003-1 libio-socket-ssl-perl=2.072-1 libio-string-perl=1.08-3.1 libio-stringy-perl=2.111-3 libio-tiecombine-perl=1.005-1.1 libipc-run3-perl=0.048-2 libipc-system-simple-perl=1.30-1 libisl23=0.24-2 libiterator-perl=0.03+ds1-1.1 libiterator-util-perl=0.02+ds1-1.1 libitm1=11.2.0-12 libjack-jackd2-0=1.9.19~dfsg-2 libjbig0=2.1-3.1+b2 libjpeg-dev=1:2.1.2-1 libjpeg62-turbo=1:2.1.2-1 libjpeg62-turbo-dev=1:2.1.2-1 libjson-maybexs-perl=1.004003-1 libjson-perl=4.03000-1 libk5crypto3=1.18.3-7 libkeyutils1=1.6.1-2 libklu1=1:5.10.1+dfsg-4 libkrb5-3=1.18.3-7 libkrb5support0=1.18.3-7 liblapack-dev=3.10.0-1 liblapack3=3.10.0-1 liblcms2-2=2.12~rc1-2 libldap-2.4-2=2.4.59+dfsg-1 liblist-compare-perl=0.55-1 liblist-moreutils-perl=0.430-2 liblist-moreutils-xs-perl=0.430-2 liblist-someutils-perl=0.58-1 liblist-utilsby-perl=0.11-1 libllvm12=1:12.0.1-17+b1 liblog-any-adapter-screen-perl=0.140-2 liblog-any-perl=1.710-1 liblog-log4perl-perl=1.54-1 liblsan0=11.2.0-12 libltdl7=2.4.6-15 liblua5.4-0=5.4.3-1 liblwp-mediatypes-perl=6.04-1 liblwp-protocol-https-perl=6.10-1 liblz4-1=1.9.3-2 liblzma5=5.2.5-2 liblzo2-2=2.10-2 libmagic-mgc=1:5.41-2 libmagic1=1:5.41-2 libmailtools-perl=2.21-1 libmarkdown2=2.2.7-2 libmd0=1.0.4-1 libmd4c0=0.4.8-1 libmetis5=5.1.0.dfsg-7 libmime-tools-perl=5.509-1 libmodule-implementation-perl=0.09-1.1 libmodule-pluggable-perl=5.2-1 libmodule-runtime-perl=0.016-1 libmoo-perl=2.005004-3 libmoox-aliases-perl=0.001006-1.1 libmoox-struct-perl=0.020-1 libmount1=2.37.2-4 libmouse-perl=2.5.10-1+b1 libmousex-nativetraits-perl=1.09-2.1 libmousex-strictconstructor-perl=0.02-2.1 libmpc3=1.2.1-1 libmpfr6=4.1.0-3 libmro-compat-perl=0.13-1 libmtdev1=1.1.6-1 libmumps-5.4=5.4.1-2 libnamespace-autoclean-perl=0.29-1 libnamespace-clean-perl=0.27-1 libncurses-dev=6.3-1 libncurses6=6.3-1 libncursesw6=6.3-1 libnet-domain-tld-perl=1.75-1.1 libnet-http-perl=6.21-1 libnet-ipv6addr-perl=1.02-1 libnet-netmask-perl=2.0001-1 libnet-smtp-ssl-perl=1.04-1 libnet-ssleay-perl=1.90-1 libnetaddr-ip-perl=4.079+dfsg-1+b5 libnettle8=3.7.3-1 libnghttp2-14=1.43.0-1 libnl-3-200=3.4.0-1+b1 libnl-route-3-200=3.4.0-1+b1 libnsl-dev=1.3.0-2 libnsl2=1.3.0-2 libnuma1=2.0.14-3 libnumber-compare-perl=0.03-2 libnumber-range-perl=0.12-1.1 libobject-id-perl=0.1.2-2.1 liboctave-dev=6.2.0-1 liboctave8=6.2.0-1 libogg0=1.3.4-0.1 libopengl-dev=1.3.4-2+b1 libopengl0=1.3.4-2+b1 libopenmpi3=4.1.2-1 libopus0=1.3.1-0.1 libp11-kit0=0.24.0-6 libpackage-stash-perl=0.39-1 libpam-modules=1.4.0-11 libpam-modules-bin=1.4.0-11 libpam-runtime=1.4.0-11 libpam0g=1.4.0-11 libpango-1.0-0=1.48.10+ds1-1 libpangocairo-1.0-0=1.48.10+ds1-1 libpangoft2-1.0-0=1.48.10+ds1-1 libparams-classify-perl=0.015-1+b3 libparams-util-perl=1.102-1+b1 libparams-validate-perl=1.30-1+b1 libparse-debcontrol-perl=2.005-4.1 libparse-recdescent-perl=1.967015+dfsg-2 libpath-iterator-rule-perl=1.015-1 libpath-tiny-perl=0.120-1 libpciaccess0=0.16-1 libpcre2-16-0=10.39-3 libpcre2-8-0=10.39-3 libpcre3=2:8.39-13 libperl5.32=5.32.1-6 libperlio-gzip-perl=0.19-1+b7 libperlio-utf8-strict-perl=0.008-1+b1 libpetsc-real3.15=3.15.5+dfsg1-1 libpipeline1=1.5.4-1 libpixman-1-0=0.40.0-1 libpmix2=4.1.1~rc5-1+b1 libpng16-16=1.6.37-3 libpod-constants-perl=0.19-2 libpod-parser-perl=1.63-2 libpod-pom-perl=2.01-3 libportaudio2=19.6.0-1.1 libproc-processtable-perl=0.634-1 libpsl5=0.21.0-1.2 libpsm-infinipath1=3.3+20.604758e7-6.1 libpsm2-2=11.2.185-1 libpthread-stubs0-dev=0.4-1 libptscotch-6.1=6.1.1-2 libqhull8.0=2020.2-4 libqrupdate1=1.1.2-4 libqscintilla2-qt5-15=2.11.6+dfsg-4+b1 libqscintilla2-qt5-l10n=2.11.6+dfsg-4 libqt5core5a=5.15.2+dfsg-14 libqt5dbus5=5.15.2+dfsg-14 libqt5gui5=5.15.2+dfsg-14 libqt5help5=5.15.2-5+b1 libqt5network5=5.15.2+dfsg-14 libqt5printsupport5=5.15.2+dfsg-14 libqt5sql5=5.15.2+dfsg-14 libqt5widgets5=5.15.2+dfsg-14 libqt5xml5=5.15.2+dfsg-14 libquadmath0=11.2.0-12 librdmacm1=38.0-1 libreadline-dev=8.1-2 libreadline8=8.1-2 libregexp-common-perl=2017060201-1 libregexp-pattern-license-perl=3.9.3-1 libregexp-pattern-perl=0.2.14-1 librole-tiny-perl=2.002004-1 librtmp1=2.4+20151223.gitfa8646d.1-2+b2 libsamplerate0=0.2.2-1 libsasl2-2=2.1.27+dfsg2-2 libsasl2-modules-db=2.1.27+dfsg2-2 libscalapack-openmpi2.1=2.1.0-4 libscotch-6.1=6.1.1-2 libseccomp2=2.5.3-2 libselinux1=3.3-1+b1 libsemanage-common=3.3-1 libsemanage2=3.3-1+b1 libsensors-config=1:3.6.0-7 libsensors5=1:3.6.0-7 libsepol2=3.3-1 libsereal-decoder-perl=4.018+ds-1+b1 libsereal-encoder-perl=4.018+ds-1+b1 libsigsegv2=2.13-1 libsm6=2:1.2.3-1 libsmartcols1=2.37.2-4 libsndfile1=1.0.31-2 libsoftware-license-perl=0.104001-1 libsoftware-licensemoreutils-perl=1.005-1 libsort-versions-perl=1.62-1 libsqlite3-0=3.36.0-2 libssh2-1=1.10.0-2 libssl-dev=1.1.1l-1 libssl1.1=1.1.1l-1 libstdc++-11-dev=11.2.0-12 libstdc++6=11.2.0-12 libstrictures-perl=2.000006-1 libstring-copyright-perl=0.003011-1 libstring-escape-perl=2010.002-2 libstring-rewriteprefix-perl=0.008-1 libsub-exporter-perl=0.988-1 libsub-exporter-progressive-perl=0.001013-1 libsub-identify-perl=0.14-1+b3 libsub-install-perl=0.928-1.1 libsub-name-perl=0.26-1+b1 libsub-override-perl=0.09-2 libsub-quote-perl=2.006006-1 libsub-uplevel-perl=0.2800-1.1 libsuitesparseconfig5=1:5.10.1+dfsg-4 libsundials-ida4=5.8.0+dfsg-1 libsundials-nvecparallel-petsc4=5.8.0+dfsg-1 libsundials-nvecserial4=5.8.0+dfsg-1 libsundials-sunlinsol2=5.8.0+dfsg-1 libsundials-sunmatrix2=5.8.0+dfsg-1 libsuperlu-dist7=7.1.0+dfsg1-2 libsuperlu5=5.3.0+dfsg1-2 libsyntax-keyword-try-perl=0.26-1 libsystemd0=249.7-1 libsz2=1.0.6-1 libtasn1-6=4.18.0-4 libterm-readkey-perl=2.38-1+b2 libtest-exception-perl=0.43-1 libtext-autoformat-perl=1.750000-1 libtext-glob-perl=0.11-2 libtext-levenshtein-damerau-perl=0.41-1.1 libtext-levenshteinxs-perl=0.03-4+b8 libtext-markdown-discount-perl=0.13-1 libtext-reform-perl=1.20-3 libtext-template-perl=1.60-1 libtext-unidecode-perl=1.30-1 libtext-xslate-perl=3.5.9-1 libthai-data=0.1.28-4.1 libthai0=0.1.28-4.1 libtiff5=4.3.0-2 libtime-duration-perl=1.21-1 libtime-moment-perl=0.44-1+b3 libtimedate-perl=2.3300-2 libtinfo6=6.3-1 libtirpc-common=1.3.2-2 libtirpc-dev=1.3.2-2 libtirpc3=1.3.2-2 libtoml-tiny-perl=0.15-1 libtool=2.4.6-15 libtrilinos-amesos12=12.18.1-2+b1 libtrilinos-aztecoo12=12.18.1-2+b1 libtrilinos-epetra12=12.18.1-2+b1 libtrilinos-epetraext12=12.18.1-2+b1 libtrilinos-galeri12=12.18.1-2+b1 libtrilinos-ifpack12=12.18.1-2+b1 libtrilinos-kokkos12=12.18.1-2+b1 libtrilinos-ml12=12.18.1-2+b1 libtrilinos-teuchos12=12.18.1-2+b1 libtrilinos-trilinosss12=12.18.1-2+b1 libtrilinos-triutils12=12.18.1-2+b1 libtrilinos-zoltan12=12.18.1-2+b1 libtry-tiny-perl=0.31-1 libtsan0=11.2.0-12 libtype-tiny-perl=1.012004-1 libubsan1=11.2.0-12 libuchardet0=0.0.7-1 libucx0=1.11.2-1 libudev1=249.7-1 libumfpack5=1:5.10.1+dfsg-4 libunicode-utf8-perl=0.62-1+b2 libunistring2=0.9.10-6 liburi-perl=5.10-1 libuuid1=2.37.2-4 libvariable-magic-perl=0.62-1+b3 libvorbis0a=1.3.7-1 libvorbisenc2=1.3.7-1 libvulkan1=1.2.189.0-2 libwacom-common=1.12-1 libwacom2=1.12-1 libwayland-client0=1.19.0-2+b1 libwayland-server0=1.19.0-2+b1 libwebp6=0.6.1-2.1 libwebpmux3=0.6.1-2.1 libwmf0.2-7=0.2.8.4-17+b1 libwww-perl=6.59-1 libwww-robotrules-perl=6.02-1 libx11-6=2:1.7.2-2+b1 libx11-data=2:1.7.2-2 libx11-dev=2:1.7.2-2+b1 libx11-xcb1=2:1.7.2-2+b1 libxau-dev=1:1.0.9-1 libxau6=1:1.0.9-1 libxcb-dri2-0=1.14-3 libxcb-dri3-0=1.14-3 libxcb-glx0=1.14-3 libxcb-icccm4=0.4.1-1.1 libxcb-image0=0.4.0-1+b3 libxcb-keysyms1=0.4.0-1+b2 libxcb-present0=1.14-3 libxcb-randr0=1.14-3 libxcb-render-util0=0.3.9-1+b1 libxcb-render0=1.14-3 libxcb-shape0=1.14-3 libxcb-shm0=1.14-3 libxcb-sync1=1.14-3 libxcb-util1=0.4.0-1+b1 libxcb-xfixes0=1.14-3 libxcb-xinerama0=1.14-3 libxcb-xinput0=1.14-3 libxcb-xkb1=1.14-3 libxcb1=1.14-3 libxcb1-dev=1.14-3 libxcursor1=1:1.2.0-2 libxdmcp-dev=1:1.1.2-3 libxdmcp6=1:1.1.2-3 libxext6=2:1.3.4-1 libxfixes3=1:5.0.3-2 libxft2=2.3.2-2 libxinerama1=2:1.1.4-2 libxkbcommon-x11-0=1.3.1-1 libxkbcommon0=1.3.1-1 libxml-libxml-perl=2.0134+dfsg-2+b1 libxml-namespacesupport-perl=1.12-1.1 libxml-sax-base-perl=1.09-1.1 libxml-sax-perl=1.02+dfsg-3 libxml2=2.9.12+dfsg-5+b1 libxnvctrl0=470.82.00-1 libxpm4=1:3.5.12-1 libxrender1=1:0.9.10-1 libxs-parse-keyword-perl=0.21-1 libxshmfence1=1.3-1 libxxf86vm1=1:1.1.4-1+b2 libxxhash0=0.8.0-2 libyaml-0-2=0.2.2-1 libyaml-libyaml-perl=0.83+ds-1 libyaml-perl=1.30-1 libyaml-tiny-perl=1.73-1 libz3-4=4.8.12-1+b1 libzstd1=1.4.8+dfsg-3 licensecheck=3.2.14-2 lintian=2.114.0 linux-libc-dev=5.15.5-1 login=1:4.8.1-2 lsb-base=11.1.0 lzip=1.22-4 lzop=1.04-2 m4=1.4.18-5 make=4.3-4.1 man-db=2.9.4-2 mawk=1.3.4.20200120-2 mpi-default-bin=1.14 ncurses-base=6.3-1 ncurses-bin=6.3-1 netbase=6.3 ocl-icd-libopencl1=2.2.14-3 octave=6.2.0-1 octave-common=6.2.0-1 octave-io=2.6.3-1+b1 openmpi-bin=4.1.2-1 openmpi-common=4.1.2-1 openssh-client=1:8.7p1-2 openssl=1.1.1l-1 passwd=1:4.8.1-2 patch=2.7.6-7 patchutils=0.4.2-1 perl=5.32.1-6 perl-base=5.32.1-6 perl-modules-5.32=5.32.1-6 perl-openssl-defaults=5 po-debconf=1.0.21+nmu1 readline-common=8.1-2 rpcsvc-proto=1.4.2-4 sed=4.8-1 sensible-utils=0.0.17 shared-mime-info=2.0-1 sysvinit-utils=3.00-1 t1utils=1.41-4 tar=1.34+dfsg-1 tex-common=6.17 texinfo=6.8-3 ucf=3.0043 unzip=6.0-26 util-linux=2.37.2-4 x11-common=1:7.7+23 x11proto-dev=2021.5-1 xkb-data=2.33-1 xorg-sgml-doctools=1:1.11-1.1 xtrans-dev=1.4.0-1 xz-utils=5.2.5-2 zlib1g=1:1.2.11.dfsg-2 zlib1g-dev=1:1.2.11.dfsg-2 --variant=apt --aptopt=Acquire::Check-Valid-Until "false" --aptopt=Acquire::http::Dl-Limit "1000"; --aptopt=Acquire::https::Dl-Limit "1000"; --aptopt=Acquire::Retries "5"; --aptopt=APT::Get::allow-downgrades "true"; --keyring=/usr/share/keyrings/ --essential-hook=chroot "$1" sh -c "apt-get --yes install fakeroot util-linux" --essential-hook=copy-in /usr/share/keyrings/debian-archive-bullseye-automatic.gpg /usr/share/keyrings/debian-archive-bullseye-security-automatic.gpg /usr/share/keyrings/debian-archive-bullseye-stable.gpg /usr/share/keyrings/debian-archive-buster-automatic.gpg /usr/share/keyrings/debian-archive-buster-security-automatic.gpg /usr/share/keyrings/debian-archive-buster-stable.gpg /usr/share/keyrings/debian-archive-keyring.gpg /usr/share/keyrings/debian-archive-removed-keys.gpg /usr/share/keyrings/debian-archive-stretch-automatic.gpg /usr/share/keyrings/debian-archive-stretch-security-automatic.gpg /usr/share/keyrings/debian-archive-stretch-stable.gpg /usr/share/keyrings/debian-ports-archive-keyring-removed.gpg /usr/share/keyrings/debian-ports-archive-keyring.gpg /usr/share/keyrings/debian-keyring.gpg /etc/apt/trusted.gpg.d/ --essential-hook=chroot "$1" sh -c "rm /etc/apt/sources.list && echo 'deb http://snapshot.notset.fr/archive/debian/20211213T153359Z/ bookworm main deb-src http://snapshot.notset.fr/archive/debian/20211213T153359Z/ bookworm main deb http://snapshot.notset.fr/archive/debian/20211212T085436Z/ unstable main' >> /etc/apt/sources.list && apt-get update" --customize-hook=chroot "$1" useradd --no-create-home -d /nonexistent -p "" builduser -s /bin/bash --customize-hook=chroot "$1" env sh -c "apt-get source --only-source -d octave-statistics=1.4.3-2 && mkdir -p /build/octave-statistics-n9Ulju && dpkg-source --no-check -x /*.dsc /build/octave-statistics-n9Ulju/octave-statistics-1.4.3 && chown -R builduser:builduser /build/octave-statistics-n9Ulju" --customize-hook=chroot "$1" env --unset=TMPDIR runuser builduser -c "cd /build/octave-statistics-n9Ulju/octave-statistics-1.4.3 && env DEB_BUILD_OPTIONS="parallel=4" LANG="C.UTF-8" LC_ALL="C.UTF-8" LC_COLLATE="C.UTF-8" SOURCE_DATE_EPOCH="1639219263" dpkg-buildpackage -uc -a amd64 --build=all" --customize-hook=sync-out /build/octave-statistics-n9Ulju /tmp/octave-statistics-1.4.3-22l078i_k bookworm /dev/null deb http://snapshot.notset.fr/archive/debian/20211212T085436Z unstable main I: automatically chosen mode: root I: chroot architecture amd64 is equal to the host's architecture I: automatically chosen format: tar I: using /tmp/mmdebstrap.Z01dgrcpCa as tempdir I: running apt-get update... I: downloading packages with apt... I: extracting archives... I: installing essential packages... I: running --essential-hook in shell: sh -c 'chroot "$1" sh -c "apt-get --yes install fakeroot util-linux"' exec /tmp/mmdebstrap.Z01dgrcpCa Reading package lists... Building dependency tree... util-linux is already the newest version (2.37.2-4). The following NEW packages will be installed: fakeroot libfakeroot 0 upgraded, 2 newly installed, 0 to remove and 0 not upgraded. Need to get 134 kB of archives. After this operation, 397 kB of additional disk space will be used. Get:1 http://snapshot.notset.fr/archive/debian/20211212T085436Z unstable/main amd64 libfakeroot amd64 1.26-1 [47.3 kB] Get:2 http://snapshot.notset.fr/archive/debian/20211212T085436Z unstable/main amd64 fakeroot amd64 1.26-1 [87.1 kB] debconf: delaying package configuration, since apt-utils is not installed Fetched 134 kB in 0s (698 kB/s) Selecting previously unselected package libfakeroot:amd64. (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 4679 files and directories currently installed.) Preparing to unpack .../libfakeroot_1.26-1_amd64.deb ... Unpacking libfakeroot:amd64 (1.26-1) ... Selecting previously unselected package fakeroot. Preparing to unpack .../fakeroot_1.26-1_amd64.deb ... Unpacking fakeroot (1.26-1) ... Setting up libfakeroot:amd64 (1.26-1) ... Setting up fakeroot (1.26-1) ... update-alternatives: using /usr/bin/fakeroot-sysv to provide /usr/bin/fakeroot (fakeroot) in auto mode Processing triggers for libc-bin (2.32-5) ... I: running special hook: copy-in /usr/share/keyrings/debian-archive-bullseye-automatic.gpg /usr/share/keyrings/debian-archive-bullseye-security-automatic.gpg /usr/share/keyrings/debian-archive-bullseye-stable.gpg /usr/share/keyrings/debian-archive-buster-automatic.gpg /usr/share/keyrings/debian-archive-buster-security-automatic.gpg /usr/share/keyrings/debian-archive-buster-stable.gpg /usr/share/keyrings/debian-archive-keyring.gpg /usr/share/keyrings/debian-archive-removed-keys.gpg /usr/share/keyrings/debian-archive-stretch-automatic.gpg /usr/share/keyrings/debian-archive-stretch-security-automatic.gpg /usr/share/keyrings/debian-archive-stretch-stable.gpg /usr/share/keyrings/debian-ports-archive-keyring-removed.gpg /usr/share/keyrings/debian-ports-archive-keyring.gpg /usr/share/keyrings/debian-keyring.gpg /etc/apt/trusted.gpg.d/ I: running --essential-hook in shell: sh -c 'chroot "$1" sh -c "rm /etc/apt/sources.list && echo 'deb http://snapshot.notset.fr/archive/debian/20211213T153359Z/ bookworm main deb-src http://snapshot.notset.fr/archive/debian/20211213T153359Z/ bookworm main deb http://snapshot.notset.fr/archive/debian/20211212T085436Z/ unstable main' >> /etc/apt/sources.list && apt-get update"' exec /tmp/mmdebstrap.Z01dgrcpCa Get:1 http://snapshot.notset.fr/archive/debian/20211213T153359Z bookworm InRelease [129 kB] Hit:2 http://snapshot.notset.fr/archive/debian/20211212T085436Z unstable InRelease Ign:3 http://snapshot.notset.fr/archive/debian/20211213T153359Z bookworm/main Sources Ign:4 http://snapshot.notset.fr/archive/debian/20211213T153359Z bookworm/main amd64 Packages Ign:3 http://snapshot.notset.fr/archive/debian/20211213T153359Z bookworm/main Sources Ign:4 http://snapshot.notset.fr/archive/debian/20211213T153359Z bookworm/main amd64 Packages Ign:3 http://snapshot.notset.fr/archive/debian/20211213T153359Z bookworm/main Sources Ign:4 http://snapshot.notset.fr/archive/debian/20211213T153359Z bookworm/main amd64 Packages Get:3 http://snapshot.notset.fr/archive/debian/20211213T153359Z bookworm/main Sources [11.7 MB] Get:4 http://snapshot.notset.fr/archive/debian/20211213T153359Z bookworm/main amd64 Packages [11.2 MB] Fetched 23.1 MB in 29s (788 kB/s) Reading package lists... I: installing remaining packages inside the chroot... I: running --customize-hook in shell: sh -c 'chroot "$1" useradd --no-create-home -d /nonexistent -p "" builduser -s /bin/bash' exec /tmp/mmdebstrap.Z01dgrcpCa I: running --customize-hook in shell: sh -c 'chroot "$1" env sh -c "apt-get source --only-source -d octave-statistics=1.4.3-2 && mkdir -p /build/octave-statistics-n9Ulju && dpkg-source --no-check -x /*.dsc /build/octave-statistics-n9Ulju/octave-statistics-1.4.3 && chown -R builduser:builduser /build/octave-statistics-n9Ulju"' exec /tmp/mmdebstrap.Z01dgrcpCa Reading package lists... NOTICE: 'octave-statistics' packaging is maintained in the 'Git' version control system at: https://salsa.debian.org/pkg-octave-team/octave-statistics.git Please use: git clone https://salsa.debian.org/pkg-octave-team/octave-statistics.git to retrieve the latest (possibly unreleased) updates to the package. Need to get 405 kB of source archives. Get:1 http://snapshot.notset.fr/archive/debian/20211213T153359Z bookworm/main octave-statistics 1.4.3-2 (dsc) [2319 B] Get:2 http://snapshot.notset.fr/archive/debian/20211213T153359Z bookworm/main octave-statistics 1.4.3-2 (tar) [395 kB] Get:3 http://snapshot.notset.fr/archive/debian/20211213T153359Z bookworm/main octave-statistics 1.4.3-2 (diff) [7748 B] Fetched 405 kB in 0s (871 kB/s) Download complete and in download only mode W: Download is performed unsandboxed as root as file 'octave-statistics_1.4.3-2.dsc' couldn't be accessed by user '_apt'. - pkgAcquire::Run (13: Permission denied) dpkg-source: info: extracting octave-statistics in /build/octave-statistics-n9Ulju/octave-statistics-1.4.3 dpkg-source: info: unpacking octave-statistics_1.4.3.orig.tar.gz dpkg-source: info: unpacking octave-statistics_1.4.3-2.debian.tar.xz dpkg-source: info: using patch list from debian/patches/series dpkg-source: info: applying data-files-for-tests.diff dpkg-source: info: applying t_test-skip.patch I: running --customize-hook in shell: sh -c 'chroot "$1" env --unset=TMPDIR runuser builduser -c "cd /build/octave-statistics-n9Ulju/octave-statistics-1.4.3 && env DEB_BUILD_OPTIONS="parallel=4" LANG="C.UTF-8" LC_ALL="C.UTF-8" LC_COLLATE="C.UTF-8" SOURCE_DATE_EPOCH="1639219263" dpkg-buildpackage -uc -a amd64 --build=all"' exec /tmp/mmdebstrap.Z01dgrcpCa dpkg-buildpackage: info: source package octave-statistics dpkg-buildpackage: info: source version 1.4.3-2 dpkg-buildpackage: info: source distribution unstable dpkg-buildpackage: info: source changed by Rafael Laboissière dpkg-source --before-build . debian/rules clean dh clean --buildsystem=octave --with=octave dh_auto_clean -O--buildsystem=octave dh_octave_clean make[1]: Entering directory '/build/octave-statistics-n9Ulju/octave-statistics-1.4.3/src' make[1]: *** No rule to make target 'clean'. make[1]: Leaving directory '/build/octave-statistics-n9Ulju/octave-statistics-1.4.3/src' dh_autoreconf_clean -O--buildsystem=octave dh_clean -O--buildsystem=octave debian/rules binary-indep dh binary-indep --buildsystem=octave --with=octave dh_update_autotools_config -i -O--buildsystem=octave dh_autoreconf -i -O--buildsystem=octave dh_octave_version -i -O--buildsystem=octave Checking the Octave version... ok dh_auto_configure -i -O--buildsystem=octave dh_auto_build -i -O--buildsystem=octave dh_auto_test -i -O--buildsystem=octave create-stamp debian/debhelper-build-stamp dh_testroot -i -O--buildsystem=octave dh_prep -i -O--buildsystem=octave dh_auto_install --destdir=debian/octave-statistics/ -i -O--buildsystem=octave octave --no-gui --no-history --silent --no-init-file --no-window-system /usr/share/dh-octave/install-pkg.m warning: creating installation directory /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/debian/octave-statistics/usr/share/octave/packages warning: called from install at line 36 column 5 pkg at line 568 column 9 /usr/share/dh-octave/install-pkg.m at line 43 column 1 checking build system type... x86_64-pc-linux-gnu checking host system type... x86_64-pc-linux-gnu checking target system type... x86_64-pc-linux-gnu checking for gcc... gcc checking whether the C compiler works... yes checking for C compiler default output file name... a.out checking for suffix of executables... checking whether we are cross compiling... no checking for suffix of object files... o checking whether we are using the GNU C compiler... yes checking whether gcc accepts -g... yes checking for gcc option to accept ISO C89... none needed checking for windows... no configure: creating ./config.status config.status: creating Makefile make[1]: Entering directory '/build/octave-statistics-n9Ulju/octave-statistics-1.4.3/src' cp ../INDEX.in ../INDEX /usr/bin/octave \ --no-gui \ --silent \ --norc \ --eval 'addpath ("../utils");' \ --eval 'conditional_installation ("../install-conditionally", "../inst", false, "../INDEX");' cp ../test/*.dat ../inst/test/ make[1]: Leaving directory '/build/octave-statistics-n9Ulju/octave-statistics-1.4.3/src' For information about changes from previous versions of the statistics package, run 'news statistics'. rmdir: failed to remove '/build/octave-statistics-n9Ulju/octave-statistics-1.4.3/debian/octave-statistics/usr/lib/x86_64-linux-gnu/octave/packages': No such file or directory chmod: cannot access 'debian/*/usr/lib/*/octave/packages/*/*/*.oct': No such file or directory chmod: cannot access 'debian/*/usr/lib/*/octave/packages/*/*/*.mex': No such file or directory dh_octave_check -i -O--buildsystem=octave Checking package... Checking m files ... [inst/anova1.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/anova1.m ***** demo x = meshgrid (1:6); x = x + normrnd (0, 1, 6, 6); anova1 (x, [], 'off'); ***** demo x = meshgrid (1:6); x = x + normrnd (0, 1, 6, 6); [p, atab] = anova1(x); ***** demo x = ones (50, 4) .* [-2, 0, 1, 5]; x = x + normrnd (0, 2, 50, 4); groups = {"A", "B", "C", "D"}; anova1 (x, groups); ***** test data = [1.006, 0.996, 0.998, 1.000, 0.992, 0.993, 1.002, 0.999, 0.994, 1.000, ... 0.998, 1.006, 1.000, 1.002, 0.997, 0.998, 0.996, 1.000, 1.006, 0.988, ... 0.991, 0.987, 0.997, 0.999, 0.995, 0.994, 1.000, 0.999, 0.996, 0.996, ... 1.005, 1.002, 0.994, 1.000, 0.995, 0.994, 0.998, 0.996, 1.002, 0.996, ... 0.998, 0.998, 0.982, 0.990, 1.002, 0.984, 0.996, 0.993, 0.980, 0.996, ... 1.009, 1.013, 1.009, 0.997, 0.988, 1.002, 0.995, 0.998, 0.981, 0.996, ... 0.990, 1.004, 0.996, 1.001, 0.998, 1.000, 1.018, 1.010, 0.996, 1.002, ... 0.998, 1.000, 1.006, 1.000, 1.002, 0.996, 0.998, 0.996, 1.002, 1.006, ... 1.002, 0.998, 0.996, 0.995, 0.996, 1.004, 1.004, 0.998, 0.999, 0.991, ... 0.991, 0.995, 0.984, 0.994, 0.997, 0.997, 0.991, 0.998, 1.004, 0.997]; group = [1:10] .* ones (10,10); group = group(:); [p, tbl] = anova1 (data, group, "off"); assert (p, 0.022661, 1e-6); assert (tbl{2,5}, 2.2969, 1e-4); assert (tbl{2,3}, 9, 0); assert (tbl{4,2}, 0.003903, 1e-6); data = reshape (data, 10, 10); [p, tbl, stats] = anova1 (data, [], "off"); assert (p, 0.022661, 1e-6); assert (tbl{2,5}, 2.2969, 1e-4); assert (tbl{2,3}, 9, 0); assert (tbl{4,2}, 0.003903, 1e-6); means = [0.998, 0.9991, 0.9954, 0.9982, 0.9919, 0.9988, 1.0015, 1.0004, 0.9983, 0.9948]; N = 10 * ones (1, 10); assert (stats.means, means, 1e-6); assert (length (stats.gnames), 10, 0); assert (stats.n, N, 0); 1 test, 1 passed, 0 known failure, 0 skipped [inst/bbscdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/bbscdf.m ***** shared x,y x = [-1, 0, 1, 2, Inf]; y = [0, 0, 1/2, 0.76024993890652337, 1]; ***** assert (bbscdf (x, ones (1,5), ones (1,5), zeros (1,5)), y, eps) ***** assert (bbscdf (x, 1, 1, zeros (1,5)), y, eps) ***** assert (bbscdf (x, 1, ones (1,5), 0), y, eps) ***** assert (bbscdf (x, ones (1,5), 1, 0), y, eps) ***** assert (bbscdf (x, 1, 1, 0), y, eps) ***** assert (bbscdf (x, 1, 1, [0, 0, NaN, 0, 0]), [y(1:2), NaN, y(4:5)], eps) ***** assert (bbscdf (x, 1, [1, 1, NaN, 1, 1], 0), [y(1:2), NaN, y(4:5)], eps) ***** assert (bbscdf (x, [1, 1, NaN, 1, 1], 1, 0), [y(1:2), NaN, y(4:5)], eps) ***** assert (bbscdf ([x, NaN], 1, 1, 0), [y, NaN], eps) ***** assert (bbscdf (single ([x, NaN]), 1, 1, 0), single ([y, NaN]), eps('single')) ***** assert (bbscdf ([x, NaN], 1, 1, single (0)), single ([y, NaN]), eps('single')) ***** assert (bbscdf ([x, NaN], 1, single (1), 0), single ([y, NaN]), eps('single')) ***** assert (bbscdf ([x, NaN], single (1), 1, 0), single ([y, NaN]), eps('single')) ***** error bbscdf () ***** error bbscdf (1) ***** error bbscdf (1,2,3) ***** error bbscdf (1,2,3,4,5) ***** error bbscdf (ones (3), ones (2), ones(2), ones(2)) ***** error bbscdf (ones (2), ones (3), ones(2), ones(2)) ***** error bbscdf (ones (2), ones (2), ones(3), ones(2)) ***** error bbscdf (ones (2), ones (2), ones(2), ones(3)) ***** error bbscdf (i, 4, 3, 2) ***** error bbscdf (1, i, 3, 2) ***** error bbscdf (1, 4, i, 2) ***** error bbscdf (1, 4, 3, i) 25 tests, 25 passed, 0 known failure, 0 skipped [inst/bbsinv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/bbsinv.m ***** shared x,y,f f = @(x,a,b,c) (a + b * (c * norminv (x) + sqrt (4 + (c * norminv(x))^2))^2) / 4; x = [-1, 0, 1/4, 1/2, 1, 2]; y = [0, 0, f(1/4, 0, 1, 1), 1, Inf, NaN]; ***** assert (bbsinv (x, ones (1,6), ones (1,6), zeros (1,6)), y) ***** assert (bbsinv (x, 1, 1, zeros (1,6)), y) ***** assert (bbsinv (x, 1, ones (1,6), 0), y) ***** assert (bbsinv (x, ones (1,6), 1, 0), y) ***** assert (bbsinv (x, 1, 1, 0), y) ***** assert (bbsinv (x, 1, 1, [0, 0, 0, NaN, 0, 0]), [y(1:3), NaN, y(5:6)]) ***** assert (bbsinv (x, 1, [1, 1, 1, NaN, 1, 1], 0), [y(1:3), NaN, y(5:6)]) ***** assert (bbsinv (x, [1, 1, 1, NaN, 1, 1], 1, 0), [y(1:3), NaN, y(5:6)]) ***** assert (bbsinv ([x, NaN], 1, 1, 0), [y, NaN]) ***** assert (bbsinv (single ([x, NaN]), 1, 1, 0), single ([y, NaN])) ***** assert (bbsinv ([x, NaN], 1, 1, single (0)), single ([y, NaN])) ***** assert (bbsinv ([x, NaN], 1, single (1), 0), single ([y, NaN])) ***** assert (bbsinv ([x, NaN], single (1), 1, 0), single ([y, NaN])) ***** error bbsinv () ***** error bbsinv (1) ***** error bbsinv (1,2,3) ***** error bbsinv (1,2,3,4,5) ***** error bbsinv (ones (3), ones (2), ones(2), ones(2)) ***** error bbsinv (ones (2), ones (3), ones(2), ones(2)) ***** error bbsinv (ones (2), ones (2), ones(3), ones(2)) ***** error bbsinv (ones (2), ones (2), ones(2), ones(3)) ***** error bbsinv (i, 4, 3, 2) ***** error bbsinv (1, i, 3, 2) ***** error bbsinv (1, 4, i, 2) ***** error bbsinv (1, 4, 3, i) 25 tests, 25 passed, 0 known failure, 0 skipped [inst/bbspdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/bbspdf.m ***** shared x,y x = [-1, 0, 1, 2, Inf]; y = [0, 0, 0.3989422804014327, 0.1647717335503959, 0]; ***** assert (bbspdf (x, ones (1,5), ones (1,5), zeros (1,5)), y, eps) ***** assert (bbspdf (x, 1, 1, zeros (1,5)), y, eps) ***** assert (bbspdf (x, 1, ones (1,5), 0), y, eps) ***** assert (bbspdf (x, ones (1,5), 1, 0), y, eps) ***** assert (bbspdf (x, 1, 1, 0), y, eps) ***** assert (bbspdf (x, 1, 1, [0, 0, NaN, 0, 0]), [y(1:2), NaN, y(4:5)], eps) ***** assert (bbspdf (x, 1, [1, 1, NaN, 1, 1], 0), [y(1:2), NaN, y(4:5)], eps) ***** assert (bbspdf (x, [1, 1, NaN, 1, 1], 1, 0), [y(1:2), NaN, y(4:5)], eps) ***** assert (bbspdf ([x, NaN], 1, 1, 0), [y, NaN], eps) ***** assert (bbspdf (single ([x, NaN]), 1, 1, 0), single ([y, NaN]), eps('single')) ***** assert (bbspdf ([x, NaN], 1, 1, single (0)), single ([y, NaN]), eps('single')) ***** assert (bbspdf ([x, NaN], 1, single (1), 0), single ([y, NaN]), eps('single')) ***** assert (bbspdf ([x, NaN], single (1), 1, 0), single ([y, NaN]), eps('single')) ***** error bbspdf () ***** error bbspdf (1) ***** error bbspdf (1,2,3) ***** error bbspdf (1,2,3,4,5) ***** error bbspdf (ones (3), ones (2), ones(2), ones(2)) ***** error bbspdf (ones (2), ones (3), ones(2), ones(2)) ***** error bbspdf (ones (2), ones (2), ones(3), ones(2)) ***** error bbspdf (ones (2), ones (2), ones(2), ones(3)) ***** error bbspdf (i, 4, 3, 2) ***** error bbspdf (1, i, 3, 2) ***** error bbspdf (1, 4, i, 2) ***** error bbspdf (1, 4, 3, i) 25 tests, 25 passed, 0 known failure, 0 skipped [inst/bbsrnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/bbsrnd.m ***** assert (size (bbsrnd (1, 1, 0)), [1 1]) ***** assert (size (bbsrnd (1, 1, zeros (2,1))), [2, 1]) ***** assert (size (bbsrnd (1, 1, zeros (2,2))), [2, 2]) ***** assert (size (bbsrnd (1, ones (2,1), 0)), [2, 1]) ***** assert (size (bbsrnd (1, ones (2,2), 0)), [2, 2]) ***** assert (size (bbsrnd (ones (2,1), 1, 0)), [2, 1]) ***** assert (size (bbsrnd (ones (2,2), 1, 0)), [2, 2]) ***** assert (size (bbsrnd (1, 1, 0, 3)), [3, 3]) ***** assert (size (bbsrnd (1, 1, 0, [4 1])), [4, 1]) ***** assert (size (bbsrnd (1, 1, 0, 4, 1)), [4, 1]) ***** assert (class (bbsrnd (1,1,0)), "double") ***** assert (class (bbsrnd (1, 1, single (0))), "single") ***** assert (class (bbsrnd (1, 1, single ([0 0]))), "single") ***** assert (class (bbsrnd (1, single (1), 0)), "single") ***** assert (class (bbsrnd (1, single ([1 1]), 0)), "single") ***** assert (class (bbsrnd (single (1), 1, 0)), "single") ***** assert (class (bbsrnd (single ([1 1]), 1, 0)), "single") ***** error bbsrnd () ***** error bbsrnd (1) ***** error bbsrnd (1,2) ***** error bbsrnd (ones (3), ones (2), ones (2), 2) ***** error bbsrnd (ones (2), ones (3), ones (2), 2) ***** error bbsrnd (ones (2), ones (2), ones (3), 2) ***** error bbsrnd (i, 2, 3) ***** error bbsrnd (1, i, 3) ***** error bbsrnd (1, 2, i) ***** error bbsrnd (1,2,3, -1) ***** error bbsrnd (1,2,3, ones (2)) ***** error bbsrnd (1,2,3, [2 -1 2]) ***** error bbsrnd (2, 1, ones (2), 3) ***** error bbsrnd (2, 1, ones (2), [3, 2]) ***** error bbsrnd (2, 1, ones (2), 3, 2) 32 tests, 32 passed, 0 known failure, 0 skipped [inst/betastat.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/betastat.m ***** test a = -2:6; b = 0.4:0.2:2; [m, v] = betastat (a, b); expected_m = [NaN NaN NaN 1/2 2/3.2 3/4.4 4/5.6 5/6.8 6/8]; expected_v = [NaN NaN NaN 0.0833, 0.0558, 0.0402, 0.0309, 0.0250, 0.0208]; assert (m, expected_m, eps*100); assert (v, expected_v, 0.001); ***** test a = -2:1:6; [m, v] = betastat (a, 1.5); expected_m = [NaN NaN NaN 1/2.5 2/3.5 3/4.5 4/5.5 5/6.5 6/7.5]; expected_v = [NaN NaN NaN 0.0686, 0.0544, 0.0404, 0.0305, 0.0237, 0.0188]; assert (m, expected_m); assert (v, expected_v, 0.001); ***** test a = [14 Inf 10 NaN 10]; b = [12 9 NaN Inf 12]; [m, v] = betastat (a, b); expected_m = [14/26 NaN NaN NaN 10/22]; expected_v = [168/18252 NaN NaN NaN 120/11132]; assert (m, expected_m); assert (v, expected_v); ***** assert (nthargout (1:2, @betastat, 5, []), {[], []}) ***** assert (nthargout (1:2, @betastat, [], 5), {[], []}) ***** assert (nthargout (1:2, @betastat, "", 5), {[], []}) ***** assert (nthargout (1:2, @betastat, true, 5), {1/6, 5/252}) ***** assert (size (betastat (rand (10, 5, 4), rand (10, 5, 4))), [10 5 4]) ***** assert (size (betastat (rand (10, 5, 4), 7)), [10 5 4]) 9 tests, 9 passed, 0 known failure, 0 skipped [inst/binostat.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/binostat.m ***** test n = 1:6; p = 0:0.2:1; [m, v] = binostat (n, p); expected_m = [0.00, 0.40, 1.20, 2.40, 4.00, 6.00]; expected_v = [0.00, 0.32, 0.72, 0.96, 0.80, 0.00]; assert (m, expected_m, 0.001); assert (v, expected_v, 0.001); ***** test n = 1:6; [m, v] = binostat (n, 0.5); expected_m = [0.50, 1.00, 1.50, 2.00, 2.50, 3.00]; expected_v = [0.25, 0.50, 0.75, 1.00, 1.25, 1.50]; assert (m, expected_m, 0.001); assert (v, expected_v, 0.001); ***** test n = [-Inf -3 5 0.5 3 NaN 100, Inf]; [m, v] = binostat (n, 0.5); assert (isnan (m), [true true false true false true false false]) assert (isnan (v), [true true false true false true false false]) assert (m(end), Inf); assert (v(end), Inf); ***** assert (nthargout (1:2, @binostat, 5, []), {[], []}) ***** assert (nthargout (1:2, @binostat, [], 5), {[], []}) ***** assert (nthargout (1:2, @binostat, "", 5), {[], []}) ***** assert (nthargout (1:2, @binostat, true, 5), {NaN, NaN}) ***** assert (nthargout (1:2, @binostat, 5, true), {5, 0}) ***** assert (size (binostat (randi (100, 10, 5, 4), rand (10, 5, 4))), [10 5 4]) ***** assert (size (binostat (randi (100, 10, 5, 4), 7)), [10 5 4]) 10 tests, 10 passed, 0 known failure, 0 skipped [inst/binotest.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/binotest.m ***** demo % flip a coin 1000 times, showing 475 heads % Hypothesis: coin is fair, i.e. p=1/2 [h,p_val,ci] = binotest(475,1000,0.5) % Result: h = 0 : null hypothesis not rejected, coin could be fair % P value 0.12, i.e. hypothesis not rejected for alpha up to 12% % 0.444 <= p <= 0.506 with 95% confidence ***** demo % flip a coin 100 times, showing 65 heads % Hypothesis: coin shows less than 50% heads, i.e. p<=1/2 [h,p_val,ci] = binotest(65,100,0.5,'tail','left','alpha',0.01) % Result: h = 1 : null hypothesis is rejected, i.e. coin shows more heads than tails % P value 0.0018, i.e. hypothesis not rejected for alpha up to 0.18% % 0 <= p <= 0.76 with 99% confidence ***** test #example from https://en.wikipedia.org/wiki/Binomial_test [h,p_val,ci] = binotest (51,235,1/6); assert (p_val, 0.0437, 0.00005) [h,p_val,ci] = binotest (51,235,1/6,'tail','left'); assert (p_val, 0.027, 0.0005) 1 test, 1 passed, 0 known failure, 0 skipped [inst/boxplot.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/boxplot.m ***** demo axis ([0, 3]); boxplot ({(randn(10, 1) * 5 + 140), (randn (13, 1) * 8 + 135)}); set (gca (), "xtick", [1 2], "xticklabel", {"girls", "boys"}) title ("Grade 3 heights"); ***** demo data = [(randn (10, 1) * 5 + 140); (randn (25, 1) * 8 + 135); ... (randn (20, 1) * 6 + 165)]; groups = [(ones (10, 1)); (ones (25, 1) * 2); (ones (20, 1) * 3)]; labels = {"Team A", "Team B", "Team C"}; pos = [2, 1, 3]; boxplot (data, groups, "Notch", "on", "Labels", labels, "Positions", pos, ... "OutlierTags", "on", "BoxStyle", "filled"); title ("Example of Group splitting with paired vectors"); ***** demo boxplot (randn (100, 9), "notch", "on", "boxstyle", "filled", ... "colors", "ygcwkmb", "whisker", 1.2); title ("Example of different colors specified with characters"); ***** demo colors = [0.7 0.7 0.7; ... 0.0 0.4 0.9; ... 0.7 0.4 0.3; ... 0.7 0.1 0.7; ... 0.8 0.7 0.4; ... 0.1 0.8 0.5; ... 0.9 0.9 0.2]; boxplot (randn (100, 13), "notch", "on", "boxstyle", "filled", ... "colors", colors, "whisker", 1.3, "boxwidth", "proportional"); title ("Example of different colors specified as RGB values"); ***** error boxplot ("a") ***** error boxplot ({[1 2 3], "a"}) ***** error boxplot ([1 2 3], 1, {2, 3}) ***** error boxplot ([1 2 3], {"a", "b"}) ***** error <'Notch' input argument accepts> boxplot ([1:10], "notch", "any") ***** error boxplot ([1:10], "notch", i) ***** error boxplot ([1:10], "notch", {}) ***** error boxplot (1, "symbol", 1) ***** error <'Orientation' input argument accepts only> boxplot (1, "orientation", "diagonal") ***** error boxplot (1, "orientation", {}) ***** error <'Whisker' input argument accepts only> boxplot (1, "whisker", "a") ***** error <'Whisker' input argument accepts only> boxplot (1, "whisker", [1 3]) ***** error <'OutlierTags' input argument accepts only> boxplot (3, "OutlierTags", "maybe") ***** error boxplot (3, "OutlierTags", {}) ***** error <'Sample_IDs' input argument accepts only> boxplot (1, "sample_IDs", 1) ***** error <'BoxWidth' input argument accepts only> boxplot (1, "boxwidth", 2) ***** error <'BoxWidth' input argument accepts only> boxplot (1, "boxwidth", "anything") ***** error <'Widths' input argument accepts only> boxplot (5, "widths", "a") ***** error <'Widths' input argument accepts only> boxplot (5, "widths", [1:4]) ***** error <'Widths' input argument accepts only> boxplot (5, "widths", []) ***** error <'CapWidths' input argument accepts only> boxplot (5, "capwidths", "a") ***** error <'CapWidths' input argument accepts only> boxplot (5, "capwidths", [1:4]) ***** error <'CapWidths' input argument accepts only> boxplot (5, "capwidths", []) ***** error <'BoxStyle' input argument accepts only> boxplot (1, "Boxstyle", 1) ***** error <'BoxStyle' input argument accepts only> boxplot (1, "Boxstyle", "garbage") ***** error <'Positions' input argument accepts only> boxplot (1, "positions", "aa") ***** error <'Labels' input argument accepts only> boxplot (3, "labels", [1 5]) ***** error <'Colors' input argument accepts only> boxplot (1, "colors", {}) ***** error <'Colors' input argument accepts only> boxplot (2, "colors", [1 2 3 4]) ***** error boxplot (randn (10, 3), 'Sample_IDs', {"a", "b"}) ***** error boxplot (rand (3, 3), [1 2]) ***** test h = figure ("visible", "off"); [a, b] = boxplot (rand (10, 3)); close (h); assert (size (a), [7, 3]); assert (numel (b.box), 3); assert (numel (b.whisker), 12); assert (numel (b.median), 3); ***** test h = figure ("visible", "off"); [~, b] = boxplot (rand (10, 3), "BoxStyle", "filled", "colors", "ybc"); close (h); assert (numel (b.box_fill), 3); 33 tests, 33 passed, 0 known failure, 0 skipped [inst/burrcdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/burrcdf.m ***** shared x,y x = [-1, 0, 1, 2, Inf]; y = [0, 0, 1/2, 2/3, 1]; ***** assert (burrcdf (x, ones(1,5), ones (1,5), ones (1,5)), y, eps) ***** assert (burrcdf (x, 1, 1, 1), y, eps) ***** assert (burrcdf (x, [1, 1, NaN, 1, 1], 1, 1), [y(1:2), NaN, y(4:5)], eps) ***** assert (burrcdf (x, 1, [1, 1, NaN, 1, 1], 1), [y(1:2), NaN, y(4:5)], eps) ***** assert (burrcdf (x, 1, 1, [1, 1, NaN, 1, 1]), [y(1:2), NaN, y(4:5)], eps) ***** assert (burrcdf ([x, NaN], 1, 1, 1), [y, NaN], eps) ***** assert (burrcdf (single ([x, NaN]), 1, 1, 1), single ([y, NaN]), eps('single')) ***** assert (burrcdf ([x, NaN], single (1), 1, 1), single ([y, NaN]), eps('single')) ***** assert (burrcdf ([x, NaN], 1, single (1), 1), single ([y, NaN]), eps('single')) ***** assert (burrcdf ([x, NaN], 1, 1, single (1)), single ([y, NaN]), eps('single')) ***** error burrcdf () ***** error burrcdf (1) ***** error burrcdf (1,2) ***** error burrcdf (1,2,3) ***** error burrcdf (1,2,3,4,5) ***** error burrcdf (ones (3), ones (2), ones(2), ones(2)) ***** error burrcdf (ones (2), ones (3), ones(2), ones(2)) ***** error burrcdf (ones (2), ones (2), ones(3), ones(2)) ***** error burrcdf (ones (2), ones (2), ones(2), ones(3)) ***** error burrcdf (i, 2, 2, 2) ***** error burrcdf (2, i, 2, 2) ***** error burrcdf (2, 2, i, 2) ***** error burrcdf (2, 2, 2, i) 23 tests, 23 passed, 0 known failure, 0 skipped [inst/burrinv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/burrinv.m ***** shared x,y x = [-Inf, -1, 0, 1/2, 1, 2, Inf]; y = [NaN, NaN, 0, 1 , Inf, NaN, NaN]; ***** assert (burrinv (x, ones (1,7), ones (1,7), ones(1,7)), y, eps) ***** assert (burrinv (x, 1, 1, 1), y, eps) ***** assert (burrinv (x, [1, 1, 1, NaN, 1, 1, 1], 1, 1), [y(1:3), NaN, y(5:7)], eps) ***** assert (burrinv (x, 1, [1, 1, 1, NaN, 1, 1, 1], 1), [y(1:3), NaN, y(5:7)], eps) ***** assert (burrinv (x, 1, 1, [1, 1, 1, NaN, 1, 1, 1]), [y(1:3), NaN, y(5:7)], eps) ***** assert (burrinv ([x, NaN], 1, 1, 1), [y, NaN], eps) ***** assert (burrinv (single ([x, NaN]), 1, 1, 1), single ([y, NaN]), eps('single')) ***** assert (burrinv ([x, NaN], single (1), 1, 1), single ([y, NaN]), eps('single')) ***** assert (burrinv ([x, NaN], 1, single (1), 1), single ([y, NaN]), eps('single')) ***** assert (burrinv ([x, NaN], 1, 1, single (1)), single ([y, NaN]), eps('single')) ***** error burrinv () ***** error burrinv (1) ***** error burrinv (1,2) ***** error burrinv (1,2,3) ***** error burrinv (1,2,3,4,5) ***** error burrinv (ones (3), ones (2), ones(2), ones(2)) ***** error burrinv (ones (2), ones (3), ones(2), ones(2)) ***** error burrinv (ones (2), ones (2), ones(3), ones(2)) ***** error burrinv (ones (2), ones (2), ones(2), ones(3)) ***** error burrinv (i, 2, 2, 2) ***** error burrinv (2, i, 2, 2) ***** error burrinv (2, 2, i, 2) ***** error burrinv (2, 2, 2, i) 23 tests, 23 passed, 0 known failure, 0 skipped [inst/burrpdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/burrpdf.m ***** shared x,y x = [-1, 0, 1, 2, Inf]; y = [0, 0, 1/4, 1/9, 0]; ***** assert (burrpdf (x, ones(1,5), ones (1,5), ones (1,5)), y) ***** assert (burrpdf (x, 1, 1, 1), y) ***** assert (burrpdf (x, [1, 1, NaN, 1, 1], 1, 1), [y(1:2), NaN, y(4:5)]) ***** assert (burrpdf (x, 1, [1, 1, NaN, 1, 1], 1), [y(1:2), NaN, y(4:5)]) ***** assert (burrpdf (x, 1, 1, [1, 1, NaN, 1, 1]), [y(1:2), NaN, y(4:5)]) ***** assert (burrpdf ([x, NaN], 1, 1, 1), [y, NaN]) ***** assert (burrpdf (single ([x, NaN]), 1, 1, 1), single ([y, NaN])) ***** assert (burrpdf ([x, NaN], single (1), 1, 1), single ([y, NaN])) ***** assert (burrpdf ([x, NaN], 1, single (1), 1), single ([y, NaN])) ***** assert (burrpdf ([x, NaN], 1, 1, single (1)), single ([y, NaN])) ***** error burrpdf () ***** error burrpdf (1) ***** error burrpdf (1,2) ***** error burrpdf (1,2,3) ***** error burrpdf (1,2,3,4,5) ***** error burrpdf (ones (3), ones (2), ones(2), ones(2)) ***** error burrpdf (ones (2), ones (3), ones(2), ones(2)) ***** error burrpdf (ones (2), ones (2), ones(3), ones(2)) ***** error burrpdf (ones (2), ones (2), ones(2), ones(3)) ***** error burrpdf (i, 2, 2, 2) ***** error burrpdf (2, i, 2, 2) ***** error burrpdf (2, 2, i, 2) ***** error burrpdf (2, 2, 2, i) 23 tests, 23 passed, 0 known failure, 0 skipped [inst/burrrnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/burrrnd.m ***** assert (size (burrrnd (1, 1, 1)), [1 1]) ***** assert (size (burrrnd (ones (2,1), 1, 1)), [2, 1]) ***** assert (size (burrrnd (ones (2,2), 1, 1)), [2, 2]) ***** assert (size (burrrnd (1, ones (2,1), 1)), [2, 1]) ***** assert (size (burrrnd (1, ones (2,2), 1)), [2, 2]) ***** assert (size (burrrnd (1, 1, ones (2,1))), [2, 1]) ***** assert (size (burrrnd (1, 1, ones (2,2))), [2, 2]) ***** assert (size (burrrnd (1, 1, 1, 3)), [3, 3]) ***** assert (size (burrrnd (1, 1, 1, [4 1])), [4, 1]) ***** assert (size (burrrnd (1, 1, 1, 4, 1)), [4, 1]) ***** assert (class (burrrnd (1,1,1)), "double") ***** assert (class (burrrnd (single (1),1,1)), "single") ***** assert (class (burrrnd (single ([1 1]),1,1)), "single") ***** assert (class (burrrnd (1,single (1),1)), "single") ***** assert (class (burrrnd (1,single ([1 1]),1)), "single") ***** assert (class (burrrnd (1,1,single (1))), "single") ***** assert (class (burrrnd (1,1,single ([1 1]))), "single") ***** error burrrnd () ***** error burrrnd (1) ***** error burrrnd (1,2) ***** error burrrnd (ones (3), ones (2), ones (2), 2) ***** error burrrnd (ones (2), ones (3), ones (2), 2) ***** error burrrnd (ones (2), ones (2), ones (3), 2) ***** error burrrnd (i, 2, 2) ***** error burrrnd (2, i, 2) ***** error burrrnd (2, 2, i) ***** error burrrnd (4,2,2, -1) ***** error burrrnd (4,2,2, ones (2)) ***** error burrrnd (4,2,2, [2 -1 2]) ***** error burrrnd (4*ones (2),2,2, 3) ***** error burrrnd (4*ones (2),2,2, [3, 2]) ***** error burrrnd (4*ones (2),2,2, 3, 2) 32 tests, 32 passed, 0 known failure, 0 skipped [inst/canoncorr.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/canoncorr.m ***** shared X,Y,A,B,r,U,V,k k = 10; X = [1:k; sin(1:k); cos(1:k)]'; Y = [tan(1:k); tanh((1:k)/k)]'; [A,B,r,U,V,stats] = canoncorr (X,Y); ***** assert (A, [-0.329229 0.072908; 0.074870 1.389318; -0.069302 -0.024109], 1E-6); ***** assert (B, [-0.017086 -0.398402; -4.475049 -0.824538], 1E-6); ***** assert (r, [0.99590 0.26754], 1E-5); ***** assert (U, center(X) * A, 10*eps); ***** assert (V, center(Y) * B, 10*eps); ***** assert (cov(U), eye(size(U, 2)), 10*eps); ***** assert (cov(V), eye(size(V, 2)), 10*eps); rand ("state", 1); [A,B,r] = canoncorr (rand(5, 10),rand(5, 20)); ***** assert (r, ones(1, 5), 10*eps); 8 tests, 8 passed, 0 known failure, 0 skipped [inst/caseread.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/caseread.m ***** shared n, casereadfile n = ["a ";"bcd";"ef "]; casereadfile = file_in_loadpath("test/caseread.dat"); ***** assert (caseread (casereadfile), n); 1 test, 1 passed, 0 known failure, 0 skipped [inst/casewrite.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/casewrite.m ***** test fname = [tempname() ".dat"]; unwind_protect s = ["a ";"bcd";"ef "]; casewrite (s, fname) names = caseread (fname); unwind_protect_cleanup unlink (fname); end_unwind_protect assert(names, s); 1 test, 1 passed, 0 known failure, 0 skipped [inst/cdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/cdf.m ***** test assert(cdf ('norm', 1, 0, 1), normcdf (1, 0, 1)) 1 test, 1 passed, 0 known failure, 0 skipped [inst/chi2stat.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/chi2stat.m ***** test n = 1:6; [m, v] = chi2stat (n); assert (m, n); assert (v, [2, 4, 6, 8, 10, 12], 0.001); 1 test, 1 passed, 0 known failure, 0 skipped [inst/cluster.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/cluster.m ***** error cluster () ***** error cluster ([1 1], "Cutoff", 1) ***** error cluster ([1 2 1], "Bogus", 1) ***** error cluster ([1 2 1], "Cutoff", -1) ***** error cluster ([1 2 1], "Cutoff", 1, "Bogus", 1) ***** test 6 tests, 6 passed, 0 known failure, 0 skipped [inst/clusterdata.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/clusterdata.m ***** error clusterdata () ***** error clusterdata (1) ***** error clusterdata ([1 1], "Bogus", 1) ***** error clusterdata ([1 1], "Depth", 1) ***** demo X = [(randn (10, 2) * 0.25) + 1; (randn (20, 2) * 0.5) - 1]; wnl = warning ("off", "Octave:linkage_savemem", "local"); T = clusterdata (X, "linkage", "ward", "MaxClust", 2); scatter (X(:,1), X(:,2), 36, T, "filled"); 4 tests, 4 passed, 0 known failure, 0 skipped [inst/cmdscale.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/cmdscale.m ***** shared m, n, X, D m = randi(100) + 1; n = randi(100) + 1; X = rand(m, n); D = pdist(X); ***** assert(norm(pdist(cmdscale(D))), norm(D), sqrt(eps)) ***** assert(norm(pdist(cmdscale(squareform(D)))), norm(D), sqrt(eps)) 2 tests, 2 passed, 0 known failure, 0 skipped [inst/combnk.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/combnk.m ***** demo c = combnk (1:5, 2); disp ("All pairs of integers between 1 and 5:"); disp (c); ***** test c = combnk (1:3, 2); assert (c, [1, 2; 1, 3; 2, 3]); ***** test c = combnk (1:3, 6); assert (isempty (c)); ***** test c = combnk ({1, 2, 3}, 2); assert (c, {1, 2; 1, 3; 2, 3}); ***** test c = combnk ("hello", 2); assert (c, ["lo"; "lo"; "ll"; "eo"; "el"; "el"; "ho"; "hl"; "hl"; "he"]); 4 tests, 4 passed, 0 known failure, 0 skipped [inst/confusionchart.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/confusionchart.m ***** shared visibility_setting visibility_setting = get (0, "DefaultFigureVisible"); ***** test set (0, "DefaultFigureVisible", "off"); fail ("confusionchart ()", "Invalid call"); set (0, "DefaultFigureVisible", visibility_setting); ***** test set (0, "DefaultFigureVisible", "off"); fail ("confusionchart ([1 1; 2 2; 3 3])", "invalid argument"); set (0, "DefaultFigureVisible", visibility_setting); ***** test set (0, "DefaultFigureVisible", "off"); fail ("confusionchart ([1 2], [0 1], 'xxx', 1)", "invalid property"); set (0, "DefaultFigureVisible", visibility_setting); ***** test set (0, "DefaultFigureVisible", "off"); fail ("confusionchart ([1 2], [0 1], 'XLabel', 1)", "XLabel .* string"); set (0, "DefaultFigureVisible", visibility_setting); ***** test set (0, "DefaultFigureVisible", "off"); fail ("confusionchart ([1 2], [0 1], 'YLabel', [1 0])", ".* YLabel .* string"); set (0, "DefaultFigureVisible", visibility_setting); ***** test set (0, "DefaultFigureVisible", "off"); fail ("confusionchart ([1 2], [0 1], 'Title', .5)", ".* Title .* string"); set (0, "DefaultFigureVisible", visibility_setting); ***** test set (0, "DefaultFigureVisible", "off"); fail ("confusionchart ([1 2], [0 1], 'FontName', [])", ".* FontName .* string"); set (0, "DefaultFigureVisible", visibility_setting); ***** test set (0, "DefaultFigureVisible", "off"); fail ("confusionchart ([1 2], [0 1], 'FontSize', 'b')", ".* FontSize .* numeric"); set (0, "DefaultFigureVisible", visibility_setting); ***** test set (0, "DefaultFigureVisible", "off"); fail ("confusionchart ([1 2], [0 1], 'DiagonalColor', 'h')", ".* DiagonalColor .* color"); set (0, "DefaultFigureVisible", visibility_setting); ***** test set (0, "DefaultFigureVisible", "off"); fail ("confusionchart ([1 2], [0 1], 'OffDiagonalColor', [])", ".* OffDiagonalColor .* color"); set (0, "DefaultFigureVisible", visibility_setting); ***** test set (0, "DefaultFigureVisible", "off"); fail ("confusionchart ([1 2], [0 1], 'Normalization', '')", ".* invalid .* Normalization"); set (0, "DefaultFigureVisible", visibility_setting); ***** test set (0, "DefaultFigureVisible", "off"); fail ("confusionchart ([1 2], [0 1], 'ColumnSummary', [])", ".* invalid .* ColumnSummary"); set (0, "DefaultFigureVisible", visibility_setting); ***** test set (0, "DefaultFigureVisible", "off"); fail ("confusionchart ([1 2], [0 1], 'RowSummary', 1)", ".* invalid .* RowSummary"); set (0, "DefaultFigureVisible", visibility_setting); ***** test set (0, "DefaultFigureVisible", "off"); fail ("confusionchart ([1 2], [0 1], 'GridVisible', .1)", ".* invalid .* GridVisible"); set (0, "DefaultFigureVisible", visibility_setting); ***** test set (0, "DefaultFigureVisible", "off"); fail ("confusionchart ([1 2], [0 1], 'HandleVisibility', .1)", ".* invalid .* HandleVisibility"); set (0, "DefaultFigureVisible", visibility_setting); ***** test set (0, "DefaultFigureVisible", "off"); fail ("confusionchart ([1 2], [0 1], 'OuterPosition', .1)", ".* invalid .* OuterPosition"); set (0, "DefaultFigureVisible", visibility_setting); ***** test set (0, "DefaultFigureVisible", "off"); fail ("confusionchart ([1 2], [0 1], 'Position', .1)", ".* invalid .* Position"); set (0, "DefaultFigureVisible", visibility_setting); ***** test set (0, "DefaultFigureVisible", "off"); fail ("confusionchart ([1 2], [0 1], 'Units', .1)", ".* invalid .* Units"); set (0, "DefaultFigureVisible", visibility_setting); ***** demo "Setting the chart properties" Yt = [8 5 6 8 5 3 1 6 4 2 5 3 1 4]'; Yp = [8 5 6 8 5 2 3 4 4 5 5 7 2 6]'; confusionchart (Yt, Yp, "Title", ... "Demonstration with summaries","Normalization",... "absolute","ColumnSummary", "column-normalized","RowSummary",... "row-normalized") ***** demo "Cellstr as inputs" Yt = {'Positive', 'Positive', 'Positive', 'Negative', 'Negative' }; Yp = {'Positive', 'Positive', 'Negative', 'Negative', 'Negative' }; m = confusionmat ( Yt, Yp ); confusionchart ( m, { 'Positive', 'Negative' } ); ***** demo "Editing the object properties" Yt = {'Positive', 'Positive', 'Positive', 'Negative', 'Negative' }; Yp = {'Positive', 'Positive', 'Negative', 'Negative', 'Negative' }; cm = confusionchart ( Yt, Yp ); cm.Title = "This is an example with a green diagonal"; cm.DiagonalColor = [0.4660, 0.6740, 0.1880]; ***** demo "Confusion chart in a uipanel" h = uipanel (); Yt = {'Positive', 'Positive', 'Positive', 'Negative', 'Negative' }; Yp = {'Positive', 'Positive', 'Negative', 'Negative', 'Negative' }; cm = confusionchart ( h, Yt, Yp ); ***** demo "Sorting classes" Yt = [8 5 6 8 5 3 1 6 4 2 5 3 1 4]'; Yp = [8 5 6 8 5 2 3 4 4 5 5 7 2 6]'; cm = confusionchart (Yt, Yp, "Title", ... "Classes are sorted according to clusters"); sortClasses (cm, "cluster"); 18 tests, 18 passed, 0 known failure, 0 skipped [inst/confusionmat.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/confusionmat.m ***** test Yt = [8 5 6 8 5 3 1 6 4 2 5 3 1 4]'; Yp = [8 5 6 8 5 2 3 4 4 5 5 7 2 6]'; C = [0 1 1 0 0 0 0 0; 0 0 0 0 1 0 0 0; 0 1 0 0 0 0 1 0; 0 0 0 1 0 1 0 0; ... 0 0 0 0 3 0 0 0; 0 0 0 1 0 1 0 0; 0 0 0 0 0 0 0 0; 0 0 0 0 0 0 0 2]; assert (confusionmat (Yt, Yp), C) 1 test, 1 passed, 0 known failure, 0 skipped [inst/cophenet.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/cophenet.m ***** error cophenet () ***** error cophenet (ones (2,2), 1) ***** error cophenet ([1 2 1], "a") ***** error cophenet ([1 2 1], [1 2]) ***** demo "usage"; X = randn (10,2); y = pdist (X); Z = linkage (y, "average"); cophenet (Z, y) 4 tests, 4 passed, 0 known failure, 0 skipped [inst/copulacdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/copulacdf.m ***** test x = [0.2:0.2:0.6; 0.2:0.2:0.6]; theta = [1; 2]; p = copulacdf ("Clayton", x, theta); expected_p = [0.1395; 0.1767]; assert (p, expected_p, 0.001); ***** test x = [0.2:0.2:0.6; 0.2:0.2:0.6]; p = copulacdf ("Gumbel", x, 2); expected_p = [0.1464; 0.1464]; assert (p, expected_p, 0.001); ***** test x = [0.2:0.2:0.6; 0.2:0.2:0.6]; theta = [1; 2]; p = copulacdf ("Frank", x, theta); expected_p = [0.0699; 0.0930]; assert (p, expected_p, 0.001); ***** test x = [0.2:0.2:0.6; 0.2:0.2:0.6]; theta = [0.3; 0.7]; p = copulacdf ("AMH", x, theta); expected_p = [0.0629; 0.0959]; assert (p, expected_p, 0.001); ***** test x = [0.2:0.2:0.6; 0.2:0.1:0.4]; theta = [0.2, 0.1, 0.1, 0.05]; p = copulacdf ("FGM", x, theta); expected_p = [0.0558; 0.0293]; assert (p, expected_p, 0.001); 5 tests, 5 passed, 0 known failure, 0 skipped [inst/copulapdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/copulapdf.m ***** test x = [0.2:0.2:0.6; 0.2:0.2:0.6]; theta = [1; 2]; p = copulapdf ("Clayton", x, theta); expected_p = [0.9872; 0.7295]; assert (p, expected_p, 0.001); ***** test x = [0.2:0.2:0.6; 0.2:0.2:0.6]; p = copulapdf ("Gumbel", x, 2); expected_p = [0.9468; 0.9468]; assert (p, expected_p, 0.001); ***** test x = [0.2, 0.6; 0.2, 0.6]; theta = [1; 2]; p = copulapdf ("Frank", x, theta); expected_p = [0.9378; 0.8678]; assert (p, expected_p, 0.001); ***** test x = [0.2, 0.6; 0.2, 0.6]; theta = [0.3; 0.7]; p = copulapdf ("AMH", x, theta); expected_p = [0.9540; 0.8577]; assert (p, expected_p, 0.001); 4 tests, 4 passed, 0 known failure, 0 skipped [inst/copularnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/copularnd.m ***** test theta = 0.5; x = copularnd ("Gaussian", theta); assert (size (x), [1, 2]); assert (all ((x >= 0) & (x <= 1))); ***** test theta = 0.5; nu = 2; x = copularnd ("t", theta, nu); assert (size (x), [1, 2]); assert (all ((x >= 0) & (x <= 1))); ***** test theta = 0.5; x = copularnd ("Clayton", theta); assert (size (x), [1, 2]); assert (all ((x >= 0) & (x <= 1))); ***** test theta = 0.5; n = 2; x = copularnd ("Clayton", theta, n); assert (size (x), [n, 2]); assert (all ((x >= 0) & (x <= 1))); ***** test theta = [1; 2]; n = 2; d = 3; x = copularnd ("Clayton", theta, n, d); assert (size (x), [n, d]); assert (all ((x >= 0) & (x <= 1))); 5 tests, 5 passed, 0 known failure, 0 skipped [inst/crossval.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/crossval.m ***** test load fisheriris.txt y = fisheriris(:, 2); X = [ones(size(y)) fisheriris(:, 3:5)]; f = @(X1, y1, X2, y2) meansq (y2 - X2*regress(y1, X1)); results0 = crossval (f, X, y); results1 = crossval (f, X, y, 'KFold', 10); folds = 5; results2 = crossval (f, X, y, 'KFold', folds); results3 = crossval (f, X, y, 'Partition', cvpartition (numel (y), 'KFold', folds)); results4 = crossval (f, X, y, 'LeaveOut', 1); mcreps = 2; n_holdout = 20; results5 = crossval (f, X, y, 'HoldOut', n_holdout, 'mcreps', mcreps); ## ensure equal representation of iris species in the training set -- tends ## to slightly reduce cross-validation mean square error results6 = crossval (f, X, y, 'KFold', 5, 'stratify', fisheriris(:, 1)); assert (results0, results1); assert (results2, results3); assert (size(results4), [1 numel(y)]); assert (mean(results4), 4.5304, 1E-4); assert (size(results5), [mcreps 1]); warning: load: '/build/octave-statistics-n9Ulju/octave-statistics-1.4.3/debian/octave-statistics/usr/share/octave/packages/statistics-1.4.3/fisheriris.txt' found by searching load path warning: called from __test__ at line 3 column 2 test at line 677 column 11 /tmp/tmp.v7L8UY8G4I at line 238 column 31 warning: strmatch is obsolete; use strncmp or strcmp instead 1 test, 1 passed, 0 known failure, 0 skipped [inst/datasample.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/datasample.m ***** error datasample(); ***** error datasample(1); ***** error datasample({1, 2, 3}, 1); ***** error datasample([1 2], -1); ***** error datasample([1 2], 1.5); ***** error datasample([1 2], [1 1]); ***** error datasample([1 2], 'g', [1 1]); ***** error datasample([1 2], 1, -1); ***** error datasample([1 2], 1, 1.5); ***** error datasample([1 2], 1, [1 1]); ***** error datasample([1 2], 1, 1, "Replace", -2); ***** error datasample([1 2], 1, 1, "Weights", "abc"); ***** error datasample([1 2], 1, 1, "Weights", [1 -2 3]); ***** error datasample([1 2], 1, 1, "Weights", ones (2)); ***** error datasample([1 2], 1, 1, "Weights", [1 2 3]); ***** test dat = randn (10, 4); assert (size (datasample (dat, 3, 1)), [3 4]); ***** test dat = randn (10, 4); assert (size (datasample (dat, 3, 2)), [10 3]); 17 tests, 17 passed, 0 known failure, 0 skipped [inst/dendrogram.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/dendrogram.m ***** shared visibility_setting visibility_setting = get (0, "DefaultFigureVisible"); ***** error dendrogram () ***** error dendrogram (ones (2, 2), 1) ***** error dendrogram ([1 2 1], 1, "xxx", "xxx") ***** error dendrogram ([1 2 1], "Reorder", "xxx") ***** error dendrogram ([1 2 1], "Reorder", [1 2 3 4]) ***** test set (0, "DefaultFigureVisible", "off"); fail ('dendrogram ([1 2 1], "Orientation", "north")', "invalid orientation .*") set (0, "DefaultFigureVisible", visibility_setting); ***** demo 1 y = [4 5; 2 6; 3 7; 8 9; 1 10]; y(:,3) = 1:5; figure (gcf); clf; dendrogram (y); ***** demo 2 v = 2 * rand (30, 1) - 1; d = abs (bsxfun (@minus, v(:, 1), v(:, 1)')); y = linkage (squareform (d, "tovector")); figure (gcf); clf; dendrogram (y); ***** demo "collapsed tree, find all the leaves of node 5" X = randn (60, 2); D = pdist (X); y = linkage (D, "average"); figure (gcf); clf; subplot (2, 1, 1); title ("original tree"); dendrogram (y, 0); subplot (2, 1, 2); title ("collapsed tree"); [~, t] = dendrogram (y, 20); find(t == 5) ***** demo "optimal leaf order" X = randn (30, 2); D = pdist (X); y = linkage (D, "average"); order = optimalleaforder (y, D); figure (gcf); clf; subplot (2, 1, 1); title ("original leaf order"); dendrogram (y); subplot (2, 1, 2); title ("optimal leaf order"); dendrogram (y, "Reorder", order); ***** demo "horizontal orientation and labels" X = randn (8, 2); D = pdist (X); L = ["Snow White"; "Doc"; "Grumpy"; "Happy"; "Sleepy"; "Bashful"; ... "Sneezy"; "Dopey"]; y = linkage (D, "average"); dendrogram (y, "Orientation", "left", "Labels", L); 6 tests, 6 passed, 0 known failure, 0 skipped [inst/evalclusters.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/evalclusters.m ***** error evalclusters () ***** error evalclusters ([1 1;0 1]) ***** error evalclusters ([1 1;0 1], "kmeans") ***** error <'x' must be a numeric*> evalclusters ("abc", "kmeans", "gap") ***** error evalclusters ([1 1;0 1], "xxx", "gap") ***** error evalclusters ([1 1;0 1], [1 2], "gap") ***** error evalclusters ([1 1;0 1], 1.2, "gap") ***** error evalclusters ([1 1;0 1], [1; 2], 123) ***** error evalclusters ([1 1;0 1], [1; 2], "xxx") ***** error <'KList' can be empty*> evalclusters ([1 1;0 1], "kmeans", "gap") ***** error evalclusters ([1 1;0 1], [1; 2], "gap", 1) ***** error evalclusters ([1 1;0 1], [1; 2], "gap", 1, 1) ***** error evalclusters ([1 1;0 1], [1; 2], "gap", "xxx", 1) ***** error <'KList'*> evalclusters ([1 1;0 1], [1; 2], "gap", "KList", [-1 0]) ***** error <'KList'*> evalclusters ([1 1;0 1], [1; 2], "gap", "KList", [1 .5]) ***** error <'KList'*> evalclusters ([1 1;0 1], [1; 2], "gap", "KList", [1 1; 1 1]) ***** error evalclusters ([1 1;0 1], [1; 2], "gap", ... "distance", "a") ***** error evalclusters ([1 1;0 1], [1; 2], "daviesbouldin", ... "distance", "a") ***** error evalclusters ([1 1;0 1], [1; 2], "gap", ... "clusterpriors", "equal") ***** error evalclusters ([1 1;0 1], [1; 2], ... "silhouette", "clusterpriors", "xxx") ***** error <'clust' must be a clustering*> evalclusters ([1 1;0 1], [1; 2], "gap") ***** demo load fisheriris; eva = evalclusters(meas, "kmeans", "calinskiharabasz", "KList", [1:6]) 21 tests, 21 passed, 0 known failure, 0 skipped [inst/expfit.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/expfit.m ***** assert (expfit (1), 1) ***** assert (expfit (1:3), 2) ***** assert (expfit ([1:3]'), 2) ***** assert (expfit (1:3, []), 2) ***** assert (expfit (1:3, [], [], []), 2) ***** assert (expfit (magic (3)), [5 5 5]) ***** assert (expfit (cat (3, magic (3), 2*magic (3))), cat (3,[5 5 5], [10 10 10])) ***** assert (expfit (1:3, 0.1, [0 0 0], [1 1 1]), 2) ***** assert (expfit ([1:3]', 0.1, [0 0 0]', [1 1 1]'), 2) ***** assert (expfit (1:3, 0.1, [0 0 0]', [1 1 1]'), 2) ***** assert (expfit (1:3, 0.1, [1 0 0], [1 1 1]), 3) ***** assert (expfit (1:3, 0.1, [0 0 0], [4 1 1]), 1.5) ***** assert (expfit (1:3, 0.1, [1 0 0], [4 1 1]), 4.5) ***** assert (expfit (1:3, 0.1, [1 0 1], [4 1 1]), 9) ***** assert (expfit (1:3, 0.1, [], [-1 1 1]), 4) ***** assert (expfit (1:3, 0.1, [], [0.5 1 1]), 2.2) ***** assert (expfit (1:3, 0.1, [1 1 1]), NaN) ***** assert (expfit (1:3, 0.1, [], [0 0 0]), NaN) ***** assert (expfit (reshape (1:9, [3 3])), [2 5 8]) ***** assert (expfit (reshape (1:9, [3 3]), [], eye(3)), [3 7.5 12]) ***** assert (expfit (reshape (1:9, [3 3]), [], 2*eye(3)), [3 7.5 12]) ***** assert (expfit (reshape (1:9, [3 3]), [], [], [2 2 2; 1 1 1; 1 1 1]), [1.75 4.75 7.75]) ***** assert (expfit (reshape (1:9, [3 3]), [], [], [2 2 2; 1 1 1; 1 1 1]), [1.75 4.75 7.75]) ***** assert (expfit (reshape (1:9, [3 3]), [], eye(3), [2 2 2; 1 1 1; 1 1 1]), [3.5 19/3 31/3]) ***** assert ([~,v] = expfit (1:3, 0), [0; Inf]) ***** assert ([~,v] = expfit (1:3, 2), [Inf; 0]) ***** assert ([~,v] = expfit (1:3, 0.1, [1 1 1]), [NaN; NaN]) ***** assert ([~,v] = expfit (1:3, 0.1, [], [0 0 0]), [NaN; NaN]) ***** assert ([~,v] = expfit (1:3, -1), [NaN; NaN]) ***** assert ([~,v] = expfit (1:3, 5), [NaN; NaN]) ***** assert ([~,v] = expfit (1:3), [0.830485728373393; 9.698190330474096], 1000*eps) ***** assert ([~,v] = expfit (1:3, 0.1), [0.953017262058213; 7.337731146400207], 1000*eps) ***** assert ([~,v] = expfit ([1:3;2:4]), ... [0.538440777613095, 0.897401296021825, 1.256361814430554; ... 12.385982973214016, 20.643304955356694, 28.900626937499371], 1000*eps) ***** assert ([~,v] = expfit ([1:3;2:4], [], [1 1 1; 0 0 0]), ... 100*[0.008132550920455, 0.013554251534091, 0.018975952147727; ... 1.184936706156216, 1.974894510260360, 2.764852314364504], 1000*eps) ***** assert ([~,v] = expfit ([1:3;2:4], [], [], [3 3 3; 1 1 1]), ... [0.570302756652583, 1.026544961974649, 1.482787167296715; ... 4.587722594914109, 8.257900670845396, 11.928078746776684], 1000*eps) ***** assert ([~,v] = expfit ([1:3;2:4], [], [0 0 0; 1 1 1], [3 3 3; 1 1 1]), ... [0.692071440311161, 1.245728592560089, 1.799385744809018; ... 8.081825275395081, 14.547285495711145, 21.012745716027212], 1000*eps) ***** test s = reshape (1:8, [4 2]); s(4) = NaN; [m,v] = expfit (s); assert ({m, v}, {[NaN, 6.5], [NaN, 2.965574334593430;NaN, 23.856157493553368]}, 1000*eps); ***** test s = magic (3); c = [0 1 0; 0 1 0; 0 1 0]; f = [1 1 0; 1 1 0; 1 1 0]; [m,v] = expfit (s, [], c, f); assert ({m, v}, {[5 NaN NaN], [[2.076214320933482; 24.245475826185242],NaN(2)]}, 1000*eps); ***** error expfit () ***** error expfit (1,2,3,4,5) ***** error [a b c] = expfit (1) ***** error expfit (1, [1 2]) ***** error expfit ([-1 2 3 4 5]) ***** error expfit ([1:5], [], "test") ***** error expfit ([1:5], [], [], "test") ***** error expfit ([1:5], [], [0 0 0 0]) ***** error expfit ([1:5], [], [], [1 1 1 1]) 47 tests, 47 passed, 0 known failure, 0 skipped [inst/explike.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/explike.m ***** test x = 12; beta = 5; [L, V] = explike (beta, x); expected_L = 4.0094; expected_V = 6.5789; assert (L, expected_L, 0.001); assert (V, expected_V, 0.001); ***** test x = 1:5; beta = 2; [L, V] = explike (beta, x); expected_L = 10.9657; expected_V = 0.4; assert (L, expected_L, 0.001); assert (V, expected_V, 0.001); 2 tests, 2 passed, 0 known failure, 0 skipped [inst/expstat.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/expstat.m ***** test l = 1:6; [m, v] = expstat (l); assert (m, [1, 2, 3, 4, 5, 6], 0.001); assert (v, [1, 4, 9, 16, 25, 36], 0.001); 1 test, 1 passed, 0 known failure, 0 skipped [inst/fstat.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/fstat.m ***** test m = 1:6; n = 5:10; [mn, v] = fstat (m, n); expected_mn = [1.6667, 1.5000, 1.4000, 1.3333, 1.2857, 1.2500]; expected_v = [22.2222, 6.7500, 3.4844, 2.2222, 1.5869, 1.2153]; assert (mn, expected_mn, 0.001); assert (v, expected_v, 0.001); ***** test m = 1:6; [mn, v] = fstat (m, 5); expected_mn = [1.6667, 1.6667, 1.6667, 1.6667, 1.6667, 1.6667]; expected_v = [22.2222, 13.8889, 11.1111, 9.7222, 8.8889, 8.3333]; assert (mn, expected_mn, 0.001); assert (v, expected_v, 0.001); 2 tests, 2 passed, 0 known failure, 0 skipped [inst/gamfit.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/gamfit.m ***** shared v, res v = [1.2 1.6 1.7 1.8 1.9 2.0 2.2 2.6 3.0 3.5 4.0 4.8 5.6 6.6 7.6]; res = gamfit(v); ***** assert (res(1), 3.425, 1E-3); ***** assert (res(2), 0.975, 1E-3); 2 tests, 2 passed, 0 known failure, 0 skipped [inst/gamstat.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/gamstat.m ***** test a = 1:6; b = 1:0.2:2; [m, v] = gamstat (a, b); expected_m = [1.00, 2.40, 4.20, 6.40, 9.00, 12.00]; expected_v = [1.00, 2.88, 5.88, 10.24, 16.20, 24.00]; assert (m, expected_m, 0.001); assert (v, expected_v, 0.001); ***** test a = 1:6; [m, v] = gamstat (a, 1.5); expected_m = [1.50, 3.00, 4.50, 6.00, 7.50, 9.00]; expected_v = [2.25, 4.50, 6.75, 9.00, 11.25, 13.50]; assert (m, expected_m, 0.001); assert (v, expected_v, 0.001); 2 tests, 2 passed, 0 known failure, 0 skipped [inst/geostat.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/geostat.m ***** test p = 1 ./ (1:6); [m, v] = geostat (p); assert (m, [0, 1, 2, 3, 4, 5], 0.001); assert (v, [0, 2, 6, 12, 20, 30], 0.001); 1 test, 1 passed, 0 known failure, 0 skipped [inst/gevcdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/gevcdf.m ***** test x = 0:0.5:2.5; sigma = 1:6; k = 1; mu = 0; p = gevcdf (x, k, sigma, mu); expected_p = [0.36788 0.44933 0.47237 0.48323 0.48954 0.49367]; assert (p, expected_p, 0.001); ***** test x = -0.5:0.5:2.5; sigma = 0.5; k = 1; mu = 0; p = gevcdf (x, k, sigma, mu); expected_p = [0 0.36788 0.60653 0.71653 0.77880 0.81873 0.84648]; assert (p, expected_p, 0.001); ***** test #check for continuity for k near 0 x = 1; sigma = 0.5; k = -0.03:0.01:0.03; mu = 0; p = gevcdf (x, k, sigma, mu); expected_p = [0.88062 0.87820 0.87580 0.87342 0.87107 0.86874 0.86643]; assert (p, expected_p, 0.001); 3 tests, 3 passed, 0 known failure, 0 skipped [inst/gevfit.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/gevfit.m ***** test data = 1:50; [pfit, pci] = gevfit (data); expected_p = [-0.44 15.19 21.53]; expected_pu = [-0.13 19.31 26.49]; assert (pfit, expected_p, 0.1); assert (pci(2, :), expected_pu, 0.1); 1 test, 1 passed, 0 known failure, 0 skipped [inst/gevfit_lmom.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/gevfit_lmom.m ***** xtest <31070> data = 1:50; [pfit, pci] = gevfit_lmom (data); expected_p = [-0.28 15.01 20.22]'; assert (pfit, expected_p, 0.1); 1 test, 1 passed, 0 known failure, 0 skipped [inst/gevinv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/gevinv.m ***** test p = 0.1:0.1:0.9; k = 0; sigma = 1; mu = 0; x = gevinv (p, k, sigma, mu); c = gevcdf(x, k, sigma, mu); assert (c, p, 0.001); ***** test p = 0.1:0.1:0.9; k = 1; sigma = 1; mu = 0; x = gevinv (p, k, sigma, mu); c = gevcdf(x, k, sigma, mu); assert (c, p, 0.001); ***** test p = 0.1:0.1:0.9; k = 0.3; sigma = 1; mu = 0; x = gevinv (p, k, sigma, mu); c = gevcdf(x, k, sigma, mu); assert (c, p, 0.001); 3 tests, 3 passed, 0 known failure, 0 skipped [inst/gevlike.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/gevlike.m ***** test x = 1; k = 0.2; sigma = 0.3; mu = 0.5; [L, D, C] = gevlike ([k sigma mu], x); expected_L = 0.75942; expected_D = [0.53150; -0.67790; -2.40674]; expected_C = [-0.12547 1.77884 1.06731; 1.77884 16.40761 8.48877; 1.06731 8.48877 0.27979]; assert (L, expected_L, 0.001); assert (D, expected_D, 0.001); assert (C, expected_C, 0.001); ***** test x = 1; k = 0; sigma = 0.3; mu = 0.5; [L, D, C] = gevlike ([k sigma mu], x); expected_L = 0.65157; expected_D = [0.54011; -1.17291; -2.70375]; expected_C = [0.090036 3.41229 2.047337; 3.412229 24.760027 12.510190; 2.047337 12.510190 2.098618]; assert (L, expected_L, 0.001); assert (D, expected_D, 0.001); assert (C, expected_C, 0.001); ***** test x = -5:-1; k = -0.2; sigma = 0.3; mu = 0.5; [L, D, C] = gevlike ([k sigma mu], x); expected_L = 3786.4; expected_D = [6.4511e+04; -4.8194e+04; 3.0633e+03]; expected_C = -[-1.4937e+06 1.0083e+06 -6.1837e+04; 1.0083e+06 -8.1138e+05 4.0917e+04; -6.1837e+04 4.0917e+04 -2.0422e+03]; assert (L, expected_L, -0.001); assert (D, expected_D, -0.001); assert (C, expected_C, -0.001); 3 tests, 3 passed, 0 known failure, 0 skipped [inst/gevpdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/gevpdf.m ***** test x = 0:0.5:2.5; sigma = 1:6; k = 1; mu = 0; y = gevpdf (x, k, sigma, mu); expected_y = [0.367879 0.143785 0.088569 0.063898 0.049953 0.040997]; assert (y, expected_y, 0.001); ***** test x = -0.5:0.5:2.5; sigma = 0.5; k = 1; mu = 0; y = gevpdf (x, k, sigma, mu); expected_y = [0 0.735759 0.303265 0.159229 0.097350 0.065498 0.047027]; assert (y, expected_y, 0.001); ***** test #check for continuity for k near 0 x = 1; sigma = 0.5; k = -0.03:0.01:0.03; mu = 0; y = gevpdf (x, k, sigma, mu); expected_y = [0.23820 0.23764 0.23704 0.23641 0.23576 0.23508 0.23438]; assert (y, expected_y, 0.001); 3 tests, 3 passed, 0 known failure, 0 skipped [inst/gevrnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/gevrnd.m ***** assert(size (gevrnd (1,2,1)), [1, 1]); ***** assert(size (gevrnd (ones(2,1), 2, 1)), [2, 1]); ***** assert(size (gevrnd (ones(2,2), 2, 1)), [2, 2]); ***** assert(size (gevrnd (1, 2*ones(2,1), 1)), [2, 1]); ***** assert(size (gevrnd (1, 2*ones(2,2), 1)), [2, 2]); ***** assert(size (gevrnd (1, 2, 1, 3)), [3, 3]); ***** assert(size (gevrnd (1, 2, 1, [4 1])), [4, 1]); ***** assert(size (gevrnd (1, 2, 1, 4, 1)), [4, 1]); ***** error gevrnd () ***** error gevrnd (1, 2) ***** error gevrnd (ones(3),ones(2),1) ***** error gevrnd (ones(2),ones(3),1) ***** error gevrnd (i, 2, 1) ***** error gevrnd (2, i, 1) ***** error gevrnd (2, 0, 1) ***** error gevrnd (1,2, 1, -1) ***** error gevrnd (1,2, 1, ones(2)) ***** error gevrnd (1,2, 1, [2 -1 2]) ***** error gevrnd (1,2, 1, 1, ones(2)) ***** error gevrnd (1,2, 1, 1, -1) ***** error gevrnd (ones(2,2), 2, 1, 3) ***** error gevrnd (ones(2,2), 2, 1, [3, 2]) ***** error gevrnd (ones(2,2), 2, 1, 2, 3) 23 tests, 23 passed, 0 known failure, 0 skipped [inst/gevstat.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/gevstat.m ***** test k = [-1 -0.5 0 0.2 0.4 0.5 1]; sigma = 2; mu = 1; [m, v] = gevstat (k, sigma, mu); expected_m = [1 1.4551 2.1544 2.6423 3.4460 4.0898 Inf]; expected_v = [4 3.4336 6.5797 13.3761 59.3288 Inf Inf]; assert (m, expected_m, -0.001); assert (v, expected_v, -0.001); 1 test, 1 passed, 0 known failure, 0 skipped [inst/gmdistribution.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/gmdistribution.m ***** test mu = eye(2); Sigma = eye(2); GM = gmdistribution (mu, Sigma); density = GM.pdf ([0 0; 1 1]); assert (density(1) - density(2), 0, 1e-6); [idx, nlogl, P, logpdf,M] = cluster (GM, eye(2)); assert (idx, [1; 2]); [idx2,nlogl2,P2,logpdf2] = GM.cluster (eye(2)); assert (nlogl - nlogl2, 0, 1e-6); [idx3,nlogl3,P3] = cluster (GM, eye(2)); assert (P - P3, zeros (2), 1e-6); [idx4,nlogl4] = cluster (GM, eye(2)); assert (size (nlogl4), [1 1]); idx5 = cluster (GM, eye(2)); assert (idx - idx5, zeros (2,1)); D = GM.mahal ([1;0]); assert (D - M(1,:), zeros (1,2), 1e-6); P = GM.posterior ([0 1]); assert (P - P2(2,:), zeros (1,2), 1e-6); R = GM.random(20); assert (size(R), [20, 2]); R = GM.random(); assert (size(R), [1, 2]); 1 test, 1 passed, 0 known failure, 0 skipped [inst/gpcdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/gpcdf.m ***** shared x,y1,y2,y3 x = [-Inf, -1, 0, 1/2, 1, Inf]; y1 = [0, 0, 0, 0.3934693402873666, 0.6321205588285577, 1]; y2 = [0, 0, 0, 1/3, 1/2, 1]; y3 = [0, 0, 0, 1/2, 1, 1]; seps = eps('single')*5; ***** assert (gpcdf (x, zeros (1,6), ones (1,6), zeros (1,6)), y1, eps) ***** assert (gpcdf (x, 0, 1, zeros (1,6)), y1, eps) ***** assert (gpcdf (x, 0, ones (1,6), 0), y1, eps) ***** assert (gpcdf (x, zeros (1,6), 1, 0), y1, eps) ***** assert (gpcdf (x, 0, 1, 0), y1, eps) ***** assert (gpcdf (x, 0, 1, [0, 0, 0, NaN, 0, 0]), [y1(1:3), NaN, y1(5:6)], eps) ***** assert (gpcdf (x, 0, [1, 1, 1, NaN, 1, 1], 0), [y1(1:3), NaN, y1(5:6)], eps) ***** assert (gpcdf (x, [0, 0, 0, NaN, 0, 0], 1, 0), [y1(1:3), NaN, y1(5:6)], eps) ***** assert (gpcdf ([x(1:3), NaN, x(5:6)], 0, 1, 0), [y1(1:3), NaN, y1(5:6)], eps) ***** assert (gpcdf (x, ones (1,6), ones (1,6), zeros (1,6)), y2, eps) ***** assert (gpcdf (x, 1, 1, zeros (1,6)), y2, eps) ***** assert (gpcdf (x, 1, ones (1,6), 0), y2, eps) ***** assert (gpcdf (x, ones (1,6), 1, 0), y2, eps) ***** assert (gpcdf (x, 1, 1, 0), y2, eps) ***** assert (gpcdf (x, 1, 1, [0, 0, 0, NaN, 0, 0]), [y2(1:3), NaN, y2(5:6)], eps) ***** assert (gpcdf (x, 1, [1, 1, 1, NaN, 1, 1], 0), [y2(1:3), NaN, y2(5:6)], eps) ***** assert (gpcdf (x, [1, 1, 1, NaN, 1, 1], 1, 0), [y2(1:3), NaN, y2(5:6)], eps) ***** assert (gpcdf ([x(1:3), NaN, x(5:6)], 1, 1, 0), [y2(1:3), NaN, y2(5:6)], eps) ***** assert (gpcdf (x, -ones (1,6), ones (1,6), zeros (1,6)), y3, eps) ***** assert (gpcdf (x, -1, 1, zeros (1,6)), y3, eps) ***** assert (gpcdf (x, -1, ones (1,6), 0), y3, eps) ***** assert (gpcdf (x, -ones (1,6), 1, 0), y3, eps) ***** assert (gpcdf (x, -1, 1, 0), y3, eps) ***** assert (gpcdf (x, -1, 1, [0, 0, 0, NaN, 0, 0]), [y1(1:3), NaN, y3(5:6)], eps) ***** assert (gpcdf (x, -1, [1, 1, 1, NaN, 1, 1], 0), [y1(1:3), NaN, y3(5:6)], eps) ***** assert (gpcdf (x, [-1, -1, -1, NaN, -1, -1], 1, 0), [y1(1:3), NaN, y3(5:6)], eps) ***** assert (gpcdf ([x(1:3), NaN, x(5:6)], -1, 1, 0), [y1(1:3), NaN, y3(5:6)], eps) ***** assert (gpcdf (single ([x, NaN]), 0, 1, 0), single ([y1, NaN]), eps('single')) ***** assert (gpcdf ([x, NaN], 0, 1, single (0)), single ([y1, NaN]), eps('single')) ***** assert (gpcdf ([x, NaN], 0, single (1), 0), single ([y1, NaN]), eps('single')) ***** assert (gpcdf ([x, NaN], single (0), 1, 0), single ([y1, NaN]), eps('single')) ***** assert (gpcdf (single ([x, NaN]), 1, 1, 0), single ([y2, NaN]), eps('single')) ***** assert (gpcdf ([x, NaN], 1, 1, single (0)), single ([y2, NaN]), eps('single')) ***** assert (gpcdf ([x, NaN], 1, single (1), 0), single ([y2, NaN]), eps('single')) ***** assert (gpcdf ([x, NaN], single (1), 1, 0), single ([y2, NaN]), eps('single')) ***** assert (gpcdf (single ([x, NaN]), -1, 1, 0), single ([y3, NaN]), eps('single')) ***** assert (gpcdf ([x, NaN], -1, 1, single (0)), single ([y3, NaN]), eps('single')) ***** assert (gpcdf ([x, NaN], -1, single (1), 0), single ([y3, NaN]), eps('single')) ***** assert (gpcdf ([x, NaN], single (-1), 1, 0), single ([y3, NaN]), eps('single')) ***** error gpcdf () ***** error gpcdf (1) ***** error gpcdf (1,2) ***** error gpcdf (1,2,3) ***** error gpcdf (1,2,3,4,5) ***** error gpcdf (ones (3), ones (2), ones (2), ones (2)) ***** error gpcdf (ones (2), ones (2), ones (2), ones (3)) ***** error gpcdf (ones (2), ones (2), ones (3), ones (2)) ***** error gpcdf (ones (2), ones (3), ones (2), ones (2)) ***** error gpcdf (i, 2, 2, 2) ***** error gpcdf (2, i, 2, 2) ***** error gpcdf (2, 2, i, 2) ***** error gpcdf (2, 2, 2, i) 52 tests, 52 passed, 0 known failure, 0 skipped [inst/gpinv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/gpinv.m ***** shared x,y1,y2,y3 x = [-1, 0, 1/2, 1, 2]; y1 = [NaN, 0, 0.6931471805599453, Inf, NaN]; y2 = [NaN, 0, 1, Inf, NaN]; y3 = [NaN, 0, 1/2, 1, NaN]; ***** assert (gpinv (x, zeros (1,5), ones (1,5), zeros (1,5)), y1) ***** assert (gpinv (x, 0, 1, zeros (1,5)), y1) ***** assert (gpinv (x, 0, ones (1,5), 0), y1) ***** assert (gpinv (x, zeros (1,5), 1, 0), y1) ***** assert (gpinv (x, 0, 1, 0), y1) ***** assert (gpinv (x, 0, 1, [0, 0, NaN, 0, 0]), [y1(1:2), NaN, y1(4:5)]) ***** assert (gpinv (x, 0, [1, 1, NaN, 1, 1], 0), [y1(1:2), NaN, y1(4:5)]) ***** assert (gpinv (x, [0, 0, NaN, 0, 0], 1, 0), [y1(1:2), NaN, y1(4:5)]) ***** assert (gpinv ([x(1:2), NaN, x(4:5)], 0, 1, 0), [y1(1:2), NaN, y1(4:5)]) ***** assert (gpinv (x, ones (1,5), ones (1,5), zeros (1,5)), y2) ***** assert (gpinv (x, 1, 1, zeros (1,5)), y2) ***** assert (gpinv (x, 1, ones (1,5), 0), y2) ***** assert (gpinv (x, ones (1,5), 1, 0), y2) ***** assert (gpinv (x, 1, 1, 0), y2) ***** assert (gpinv (x, 1, 1, [0, 0, NaN, 0, 0]), [y2(1:2), NaN, y2(4:5)]) ***** assert (gpinv (x, 1, [1, 1, NaN, 1, 1], 0), [y2(1:2), NaN, y2(4:5)]) ***** assert (gpinv (x, [1, 1, NaN, 1, 1], 1, 0), [y2(1:2), NaN, y2(4:5)]) ***** assert (gpinv ([x(1:2), NaN, x(4:5)], 1, 1, 0), [y2(1:2), NaN, y2(4:5)]) ***** assert (gpinv (x, -ones (1,5), ones (1,5), zeros (1,5)), y3) ***** assert (gpinv (x, -1, 1, zeros (1,5)), y3) ***** assert (gpinv (x, -1, ones (1,5), 0), y3) ***** assert (gpinv (x, -ones (1,5), 1, 0), y3) ***** assert (gpinv (x, -1, 1, 0), y3) ***** assert (gpinv (x, -1, 1, [0, 0, NaN, 0, 0]), [y3(1:2), NaN, y3(4:5)]) ***** assert (gpinv (x, -1, [1, 1, NaN, 1, 1], 0), [y3(1:2), NaN, y3(4:5)]) ***** assert (gpinv (x, -[1, 1, NaN, 1, 1], 1, 0), [y3(1:2), NaN, y3(4:5)]) ***** assert (gpinv ([x(1:2), NaN, x(4:5)], -1, 1, 0), [y3(1:2), NaN, y3(4:5)]) ***** assert (gpinv (single ([x, NaN]), 0, 1, 0), single ([y1, NaN])) ***** assert (gpinv ([x, NaN], 0, 1, single (0)), single ([y1, NaN])) ***** assert (gpinv ([x, NaN], 0, single (1), 0), single ([y1, NaN])) ***** assert (gpinv ([x, NaN], single (0), 1, 0), single ([y1, NaN])) ***** assert (gpinv (single ([x, NaN]), 1, 1, 0), single ([y2, NaN])) ***** assert (gpinv ([x, NaN], 1, 1, single (0)), single ([y2, NaN])) ***** assert (gpinv ([x, NaN], 1, single (1), 0), single ([y2, NaN])) ***** assert (gpinv ([x, NaN], single (1), 1, 0), single ([y2, NaN])) ***** assert (gpinv (single ([x, NaN]), -1, 1, 0), single ([y3, NaN])) ***** assert (gpinv ([x, NaN], -1, 1, single (0)), single ([y3, NaN])) ***** assert (gpinv ([x, NaN], -1, single (1), 0), single ([y3, NaN])) ***** assert (gpinv ([x, NaN], single (-1), 1, 0), single ([y3, NaN])) ***** error gpinv () ***** error gpinv (1) ***** error gpinv (1,2) ***** error gpinv (1,2,3) ***** error gpinv (1,2,3,4,5) ***** error gpinv (ones (3), ones (2), ones (2), ones (2)) ***** error gpinv (ones (2), ones (3), ones (2), ones (2)) ***** error gpinv (ones (2), ones (2), ones (3), ones (2)) ***** error gpinv (ones (2), ones (2), ones (2), ones (3)) ***** error gpinv (i, 2, 2, 2) ***** error gpinv (2, i, 2, 2) ***** error gpinv (2, 2, i, 2) ***** error gpinv (2, 2, 2, i) 52 tests, 52 passed, 0 known failure, 0 skipped [inst/gppdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/gppdf.m ***** shared x,y1,y2,y3 x = [-Inf, -1, 0, 1/2, 1, Inf]; y1 = [0, 0, 1, 0.6065306597126334, 0.36787944117144233, 0]; y2 = [0, 0, 1, 4/9, 1/4, 0]; y3 = [0, 0, 1, 1, 1, 0]; ***** assert (gppdf (x, zeros (1,6), ones (1,6), zeros (1,6)), y1, eps) ***** assert (gppdf (x, 0, 1, zeros (1,6)), y1, eps) ***** assert (gppdf (x, 0, ones (1,6), 0), y1, eps) ***** assert (gppdf (x, zeros (1,6), 1, 0), y1, eps) ***** assert (gppdf (x, 0, 1, 0), y1, eps) ***** assert (gppdf (x, 0, 1, [0, 0, 0, NaN, 0, 0]), [y1(1:3), NaN, y1(5:6)]) ***** assert (gppdf (x, 0, [1, 1, 1, NaN, 1, 1], 0), [y1(1:3), NaN, y1(5:6)]) ***** assert (gppdf (x, [0, 0, 0, NaN, 0, 0], 1, 0), [y1(1:3), NaN, y1(5:6)]) ***** assert (gppdf ([x(1:3), NaN, x(5:6)], 0, 1, 0), [y1(1:3), NaN, y1(5:6)]) ***** assert (gppdf (x, ones (1,6), ones (1,6), zeros (1,6)), y2, eps) ***** assert (gppdf (x, 1, 1, zeros (1,6)), y2, eps) ***** assert (gppdf (x, 1, ones (1,6), 0), y2, eps) ***** assert (gppdf (x, ones (1,6), 1, 0), y2, eps) ***** assert (gppdf (x, 1, 1, 0), y2, eps) ***** assert (gppdf (x, 1, 1, [0, 0, 0, NaN, 0, 0]), [y2(1:3), NaN, y2(5:6)]) ***** assert (gppdf (x, 1, [1, 1, 1, NaN, 1, 1], 0), [y2(1:3), NaN, y2(5:6)]) ***** assert (gppdf (x, [1, 1, 1, NaN, 1, 1], 1, 0), [y2(1:3), NaN, y2(5:6)]) ***** assert (gppdf ([x(1:3), NaN, x(5:6)], 1, 1, 0), [y2(1:3), NaN, y2(5:6)]) ***** assert (gppdf (x, -ones (1,6), ones (1,6), zeros (1,6)), y3, eps) ***** assert (gppdf (x, -1, 1, zeros (1,6)), y3, eps) ***** assert (gppdf (x, -1, ones (1,6), 0), y3, eps) ***** assert (gppdf (x, -ones (1,6), 1, 0), y3, eps) ***** assert (gppdf (x, -1, 1, 0), y3, eps) ***** assert (gppdf (x, -1, 1, [0, 0, 0, NaN, 0, 0]), [y3(1:3), NaN, y3(5:6)]) ***** assert (gppdf (x, -1, [1, 1, 1, NaN, 1, 1], 0), [y3(1:3), NaN, y3(5:6)]) ***** assert (gppdf (x, [-1, -1, -1, NaN, -1, -1], 1, 0), [y3(1:3), NaN, y3(5:6)]) ***** assert (gppdf ([x(1:3), NaN, x(5:6)], -1, 1, 0), [y3(1:3), NaN, y3(5:6)]) ***** assert (gppdf (single ([x, NaN]), 0, 1, 0), single ([y1, NaN])) ***** assert (gppdf ([x, NaN], 0, 1, single (0)), single ([y1, NaN])) ***** assert (gppdf ([x, NaN], 0, single (1), 0), single ([y1, NaN])) ***** assert (gppdf ([x, NaN], single (0), 1, 0), single ([y1, NaN])) ***** assert (gppdf (single ([x, NaN]), 1, 1, 0), single ([y2, NaN])) ***** assert (gppdf ([x, NaN], 1, 1, single (0)), single ([y2, NaN])) ***** assert (gppdf ([x, NaN], 1, single (1), 0), single ([y2, NaN])) ***** assert (gppdf ([x, NaN], single (1), 1, 0), single ([y2, NaN])) ***** assert (gppdf (single ([x, NaN]), -1, 1, 0), single ([y3, NaN])) ***** assert (gppdf ([x, NaN], -1, 1, single (0)), single ([y3, NaN])) ***** assert (gppdf ([x, NaN], -1, single (1), 0), single ([y3, NaN])) ***** assert (gppdf ([x, NaN], single (-1), 1, 0), single ([y3, NaN])) ***** error gppdf () ***** error gppdf (1) ***** error gppdf (1,2) ***** error gppdf (1,2,3) ***** error gppdf (1,2,3,4,5) ***** error gppdf (1, ones (2), ones (2), ones (3)) ***** error gppdf (1, ones (2), ones (3), ones (2)) ***** error gppdf (1, ones (3), ones (2), ones (2)) ***** error gppdf (i, 2, 2, 2) ***** error gppdf (2, i, 2, 2) ***** error gppdf (2, 2, i, 2) ***** error gppdf (2, 2, 2, i) 51 tests, 51 passed, 0 known failure, 0 skipped [inst/gprnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/gprnd.m ***** assert (size (gprnd (0,1,0)), [1, 1]) ***** assert (size (gprnd (0, 1, zeros (2,1))), [2, 1]) ***** assert (size (gprnd (0, 1, zeros (2,2))), [2, 2]) ***** assert (size (gprnd (0, ones (2,1), 0)), [2, 1]) ***** assert (size (gprnd (0, ones (2,2), 0)), [2, 2]) ***** assert (size (gprnd (zeros (2,1), 1, 0)), [2, 1]) ***** assert (size (gprnd (zeros (2,2), 1, 0)), [2, 2]) ***** assert (size (gprnd (0, 1, 0, 3)), [3, 3]) ***** assert (size (gprnd (0, 1, 0, [4 1])), [4, 1]) ***** assert (size (gprnd (0, 1, 0, 4, 1)), [4, 1]) ***** assert (size (gprnd (1,1,0)), [1, 1]) ***** assert (size (gprnd (1, 1, zeros (2,1))), [2, 1]) ***** assert (size (gprnd (1, 1, zeros (2,2))), [2, 2]) ***** assert (size (gprnd (1, ones (2,1), 0)), [2, 1]) ***** assert (size (gprnd (1, ones (2,2), 0)), [2, 2]) ***** assert (size (gprnd (ones (2,1), 1, 0)), [2, 1]) ***** assert (size (gprnd (ones (2,2), 1, 0)), [2, 2]) ***** assert (size (gprnd (1, 1, 0, 3)), [3, 3]) ***** assert (size (gprnd (1, 1, 0, [4 1])), [4, 1]) ***** assert (size (gprnd (1, 1, 0, 4, 1)), [4, 1]) ***** assert (size (gprnd (-1, 1, 0)), [1, 1]) ***** assert (size (gprnd (-1, 1, zeros (2,1))), [2, 1]) ***** assert (size (gprnd (1, -1, zeros (2,2))), [2, 2]) ***** assert (size (gprnd (-1, ones (2,1), 0)), [2, 1]) ***** assert (size (gprnd (-1, ones (2,2), 0)), [2, 2]) ***** assert (size (gprnd (-ones (2,1), 1, 0)), [2, 1]) ***** assert (size (gprnd (-ones (2,2), 1, 0)), [2, 2]) ***** assert (size (gprnd (-1, 1, 0, 3)), [3, 3]) ***** assert (size (gprnd (-1, 1, 0, [4 1])), [4, 1]) ***** assert (size (gprnd (-1, 1, 0, 4, 1)), [4, 1]) ***** assert (class (gprnd (0,1,0)), "double") ***** assert (class (gprnd (0, 1, single (0))), "single") ***** assert (class (gprnd (0, 1, single ([0 0]))), "single") ***** assert (class (gprnd (0,single (1),0)), "single") ***** assert (class (gprnd (0,single ([1 1]),0)), "single") ***** assert (class (gprnd (single (0), 1, 0)), "single") ***** assert (class (gprnd (single ([0 0]), 1, 0)), "single") ***** error gprnd () ***** error gprnd (1) ***** error gprnd (1,2) ***** error gprnd (zeros (2), ones (2), zeros (3)) ***** error gprnd (zeros (2), ones (3), zeros (2)) ***** error gprnd (zeros (3), ones (2), zeros (2)) ***** error gprnd (i, 1, 0) ***** error gprnd (0, i, 0) ***** error gprnd (0, 1, i) ***** error gprnd (0,1,0, -1) ***** error gprnd (0,1,0, ones (2)) ***** error gprnd (0,1,0, [2 -1 2]) ***** error gprnd (0,1, zeros (2), 3) ***** error gprnd (0,1, zeros (2), [3, 2]) ***** error gprnd (0,1, zeros (2), 3, 2) 52 tests, 52 passed, 0 known failure, 0 skipped [inst/grp2idx.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/grp2idx.m ***** test in = [true false false true]; out = {[2; 1; 1; 2] {"0"; "1"} [false; true]}; assert (nthargout (1:3, @grp2idx, in), out) assert (nthargout (1:3, @grp2idx, in), nthargout (1:3, @grp2idx, in')) ***** test assert (nthargout (1:3, @grp2idx, [false true]), {[1; 2] {"0"; "1"} [false; true]}); assert (nthargout (1:3, @grp2idx, [true false]), {[2; 1] {"0"; "1"} [false; true]}); ***** assert (nthargout (1:3, @grp2idx, ["oct"; "sci"; "oct"; "oct"; "sci"]), {[1; 2; 1; 1; 2] {"oct"; "sci"} ["oct"; "sci"]}); ***** assert (nthargout (1:3, @grp2idx, {"oct"; "sci"; "oct"; "oct"; "sci"}), {[1; 2; 1; 1; 2] {"oct"; "sci"} {"oct"; "sci"}}); ***** assert (nthargout (1:3, @grp2idx, [ 1 -3 -2 -3 -3 2 1 -1 3 -3]), {[4; 1; 2; 1; 1; 5; 4; 3; 6; 1] {"-3"; "-2"; "-1"; "1"; "2"; "3"} ... [-3; -2; -1; 1; 2; 3]}); ***** assert (nthargout (1:3, @grp2idx, [2 2 3 NaN 2 3]), {[1; 1; 2; NaN; 1; 2] {"2"; "3"} [2; 3]}) ***** assert (nthargout (1:3, @grp2idx, {"et" "sa" "sa" "" "et"}), {[1; 2; 2; NaN; 1] {"et"; "sa"} {"et"; "sa"}}) ***** xtest <51928> assert (nthargout (1:3, @grp2idx, ["sci"; "oct"; "sci"; "oct"; "oct"]), {[1; 2; 1; 2; 2] {"sci"; "oct"} ["sci"; "oct"]}); !!!!! known bug: https://octave.org/testfailure/?51928 ASSERT errors for: assert (cond {i},expected {i},tol) Location | Observed | Expected | Reason (1) 2 1 Abs err 1 exceeds tol 0 by 1 (2) 1 2 Abs err 1 exceeds tol 0 by 1 (3) 2 1 Abs err 1 exceeds tol 0 by 1 (4) 1 2 Abs err 1 exceeds tol 0 by 1 (5) 1 2 Abs err 1 exceeds tol 0 by 1 ASSERT errors for: assert (cond {i},expected {i},tol) Location | Observed | Expected | Reason [] oct sci Strings don't match ASSERT errors for: assert (cond {i},expected {i},tol) Location | Observed | Expected | Reason [] sci oct Strings don't match ASSERT errors for: assert (cond {i},expected {i},tol) Location | Observed | Expected | Reason [] osccti soccit Strings don't match ***** xtest <51928> assert (nthargout (1:3, @grp2idx, {"sci"; "oct"; "sci"; "oct"; "oct"}), {[1; 2; 1; 2; 2] {"sci"; "oct"} {"sci"; "oct"}}); !!!!! known bug: https://octave.org/testfailure/?51928 ASSERT errors for: assert (cond {i},expected {i},tol) Location | Observed | Expected | Reason (1) 2 1 Abs err 1 exceeds tol 0 by 1 (2) 1 2 Abs err 1 exceeds tol 0 by 1 (3) 2 1 Abs err 1 exceeds tol 0 by 1 (4) 1 2 Abs err 1 exceeds tol 0 by 1 (5) 1 2 Abs err 1 exceeds tol 0 by 1 ASSERT errors for: assert (cond {i},expected {i},tol) Location | Observed | Expected | Reason [] oct sci Strings don't match ASSERT errors for: assert (cond {i},expected {i},tol) Location | Observed | Expected | Reason [] sci oct Strings don't match ASSERT errors for: assert (cond {i},expected {i},tol) Location | Observed | Expected | Reason [] oct sci Strings don't match ASSERT errors for: assert (cond {i},expected {i},tol) Location | Observed | Expected | Reason [] sci oct Strings don't match ***** xtest <51928> assert (nthargout (1:3, @grp2idx, {"sa" "et" "et" "" "sa"}), {[1; 2; 2; NaN; 1] {"sa"; "et"} {"sa"; "et"}}) !!!!! known bug: https://octave.org/testfailure/?51928 ASSERT errors for: assert (cond {i},expected {i},tol) Location | Observed | Expected | Reason (1) 2 1 Abs err 1 exceeds tol 0 by 1 (2) 1 2 Abs err 1 exceeds tol 0 by 1 (3) 1 2 Abs err 1 exceeds tol 0 by 1 (5) 2 1 Abs err 1 exceeds tol 0 by 1 ASSERT errors for: assert (cond {i},expected {i},tol) Location | Observed | Expected | Reason [] et sa Strings don't match ASSERT errors for: assert (cond {i},expected {i},tol) Location | Observed | Expected | Reason [] sa et Strings don't match ASSERT errors for: assert (cond {i},expected {i},tol) Location | Observed | Expected | Reason [] et sa Strings don't match ASSERT errors for: assert (cond {i},expected {i},tol) Location | Observed | Expected | Reason [] sa et Strings don't match 10 tests, 7 passed, 0 known failure, 3 skipped [inst/gscatter.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/gscatter.m ***** error gscatter(); ***** error gscatter([1]); ***** error gscatter([1], [2]); ***** error gscatter('abc', [1 2 3], [1]); ***** error gscatter([1 2 3], [1 2], [1]); ***** error gscatter([1 2 3], 'abc', [1]); ***** error gscatter([1 2], [1 2], [1]); ***** error gscatter([1 2], [1 2], [1 2], 'rb', 'so', 12, 'xxx'); ***** demo load fisheriris; X = meas(:,3:4); cidcs = kmeans (X, 3, "Replicates", 5); gscatter (X(:,1), X(:,2), cidcs, [.75 .75 0; 0 .75 .75; .75 0 .75], "os^"); title ("Fisher's iris data"); 8 tests, 8 passed, 0 known failure, 0 skipped [inst/hist3.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/hist3.m ***** demo X = [ 1 1 1 1 1 10 1 10 5 5 5 5 5 5 5 5 5 5 7 3 7 3 7 3 10 10 10 10]; hist3 (X) ***** test N_exp = [ 0 0 0 5 20 0 0 10 15 0 0 15 10 0 0 20 5 0 0 0]; n = 100; x = [1:n]'; y = [n:-1:1]'; D = [x y]; N = hist3 (D, [4 5]); assert (N, N_exp); ***** test N_exp = [0 0 0 0 1 0 0 0 0 1 0 0 0 0 1 1 1 1 1 93]; n = 100; x = [1:n]'; y = [n:-1:1]'; D = [x y]; C{1} = [1 1.7 3 4]; C{2} = [1:5]; N = hist3 (D, C); assert (N, N_exp); ***** test D = [1 1; 3 1; 3 3; 3 1]; [c, nn] = hist3 (D, {0:4, 0:4}); exp_c = zeros (5); exp_c([7 9 19]) = [1 2 1]; assert (c, exp_c); assert (nn, {0:4, 0:4}); ***** test for i = 10 assert (size (hist3 (rand (9, 2), "Edges", {[0:.2:1]; [0:.2:1]})), [6 6]) endfor ***** test edge_1 = linspace (0, 10, 10); edge_2 = linspace (0, 50, 10); [c, nn] = hist3 ([1:10; 1:5:50]', "Edges", {edge_1, edge_2}); exp_c = zeros (10, 10); exp_c([1 12 13 24 35 46 57 68 79 90]) = 1; assert (c, exp_c); assert (nn{1}, edge_1 + edge_1(2)/2, eps*10^4) assert (nn{2}, edge_2 + edge_2(2)/2, eps*10^4) ***** shared X X = [ 5 2 5 3 1 4 5 3 4 4 1 2 2 3 3 3 5 4 5 3]; ***** test N = zeros (10); N([1 10 53 56 60 91 98 100]) = [1 1 1 1 3 1 1 1]; C = {(1.2:0.4:4.8), (2.1:0.2:3.9)}; assert (nthargout ([1 2], @hist3, X), {N C}, eps*10^3) ***** test N = zeros (5, 7); N([1 5 17 18 20 31 34 35]) = [1 1 1 1 3 1 1 1]; C = {(1.4:0.8:4.6), ((2+(1/7)):(2/7):(4-(1/7)))}; assert (nthargout ([1 2], @hist3, X, [5 7]), {N C}, eps*10^3) assert (nthargout ([1 2], @hist3, X, "Nbins", [5 7]), {N C}, eps*10^3) ***** test N = [0 1 0; 0 1 0; 0 0 1; 0 0 0]; C = {(2:5), (2.5:1:4.5)}; assert (nthargout ([1 2], @hist3, X, "Edges", {(1.5:4.5), (2:4)}), {N C}) ***** test N = [0 0 1 0 1 0; 0 0 0 1 0 0; 0 0 1 4 2 0]; C = {(1.2:3.2), (0:5)}; assert (nthargout ([1 2], @hist3, X, "Ctrs", C), {N C}) assert (nthargout ([1 2], @hist3, X, C), {N C}) ***** test [~, C] = hist3 (rand (10, 2), "Edges", {[0 .05 .15 .35 .55 .95], [-1 .05 .07 .2 .3 .5 .89 1.2]}); C_exp = {[ 0.025 0.1 0.25 0.45 0.75 1.15], ... [-0.475 0.06 0.135 0.25 0.4 0.695 1.045 1.355]}; assert (C, C_exp, eps*10^2) ***** test Xv = repmat ([1:10]', [1 2]); ## Test Centers assert (hist3 (Xv, "Ctrs", {1:10, 1:10}), eye (10)) N_exp = eye (6); N_exp([1 end]) = 3; assert (hist3 (Xv, "Ctrs", {3:8, 3:8}), N_exp) N_exp = zeros (8, 6); N_exp([1 2 11 20 29 38 47 48]) = [2 1 1 1 1 1 1 2]; assert (hist3 (Xv, "Ctrs", {2:9, 3:8}), N_exp) ## Test Edges assert (hist3 (Xv, "Edges", {1:10, 1:10}), eye (10)) assert (hist3 (Xv, "Edges", {3:8, 3:8}), eye (6)) assert (hist3 (Xv, "Edges", {2:9, 3:8}), [zeros(1, 6); eye(6); zeros(1, 6)]) N_exp = zeros (14); N_exp(3:12, 3:12) = eye (10); assert (hist3 (Xv, "Edges", {-1:12, -1:12}), N_exp) ## Test for Nbins assert (hist3 (Xv), eye (10)) assert (hist3 (Xv, [10 10]), eye (10)) assert (hist3 (Xv, "nbins", [10 10]), eye (10)) assert (hist3 (Xv, [5 5]), eye (5) * 2) N_exp = zeros (7, 5); N_exp([1 9 10 18 26 27 35]) = [2 1 1 2 1 1 2]; assert (hist3 (Xv, [7 5]), N_exp) ***** test # bug #51059 D = [1 1; NaN 2; 3 1; 3 3; 1 NaN; 3 1]; [c, nn] = hist3 (D, {0:4, 0:4}); exp_c = zeros (5); exp_c([7 9 19]) = [1 2 1]; assert (c, exp_c) assert (nn, {0:4, 0:4}) ***** test [c, nn] = hist3 ([1 8]); exp_c = zeros (10, 10); exp_c(6, 6) = 1; exp_nn = {-4:5, 3:12}; assert (c, exp_c) assert (nn, exp_nn, eps) [c, nn] = hist3 ([1 8], [10 11]); exp_c = zeros (10, 11); exp_c(6, 6) = 1; exp_nn = {-4:5, 3:13}; assert (c, exp_c) assert (nn, exp_nn, eps) ***** test [c, nn] = hist3 ([1 NaN; 2 3; 6 9; 8 NaN]); exp_c = zeros (10, 10); exp_c(2, 1) = 1; exp_c(8, 10) = 1; exp_nn = {linspace(1.35, 7.65, 10) linspace(3.3, 8.7, 10)}; assert (c, exp_c) assert (nn, exp_nn, eps*100) ***** test [c, nn] = hist3 ([1 NaN; 2 NaN; 6 NaN; 8 NaN]); exp_c = zeros (10, 10); exp_nn = {linspace(1.35, 7.65, 10) NaN(1, 10)}; assert (c, exp_c) assert (nn, exp_nn, eps*100) ***** test [c, nn] = hist3 ([1 NaN; NaN 3; NaN 9; 8 NaN]); exp_c = zeros (10, 10); exp_nn = {linspace(1.35, 7.65, 10) linspace(3.3, 8.7, 10)}; assert (c, exp_c) assert (nn, exp_nn, eps*100) 16 tests, 16 passed, 0 known failure, 0 skipped [inst/hmmestimate.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/hmmestimate.m ***** test sequence = [1, 2, 1, 1, 1, 2, 2, 1, 2, 3, 3, 3, 3, 2, 3, 1, 1, 1, 1, 3, 3, 2, 3, 1, 3]; states = [1, 1, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1]; [transprobest, outprobest] = hmmestimate (sequence, states); expectedtransprob = [0.88889, 0.11111; 0.28571, 0.71429]; expectedoutprob = [0.16667, 0.33333, 0.50000; 1.00000, 0.00000, 0.00000]; assert (transprobest, expectedtransprob, 0.001); assert (outprobest, expectedoutprob, 0.001); ***** test sequence = {'A', 'B', 'A', 'A', 'A', 'B', 'B', 'A', 'B', 'C', 'C', 'C', 'C', 'B', 'C', 'A', 'A', 'A', 'A', 'C', 'C', 'B', 'C', 'A', 'C'}; states = {'One', 'One', 'Two', 'Two', 'Two', 'One', 'One', 'One', 'One', 'One', 'One', 'One', 'One', 'One', 'One', 'Two', 'Two', 'Two', 'Two', 'One', 'One', 'One', 'One', 'One', 'One'}; symbols = {'A', 'B', 'C'}; statenames = {'One', 'Two'}; [transprobest, outprobest] = hmmestimate (sequence, states, 'symbols', symbols, 'statenames', statenames); expectedtransprob = [0.88889, 0.11111; 0.28571, 0.71429]; expectedoutprob = [0.16667, 0.33333, 0.50000; 1.00000, 0.00000, 0.00000]; assert (transprobest, expectedtransprob, 0.001); assert (outprobest, expectedoutprob, 0.001); ***** test sequence = [1, 2, 1, 1, 1, 2, 2, 1, 2, 3, 3, 3, 3, 2, 3, 1, 1, 1, 1, 3, 3, 2, 3, 1, 3]; states = [1, 1, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1]; pseudotransitions = [8, 2; 4, 6]; pseudoemissions = [2, 4, 4; 7, 2, 1]; [transprobest, outprobest] = hmmestimate (sequence, states, 'pseudotransitions', pseudotransitions, 'pseudoemissions', pseudoemissions); expectedtransprob = [0.85714, 0.14286; 0.35294, 0.64706]; expectedoutprob = [0.178571, 0.357143, 0.464286; 0.823529, 0.117647, 0.058824]; assert (transprobest, expectedtransprob, 0.001); assert (outprobest, expectedoutprob, 0.001); 3 tests, 3 passed, 0 known failure, 0 skipped [inst/hmmgenerate.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/hmmgenerate.m ***** test len = 25; transprob = [0.8, 0.2; 0.4, 0.6]; outprob = [0.2, 0.4, 0.4; 0.7, 0.2, 0.1]; [sequence, states] = hmmgenerate (len, transprob, outprob); assert (length (sequence), len); assert (length (states), len); assert (min (sequence) >= 1); assert (max (sequence) <= columns (outprob)); assert (min (states) >= 1); assert (max (states) <= rows (transprob)); ***** test len = 25; transprob = [0.8, 0.2; 0.4, 0.6]; outprob = [0.2, 0.4, 0.4; 0.7, 0.2, 0.1]; symbols = {'A', 'B', 'C'}; statenames = {'One', 'Two'}; [sequence, states] = hmmgenerate (len, transprob, outprob, 'symbols', symbols, 'statenames', statenames); assert (length (sequence), len); assert (length (states), len); assert (strcmp (sequence, 'A') + strcmp (sequence, 'B') + strcmp (sequence, 'C') == ones (1, len)); assert (strcmp (states, 'One') + strcmp (states, 'Two') == ones (1, len)); 2 tests, 2 passed, 0 known failure, 0 skipped [inst/hmmviterbi.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/hmmviterbi.m ***** test sequence = [1, 2, 1, 1, 1, 2, 2, 1, 2, 3, 3, 3, 3, 2, 3, 1, 1, 1, 1, 3, 3, 2, 3, 1, 3]; transprob = [0.8, 0.2; 0.4, 0.6]; outprob = [0.2, 0.4, 0.4; 0.7, 0.2, 0.1]; vpath = hmmviterbi (sequence, transprob, outprob); expected = [1, 1, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1]; assert (vpath, expected); ***** test sequence = {'A', 'B', 'A', 'A', 'A', 'B', 'B', 'A', 'B', 'C', 'C', 'C', 'C', 'B', 'C', 'A', 'A', 'A', 'A', 'C', 'C', 'B', 'C', 'A', 'C'}; transprob = [0.8, 0.2; 0.4, 0.6]; outprob = [0.2, 0.4, 0.4; 0.7, 0.2, 0.1]; symbols = {'A', 'B', 'C'}; statenames = {'One', 'Two'}; vpath = hmmviterbi (sequence, transprob, outprob, 'symbols', symbols, 'statenames', statenames); expected = {'One', 'One', 'Two', 'Two', 'Two', 'One', 'One', 'One', 'One', 'One', 'One', 'One', 'One', 'One', 'One', 'Two', 'Two', 'Two', 'Two', 'One', 'One', 'One', 'One', 'One', 'One'}; assert (vpath, expected); 2 tests, 2 passed, 0 known failure, 0 skipped [inst/hygestat.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/hygestat.m ***** test t = 4:9; m = 0:5; n = 1:6; [mn, v] = hygestat (t, m, n); expected_mn = [0.0000, 0.4000, 1.0000, 1.7143, 2.5000, 3.3333]; expected_v = [0.0000, 0.2400, 0.4000, 0.4898, 0.5357, 0.5556]; assert (mn, expected_mn, 0.001); assert (v, expected_v, 0.001); ***** test t = 4:9; m = 0:5; [mn, v] = hygestat (t, m, 2); expected_mn = [0.0000, 0.4000, 0.6667, 0.8571, 1.0000, 1.1111]; expected_v = [0.0000, 0.2400, 0.3556, 0.4082, 0.4286, 0.4321]; assert (mn, expected_mn, 0.001); assert (v, expected_v, 0.001); 2 tests, 2 passed, 0 known failure, 0 skipped [inst/inconsistent.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/inconsistent.m ***** error inconsistent () ***** error inconsistent ([1 2 1], 2, 3) ***** error inconsistent (ones (2, 2)) ***** error inconsistent ([1 2 1], -1) ***** error inconsistent ([1 2 1], 1.3) ***** error inconsistent ([1 2 1], [1 1]) ***** error inconsistent (ones (2, 3)) ***** test load fisheriris; Z = linkage(meas, 'average', 'chebychev'); assert (cond (inconsistent (Z)), 39.9, 1e-3); warning: load: '/build/octave-statistics-n9Ulju/octave-statistics-1.4.3/debian/octave-statistics/usr/share/octave/packages/statistics-1.4.3/fisheriris.mat' found by searching load path warning: called from __test__ at line 3 column 2 test at line 677 column 11 /tmp/tmp.v7L8UY8G4I at line 486 column 31 8 tests, 8 passed, 0 known failure, 0 skipped [inst/iwishpdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/iwishpdf.m ***** assert(iwishpdf(4, 3, 3.1), 0.04226595, 1E-7); ***** assert(iwishpdf([2 -0.3;-0.3 4], [1 0.3;0.3 1], 4), 1.60166e-05, 1E-10); ***** assert(iwishpdf([6 2 5; 2 10 -5; 5 -5 25], [9 5 5; 5 10 -8; 5 -8 22], 5.1), 4.946831e-12, 1E-17); ***** error iwishpdf () ***** error iwishpdf (1, 2) ***** error iwishpdf (1, 2, 0) ***** error wishpdf (1, 2) 7 tests, 7 passed, 0 known failure, 0 skipped [inst/iwishrnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/iwishrnd.m ***** assert(size (iwishrnd (1,2,1)), [1, 1]); ***** assert(size (iwishrnd ([],2,1)), [1, 1]); ***** assert(size (iwishrnd ([3 1; 1 3], 2.00001, [], 1)), [2, 2]); ***** assert(size (iwishrnd (eye(2), 2, [], 3)), [2, 2, 3]); ***** error iwishrnd () ***** error iwishrnd (1) ***** error iwishrnd ([-3 1; 1 3],1) ***** error iwishrnd ([1; 1],1) 8 tests, 8 passed, 0 known failure, 0 skipped [inst/jackknife.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/jackknife.m ***** test ##Example from Quenouille, Table 1 d=[0.18 4.00 1.04 0.85 2.14 1.01 3.01 2.33 1.57 2.19]; jackstat = jackknife ( @(x) 1/mean(x), d ); assert ( 10 / mean(d) - 9 * mean(jackstat), 0.5240, 1e-5 ); ***** demo for k = 1:1000 x=rand(10,1); s(k)=std(x); jackstat=jackknife(@std,x); j(k)=10*std(x) - 9*mean(jackstat); end figure();hist([s',j'], 0:sqrt(1/12)/10:2*sqrt(1/12)) ***** demo for k = 1:1000 x=randn(1,50); y=rand(1,50); jackstat=jackknife(@(x) std(x{1})/std(x{2}),y,x); j(k)=50*std(y)/std(x) - 49*mean(jackstat); v(k)=sumsq((50*std(y)/std(x) - 49*jackstat) - j(k)) / (50 * 49); end t=(j-sqrt(1/12))./sqrt(v); figure();plot(sort(tcdf(t,49)),"-;Almost linear mapping indicates good fit with t-distribution.;") 1 test, 1 passed, 0 known failure, 0 skipped [inst/kmeans.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/kmeans.m ***** error kmeans (rand (3,2), 4); ***** test samples = 4; dims = 3; k = 2; [cls, c, d, z] = kmeans (rand (samples,dims), k, "start", rand (k,dims, 5), "emptyAction", "singleton"); assert (size (cls), [samples, 1]); assert (size (c), [k, dims]); assert (size (d), [k, 1]); assert (size (z), [samples, k]); ***** test samples = 4; dims = 3; k = 2; [cls, c, d, z] = kmeans (rand (samples,dims), [], "start", rand (k,dims, 5), "emptyAction", "singleton"); assert (size (cls), [samples, 1]); assert (size (c), [k, dims]); assert (size (d), [k, 1]); assert (size (z), [samples, k]); ***** test kmeans (rand (4,3), 2, "start", rand (2,3, 5), "replicates", 5, "emptyAction", "singleton"); ***** error kmeans (rand (4,3), 2, "start", rand (2,3, 5), "replicates", 1); ***** error kmeans (rand (4,3), 2, "start", rand (2,2)); ***** test kmeans (rand (3,4), 2, "start", "sample", "emptyAction", "singleton"); ***** test kmeans (rand (3,4), 2, "start", "plus", "emptyAction", "singleton"); ***** test kmeans (rand (3,4), 2, "start", "cluster", "emptyAction", "singleton"); ***** test kmeans (rand (3,4), 2, "start", "uniform", "emptyAction", "singleton"); ***** error kmeans (rand (3,4), 2, "start", "normal"); ***** error kmeans (rand (4,3), 2, "replicates", i); ***** error kmeans (rand (4,3), 2, "replicates", -1); ***** error kmeans (rand (4,3), 2, "replicates", []); ***** error kmeans (rand (4,3), 2, "replicates", [1 2]); ***** error kmeans (rand (4,3), 2, "replicates", "one"); ***** error kmeans (rand (4,3), 2, "MAXITER", i); ***** error kmeans (rand (4,3), 2, "MaxIter", -1); ***** error kmeans (rand (4,3), 2, "maxiter", []); ***** error kmeans (rand (4,3), 2, "maxiter", [1 2]); ***** error kmeans (rand (4,3), 2, "maxiter", "one"); ***** test kmeans (rand (4,3), 2, "distance", "sqeuclidean", "emptyAction", "singleton"); ***** test kmeans (rand (4,3), 2, "distance", "cityblock", "emptyAction", "singleton"); ***** test kmeans (rand (4,3), 2, "distance", "cosine", "emptyAction", "singleton"); ***** test kmeans (rand (4,3), 2, "distance", "correlation", "emptyAction", "singleton"); ***** test kmeans (rand (4,3), 2, "distance", "hamming", "emptyAction", "singleton"); ***** error kmeans (rand (4,3), 2, "distance", "manhattan"); ***** error kmeans ([1 0; 1.1 0], 2, "start", eye(2), "emptyaction", "error"); ***** test kmeans ([1 0; 1.1 0], 2, "start", eye(2), "emptyaction", "singleton"); ***** test [cls, c] = kmeans ([1 0; 2 0], 2, "start", [8,0;0,8], "emptyaction", "drop"); assert (cls, [1; 1]); assert (c, [1.5, 0; NA, NA]); ***** error kmeans ([1 0; 1.1 0], 2, "start", eye(2), "emptyaction", "panic"); ***** demo ## Generate a two-cluster problem C1 = randn (100, 2) + 1; C2 = randn (100, 2) - 1; data = [C1; C2]; ## Perform clustering [idx, centers] = kmeans (data, 2); ## Plot the result figure; plot (data (idx==1, 1), data (idx==1, 2), 'ro'); hold on; plot (data (idx==2, 1), data (idx==2, 2), 'bs'); plot (centers (:, 1), centers (:, 2), 'kv', 'markersize', 10); hold off; 31 tests, 31 passed, 0 known failure, 0 skipped [inst/kruskalwallis.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/kruskalwallis.m ***** demo x = meshgrid (1:6); x = x + normrnd (0, 1, 6, 6); kruskalwallis (x, [], 'off'); ***** demo x = meshgrid (1:6); x = x + normrnd (0, 1, 6, 6); [p, atab] = kruskalwallis(x); ***** demo x = ones (30, 4) .* [-2, 0, 1, 5]; x = x + normrnd (0, 2, 30, 4); group = {"A", "B", "C", "D"}; kruskalwallis (x, group); ***** test data = [1.006, 0.996, 0.998, 1.000, 0.992, 0.993, 1.002, 0.999, 0.994, 1.000, ... 0.998, 1.006, 1.000, 1.002, 0.997, 0.998, 0.996, 1.000, 1.006, 0.988, ... 0.991, 0.987, 0.997, 0.999, 0.995, 0.994, 1.000, 0.999, 0.996, 0.996, ... 1.005, 1.002, 0.994, 1.000, 0.995, 0.994, 0.998, 0.996, 1.002, 0.996, ... 0.998, 0.998, 0.982, 0.990, 1.002, 0.984, 0.996, 0.993, 0.980, 0.996, ... 1.009, 1.013, 1.009, 0.997, 0.988, 1.002, 0.995, 0.998, 0.981, 0.996, ... 0.990, 1.004, 0.996, 1.001, 0.998, 1.000, 1.018, 1.010, 0.996, 1.002, ... 0.998, 1.000, 1.006, 1.000, 1.002, 0.996, 0.998, 0.996, 1.002, 1.006, ... 1.002, 0.998, 0.996, 0.995, 0.996, 1.004, 1.004, 0.998, 0.999, 0.991, ... 0.991, 0.995, 0.984, 0.994, 0.997, 0.997, 0.991, 0.998, 1.004, 0.997]; group = [1:10] .* ones (10,10); group = group(:); [p, tbl] = kruskalwallis (data, group, "off"); assert (p, 0.048229, 1e-6); assert (tbl{2,5}, 17.03124, 1e-5); assert (tbl{2,3}, 9, 0); assert (tbl{4,2}, 82655.5, 1e-16); data = reshape (data, 10, 10); [p, tbl, stats] = kruskalwallis (data, [], "off"); assert (p, 0.048229, 1e-6); assert (tbl{2,5}, 17.03124, 1e-5); assert (tbl{2,3}, 9, 0); assert (tbl{4,2}, 82655.5, 1e-16); means = [51.85, 60.45, 37.6, 51.1, 29.5, 54.25, 64.55, 66.7, 53.65, 35.35]; N = 10 * ones (1, 10); assert (stats.meanranks, means, 1e-6); assert (length (stats.gnames), 10, 0); assert (stats.n, N, 0); 1 test, 1 passed, 0 known failure, 0 skipped [inst/linkage.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/linkage.m ***** shared x, t x = reshape (mod (magic (6),5), [], 3); t = 1e-6; ***** assert (cond (linkage (pdist (x))), 34.119045, t); ***** assert (cond (linkage (pdist (x), "complete")), 21.793345, t); ***** assert (cond (linkage (pdist (x), "average")), 27.045012, t); ***** assert (cond (linkage (pdist (x), "weighted")), 27.412889, t); lastwarn(); # Clear last warning before the test ***** warning linkage (pdist (x), "centroid"); ***** test warning off Octave:clustering assert (cond (linkage (pdist (x), "centroid")), 27.457477, t); warning on Octave:clustering ***** warning linkage (pdist (x), "median"); ***** test warning off Octave:clustering assert (cond (linkage (pdist (x), "median")), 27.683325, t); warning on Octave:clustering ***** assert (cond (linkage (pdist (x), "ward")), 17.195198, t); ***** assert (cond (linkage (x, "ward", "euclidean")), 17.195198, t); ***** assert (cond (linkage (x, "ward", {"euclidean"})), 17.195198, t); ***** assert (cond (linkage (x, "ward", {"minkowski", 2})), 17.195198, t); 12 tests, 12 passed, 0 known failure, 0 skipped [inst/lognstat.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/lognstat.m ***** test mu = 0:0.2:1; sigma = 0.2:0.2:1.2; [m, v] = lognstat (mu, sigma); expected_m = [1.0202, 1.3231, 1.7860, 2.5093, 3.6693, 5.5845]; expected_v = [0.0425, 0.3038, 1.3823, 5.6447, 23.1345, 100.4437]; assert (m, expected_m, 0.001); assert (v, expected_v, 0.001); ***** test sigma = 0.2:0.2:1.2; [m, v] = lognstat (0, sigma); expected_m = [1.0202, 1.0833, 1.1972, 1.3771, 1.6487, 2.0544]; expected_v = [0.0425, 0.2036, 0.6211, 1.7002, 4.6708, 13.5936]; assert (m, expected_m, 0.001); assert (v, expected_v, 0.001); 2 tests, 2 passed, 0 known failure, 0 skipped [inst/mahal.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/mahal.m ***** error mahal () ***** error mahal (1, 2, 3) ***** error mahal ("A", "B") ***** error mahal ([1, 2], ["A", "B"]) ***** error mahal (ones (2, 2, 2)) ***** error mahal (ones (2, 2), ones (2, 2, 2)) ***** error mahal (ones (2, 2), ones (2, 3)) ***** test X = [1 0; 0 1; 1 1; 0 0]; assert (mahal (X, X), [1.5; 1.5; 1.5; 1.5], 10*eps) assert (mahal (X, X+1), [7.5; 7.5; 1.5; 13.5], 10*eps) ***** assert (mahal ([true; true], [false; true]), [0.5; 0.5], eps) 9 tests, 9 passed, 0 known failure, 0 skipped [inst/mhsample.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/mhsample.m ***** demo ## Define function to sample d = 2; mu = [-1; 2]; Sigma = rand (d); Sigma = (Sigma + Sigma'); Sigma += eye (d) * abs (eigs (Sigma, 1, "sa")) * 1.1; pdf = @(x)(2*pi)^(-d/2)*det(Sigma)^-.5*exp(-.5*sum((x.'-mu).*(Sigma\(x.'-mu)),1)); ## Inputs start = ones (1, 2); nsamples = 500; sym = true; K = 500; m = 10; proprnd = @(x) (rand (size (x)) - .5) * 3 + x; [smpl, accept] = mhsample (start, nsamples, "pdf", pdf, "proprnd", proprnd, ... "symmetric", sym, "burnin", K, "thin", m); figure; hold on; plot (smpl(:, 1), smpl(:, 2), 'x'); [x, y] = meshgrid (linspace (-6, 4), linspace(-3, 7)); z = reshape (pdf ([x(:), y(:)]), size(x)); mesh (x, y, z, "facecolor", "None"); ## Using sample points to find the volume of half a sphere with radius of .5 f = @(x) ((.25-(x(:,1)+1).^2-(x(:,2)-2).^2).^.5.*(((x(:,1)+1).^2+(x(:,2)-2).^2)<.25)).'; int = mean (f (smpl) ./ pdf (smpl)); errest = std (f (smpl) ./ pdf (smpl)) / nsamples ^ .5; trueerr = abs (2 / 3 * pi * .25 ^ (3 / 2) - int); printf ("Monte Carlo integral estimate int f(x) dx = %f\n", int); printf ("Monte Carlo integral error estimate %f\n", errest); printf ("The actual error %f\n", trueerr); mesh (x, y, reshape (f([x(:), y(:)]), size(x)), "facecolor", "None"); ***** demo ## Integrate truncated normal distribution to find normilization constant pdf = @(x) exp (-.5*x.^2)/(pi^.5*2^.5); nsamples = 1e3; proprnd = @(x) (rand (size (x)) - .5) * 3 + x; [smpl, accept] = mhsample (1, nsamples, "pdf", pdf, "proprnd", proprnd, ... "symmetric", true, "thin", 4); f = @(x) exp(-.5 * x .^ 2) .* (x >= -2 & x <= 2); x = linspace (-3, 3, 1000); area(x, f(x)); xlabel ('x'); ylabel ('f(x)'); int = mean (f (smpl) ./ pdf (smpl)); errest = std (f (smpl) ./ pdf (smpl)) / nsamples^ .5; trueerr = abs (erf (2 ^ .5) * 2 ^ .5 * pi ^ .5 - int); printf ("Monte Carlo integral estimate int f(x) dx = %f\n", int); printf ("Monte Carlo integral error estimate %f\n", errest); printf ("The actual error %f\n", trueerr); ***** test nchain = 1e4; start = rand (nchain, 1); nsamples = 1e3; pdf = @(x) exp (-.5*(x-1).^2)/(2*pi)^.5; proppdf = @(x, y) 1/3; proprnd = @(x) 3 * (rand (size (x)) - .5) + x; [smpl, accept] = mhsample (start, nsamples, "pdf", pdf, "proppdf", proppdf, ... "proprnd", proprnd, "thin", 2, "nchain", nchain, ... "burnin", 0); assert (mean (mean (smpl, 1), 3), 1, .01); assert (mean (var (smpl, 1), 3), 1, .01) ***** error mhsample (); ***** error mhsample (1); ***** error mhsample (1, 1); ***** error mhsample (1, 1, "pdf", @(x)x); ***** error mhsample (1, 1, "pdf", @(x)x, "proprnd", @(x)x+rand(size(x))); 6 tests, 6 passed, 0 known failure, 0 skipped [inst/mnpdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/mnpdf.m ***** test x = [1, 4, 2]; p = [0.2, 0.5, 0.3]; y = mnpdf (x, p); assert (y, 0.11812, 0.001); ***** test x = [1, 4, 2; 1, 0, 9]; p = [0.2, 0.5, 0.3; 0.1, 0.1, 0.8]; y = mnpdf (x, p); assert (y, [0.11812; 0.13422], 0.001); 2 tests, 2 passed, 0 known failure, 0 skipped [inst/mnrnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/mnrnd.m ***** test n = 10; p = [0.2, 0.5, 0.3]; x = mnrnd (n, p); assert (size (x), size (p)); assert (all (x >= 0)); assert (all (round (x) == x)); assert (sum (x) == n); ***** test n = 10 * ones (3, 1); p = [0.2, 0.5, 0.3]; x = mnrnd (n, p); assert (size (x), [length(n), length(p)]); assert (all (x >= 0)); assert (all (round (x) == x)); assert (all (sum (x, 2) == n)); ***** test n = (1:2)'; p = [0.2, 0.5, 0.3; 0.1, 0.1, 0.8]; x = mnrnd (n, p); assert (size (x), size (p)); assert (all (x >= 0)); assert (all (round (x) == x)); assert (all (sum (x, 2) == n)); 3 tests, 3 passed, 0 known failure, 0 skipped [inst/mvnpdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/mvnpdf.m ***** demo mu = [0, 0]; sigma = [1, 0.1; 0.1, 0.5]; [X, Y] = meshgrid (linspace (-3, 3, 25)); XY = [X(:), Y(:)]; Z = mvnpdf (XY, mu, sigma); mesh (X, Y, reshape (Z, size (X))); colormap jet ***** test mu = [1,-1]; sigma = [.9 .4; .4 .3]; x = [ 0.5 -1.2; -0.5 -1.4; 0 -1.5]; p = [ 0.41680003660313; 0.10278162359708; 0.27187267524566 ]; q = mvnpdf (x, mu, sigma); assert (p, q, 10*eps); 1 test, 1 passed, 0 known failure, 0 skipped [inst/mvnrnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/mvnrnd.m ***** shared m, n, C, rho m = 10; n = 3; rho = 0.4; C = rho*ones(n, n) + (1 - rho)*eye(n); ***** assert(size(mvnrnd(0, C, m)), [m n]) ***** assert(size(mvnrnd(zeros(1, n), C, m)), [m n]) ***** assert(size(mvnrnd(zeros(n, 1), C, m)), [m n]) ***** assert(size(mvnrnd(zeros(m, n), C, m)), [m n]) ***** assert(size(mvnrnd(zeros(m, n), C)), [m n]) ***** assert(size(mvnrnd(zeros(1, n), C)), [1 n]) ***** assert(size(mvnrnd(zeros(n, 1), C)), [1 n]) ***** error(mvnrnd(zeros(m+1, n), C, m)) ***** error(mvnrnd(zeros(1, n+1), C, m)) ***** error(mvnrnd(zeros(n+1, 1), C, m)) ***** error(mvnrnd(zeros(m, n), eye(n+1), m)) ***** error(mvnrnd(zeros(m, n), eye(n+1, n), m)) 12 tests, 12 passed, 0 known failure, 0 skipped [inst/mvtpdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/mvtpdf.m ***** assert (mvtpdf ([0 0], eye(2), 1), 0.1591549, 1E-7) #dmvt(x = c(0,0), sigma = diag(2), log = FALSE) ***** assert (mvtpdf ([1 0], [1 0.5; 0.5 1], 2), 0.06615947, 1E-7) #dmvt(x = c(1,0), sigma = matrix(c(1, 0.5, 0.5, 1), nrow=2, ncol=2), df = 2, log = FALSE) ***** assert (mvtpdf ([1 0.4 0; 1.2 0.5 0.5; 1.4 0.6 1], [1 0.5 0.3; 0.5 1 0.6; 0.3 0.6 1], [5 6 7]), [0.04713313 0.03722421 0.02069011]', 1E-7) #dmvt(x = c(1,0.4,0), sigma = matrix(c(1, 0.5, 0.3, 0.5, 1, 0.6, 0.3, 0.6, 1), nrow=3, ncol=3), df = 5, log = FALSE); dmvt(x = c(1.2,0.5,0.5), sigma = matrix(c(1, 0.5, 0.3, 0.5, 1, 0.6, 0.3, 0.6, 1), nrow=3, ncol=3), df = 6, log = FALSE); dmvt(x = c(1.4,0.6,1), sigma = matrix(c(1, 0.5, 0.3, 0.5, 1, 0.6, 0.3, 0.6, 1), nrow=3, ncol=3), df = 7, log = FALSE) 3 tests, 3 passed, 0 known failure, 0 skipped [inst/mvtrnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/mvtrnd.m ***** test sigma = [1, 0.5; 0.5, 1]; nu = 3; n = 10; x = mvtrnd (sigma, nu, n); assert (size (x), [10, 2]); ***** test sigma = [1, 0.5; 0.5, 1]; nu = [2; 3]; n = 2; x = mvtrnd (sigma, nu, 2); assert (size (x), [2, 2]); 2 tests, 2 passed, 0 known failure, 0 skipped [inst/nakacdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/nakacdf.m ***** shared x,y x = [-1, 0, 1, 2, Inf]; y = [0, 0, 0.63212055882855778, 0.98168436111126578, 1]; ***** assert (nakacdf (x, ones (1,5), ones (1,5)), y, eps) ***** assert (nakacdf (x, 1, 1), y, eps) ***** assert (nakacdf (x, [1, 1, NaN, 1, 1], 1), [y(1:2), NaN, y(4:5)]) ***** assert (nakacdf (x, 1, [1, 1, NaN, 1, 1]), [y(1:2), NaN, y(4:5)]) ***** assert (nakacdf ([x, NaN], 1, 1), [y, NaN], eps) ***** assert (nakacdf (single ([x, NaN]), 1, 1), single ([y, NaN]), eps('single')) ***** assert (nakacdf ([x, NaN], single (1), 1), single ([y, NaN]), eps('single')) ***** assert (nakacdf ([x, NaN], 1, single (1)), single ([y, NaN]), eps('single')) ***** error nakacdf () ***** error nakacdf (1) ***** error nakacdf (1,2) ***** error nakacdf (1,2,3,4) ***** error nakacdf (ones (3), ones (2), ones(2)) ***** error nakacdf (ones (2), ones (3), ones(2)) ***** error nakacdf (ones (2), ones (2), ones(3)) ***** error nakacdf (i, 2, 2) ***** error nakacdf (2, i, 2) ***** error nakacdf (2, 2, i) 18 tests, 18 passed, 0 known failure, 0 skipped [inst/nakainv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/nakainv.m ***** shared x,y x = [-Inf, -1, 0, 1/2, 1, 2, Inf]; y = [NaN, NaN, 0, 0.83255461115769769, Inf, NaN, NaN]; ***** assert (nakainv (x, ones (1,7), ones (1,7)), y, eps) ***** assert (nakainv (x, 1, 1), y, eps) ***** assert (nakainv (x, [1, 1, 1, NaN, 1, 1, 1], 1), [y(1:3), NaN, y(5:7)], eps) ***** assert (nakainv (x, 1, [1, 1, 1, NaN, 1, 1, 1]), [y(1:3), NaN, y(5:7)], eps) ***** assert (nakainv ([x, NaN], 1, 1), [y, NaN], eps) ***** assert (nakainv (single ([x, NaN]), 1, 1), single ([y, NaN])) ***** assert (nakainv ([x, NaN], single (1), 1), single ([y, NaN])) ***** assert (nakainv ([x, NaN], 1, single (1)), single ([y, NaN])) ***** error nakainv () ***** error nakainv (1) ***** error nakainv (1,2) ***** error nakainv (1,2,3,4) ***** error nakainv (ones (3), ones (2), ones(2)) ***** error nakainv (ones (2), ones (3), ones(2)) ***** error nakainv (ones (2), ones (2), ones(3)) ***** error nakainv (i, 2, 2) ***** error nakainv (2, i, 2) ***** error nakainv (2, 2, i) 18 tests, 18 passed, 0 known failure, 0 skipped [inst/nakapdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/nakapdf.m ***** shared x,y x = [-1, 0, 1, 2, Inf]; y = [0, 0, 0.73575888234288467, 0.073262555554936715, 0]; ***** assert (nakapdf (x, ones (1,5), ones (1,5)), y, eps) ***** assert (nakapdf (x, 1, 1), y, eps) ***** assert (nakapdf (x, [1, 1, NaN, 1, 1], 1), [y(1:2), NaN, y(4:5)], eps) ***** assert (nakapdf (x, 1, [1, 1, NaN, 1, 1]), [y(1:2), NaN, y(4:5)], eps) ***** assert (nakapdf ([x, NaN], 1, 1), [y, NaN], eps) ***** assert (nakapdf (single ([x, NaN]), 1, 1), single ([y, NaN])) ***** assert (nakapdf ([x, NaN], single (1), 1), single ([y, NaN])) ***** assert (nakapdf ([x, NaN], 1, single (1)), single ([y, NaN])) ***** error nakapdf () ***** error nakapdf (1) ***** error nakapdf (1,2) ***** error nakapdf (1,2,3,4) ***** error nakapdf (ones (3), ones (2), ones(2)) ***** error nakapdf (ones (2), ones (3), ones(2)) ***** error nakapdf (ones (2), ones (2), ones(3)) ***** error nakapdf (i, 2, 2) ***** error nakapdf (2, i, 2) ***** error nakapdf (2, 2, i) 18 tests, 18 passed, 0 known failure, 0 skipped [inst/nakarnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/nakarnd.m ***** assert (size (nakarnd (1,1)), [1, 1]) ***** assert (size (nakarnd (ones (2,1), 1)), [2, 1]) ***** assert (size (nakarnd (ones (2,2), 1)), [2, 2]) ***** assert (size (nakarnd (1, ones (2,1))), [2, 1]) ***** assert (size (nakarnd (1, ones (2,2))), [2, 2]) ***** assert (size (nakarnd (1,1, 3)), [3, 3]) ***** assert (size (nakarnd (1,1, [4 1])), [4, 1]) ***** assert (size (nakarnd (1,1, 4, 1)), [4, 1]) ***** assert (class (nakarnd (1,1)), "double") ***** assert (class (nakarnd (single (1),1)), "single") ***** assert (class (nakarnd (single ([1 1]),1)), "single") ***** assert (class (nakarnd (1,single (1))), "single") ***** assert (class (nakarnd (1,single ([1 1]))), "single") ***** error nakarnd () ***** error nakarnd (1) ***** error nakarnd (zeros (3), ones (2)) ***** error nakarnd (zeros (2), ones (3)) ***** error nakarnd (i, 2) ***** error nakarnd (1, i) ***** error nakarnd (1,2, -1) ***** error nakarnd (1,2, ones (2)) ***** error nakarnd (1, 2, [2 -1 2]) ***** error nakarnd (1,2, 1, ones (2)) ***** error nakarnd (1,2, 1, -1) ***** error nakarnd (ones (2,2), 2, 3) ***** error nakarnd (ones (2,2), 2, [3, 2]) ***** error nakarnd (ones (2,2), 2, 2, 3) 27 tests, 27 passed, 0 known failure, 0 skipped [inst/nansum.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/nansum.m ***** assert (nansum ([2 4 NaN 7]), 13) ***** assert (nansum ([2 4 NaN Inf]), Inf) ***** assert (nansum ([1 NaN 3; NaN 5 6; 7 8 NaN]), [8 13 9]) ***** assert (nansum ([1 NaN 3; NaN 5 6; 7 8 NaN], 2), [4; 11; 15]) ***** assert (nansum (single ([1 NaN 3; NaN 5 6; 7 8 NaN])), single ([8 13 9])) ***** assert (nansum (single ([1 NaN 3; NaN 5 6; 7 8 NaN]), "double"), [8 13 9]) ***** assert (nansum (uint8 ([2 4 1 7])), 14) ***** assert (nansum (uint8 ([2 4 1 7]), "native"), uint8 (14)) ***** assert (nansum (uint8 ([2 4 1 7])), 14) 9 tests, 9 passed, 0 known failure, 0 skipped [inst/nanvar.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/nanvar.m ***** shared x x = [1 2 nan 3 4 5]; ***** assert (nanvar (x), var (x(! isnan (x))), 10*eps) 1 test, 1 passed, 0 known failure, 0 skipped [inst/nbinstat.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/nbinstat.m ***** test n = 1:4; p = 0.2:0.2:0.8; [m, v] = nbinstat (n, p); expected_m = [ 4.0000, 3.0000, 2.0000, 1.0000]; expected_v = [20.0000, 7.5000, 3.3333, 1.2500]; assert (m, expected_m, 0.001); assert (v, expected_v, 0.001); ***** test n = 1:4; [m, v] = nbinstat (n, 0.5); expected_m = [1, 2, 3, 4]; expected_v = [2, 4, 6, 8]; assert (m, expected_m, 0.001); assert (v, expected_v, 0.001); 2 tests, 2 passed, 0 known failure, 0 skipped [inst/ncx2pdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/ncx2pdf.m ***** assert (ncx2pdf (3, 4, 0), chi2pdf(3, 4), eps) ***** assert (ncx2pdf (5, 3, 1), 0.091858459565020, 1E-15) #compared with Matlab's values ***** assert (ncx2pdf (4, 5, 2), 0.109411958414115, 1E-15) 3 tests, 3 passed, 0 known failure, 0 skipped [inst/normalise_distribution.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/normalise_distribution.m ***** test v = normalise_distribution ( [ 1 2 3 ], [], 1 ); assert ( v, [ 0 0 0 ] ) ***** test v = normalise_distribution ( [ 1 2 3 ], [], 2 ); assert ( v, norminv ( [ 1 3 5 ] / 6 ), 3 * eps ) ***** test v = normalise_distribution ( [ 1 2 3 ]', [], 2 ); assert ( v, [ 0 0 0 ]' ) ***** test v = normalise_distribution ( [ 1 2 3 ]' , [], 1 ); assert ( v, norminv ( [ 1 3 5 ]' / 6 ), 3 * eps ) ***** test v = normalise_distribution ( [ 1 1 2 2 3 3 ], [], 2 ); assert ( v, norminv ( [ 3 3 7 7 11 11 ] / 12 ), 3 * eps ) ***** test v = normalise_distribution ( [ 1 1 2 2 3 3 ]', [], 1 ); assert ( v, norminv ( [ 3 3 7 7 11 11 ]' / 12 ), 3 * eps ) ***** test A = randn ( 10 ); N = normalise_distribution ( A, @normcdf ); assert ( A, N, 1000 * eps ) ***** xtest A = exprnd ( 1, 100 ); N = normalise_distribution ( A, @ ( x ) ( expcdf ( x, 1 ) ) ); assert ( mean ( vec ( N ) ), 0, 0.1 ) assert ( std ( vec ( N ) ), 1, 0.1 ) ***** xtest A = rand (1000,1); N = normalise_distribution ( A, "unifcdf" ); assert ( mean ( vec ( N ) ), 0, 0.1 ) assert ( std ( vec ( N ) ), 1, 0.1 ) ***** xtest A = [rand(1000,1), randn( 1000, 1)]; N = normalise_distribution ( A, { "unifcdf", "normcdf" } ); assert ( mean ( N ), [ 0, 0 ], 0.1 ) assert ( std ( N ), [ 1, 1 ], 0.1 ) ***** xtest A = [rand(1000,1), randn( 1000, 1), exprnd( 1, 1000, 1 )]'; N = normalise_distribution ( A, { @unifcdf; @normcdf; @( x )( expcdf ( x, 1 ) ) }, 2 ); assert ( mean ( N, 2 ), [ 0, 0, 0 ]', 0.1 ) assert ( std ( N, [], 2 ), [ 1, 1, 1 ]', 0.1 ) ***** xtest A = exprnd ( 1, 1000, 9 ); A ( 300 : 500, 4:6 ) = 17; N = normalise_distribution ( A ); assert ( mean ( N ), [ 0 0 0 0.38 0.38 0.38 0 0 0 ], 0.1 ); assert ( var ( N ), [ 1 1 1 2.59 2.59 2.59 1 1 1 ], 0.1 ); ***** test fail ("normalise_distribution( zeros ( 3, 4 ), { @unifcdf; @normcdf; @( x )( expcdf ( x, 1 ) ) } )", ... "Number of distributions does not match data size!"); 13 tests, 13 passed, 0 known failure, 0 skipped [inst/normstat.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/normstat.m ***** test m = 1:6; s = 0.2:0.2:1.2; [mn, v] = normstat (m, s); expected_v = [0.0400, 0.1600, 0.3600, 0.6400, 1.0000, 1.4400]; assert (mn, m); assert (v, expected_v, 0.001); ***** test s = 0.2:0.2:1.2; [mn, v] = normstat (0, s); expected_mn = [0, 0, 0, 0, 0, 0]; expected_v = [0.0400, 0.1600, 0.3600, 0.6400, 1.0000, 1.4400]; assert (mn, expected_mn, 0.001); assert (v, expected_v, 0.001); 2 tests, 2 passed, 0 known failure, 0 skipped [inst/optimalleaforder.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/optimalleaforder.m ***** error optimalleaforder () ***** error optimalleaforder (1) ***** error optimalleaforder (ones (2, 2), 1) ***** error optimalleaforder ([1 2 3], [1 2; 3 4], "criteria", 5) ***** error optimalleaforder ([1 2 1], [1 2 3]) ***** error optimalleaforder ([1 2 1], 1, "xxx", "xxx") ***** error optimalleaforder ([1 2 1], 1, "Transformation", "xxx") ***** demo X = randn (10, 2); D = pdist (X); tree = linkage(D, 'average'); optimalleaforder (tree, D, 'Transformation', 'linear') 7 tests, 7 passed, 0 known failure, 0 skipped [inst/pca.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/pca.m ***** shared COEFF,SCORE,latent,tsquare,m,x,R,V,lambda,i,S,F ***** test x=[7 4 3 4 1 8 6 3 5 8 6 1 8 5 7 7 2 9 5 3 3 9 5 8 7 4 5 8 2 2]; R = corrcoef (x); [V, lambda] = eig (R); [~, i] = sort(diag(lambda), "descend"); #arrange largest PC first S = V(:, i) * diag(sqrt(diag(lambda)(i))); ***** assert(diag(S(:, 1:2)*S(:, 1:2)'), [0.8662; 0.8420; 0.9876], 1E-4); #contribution of first 2 PCs to each original variable B = V(:, i) * diag( 1./ sqrt(diag(lambda)(i))); F = zscore(x)*B; [COEFF,SCORE,latent,tsquare] = pca(zscore(x, 1)); ***** assert(tsquare,sumsq(F, 2),1E4*eps); ***** test x=[1,2,3;2,1,3]'; [COEFF,SCORE,latent,tsquare] = pca(x, "Economy", false); m=[sqrt(2),sqrt(2);sqrt(2),-sqrt(2);-2*sqrt(2),0]/2; m(:,1) = m(:,1)*sign(COEFF(1,1)); m(:,2) = m(:,2)*sign(COEFF(1,2)); ***** assert(COEFF,m(1:2,:),10*eps); ***** assert(SCORE,-m,10*eps); ***** assert(latent,[1.5;.5],10*eps); ***** assert(tsquare,[4;4;4]/3,10*eps); [COEFF,SCORE,latent,tsquare] = pca(x, "Economy", false, "weights", [1 2 1], "variableweights", "variance"); ***** assert(COEFF, [0.632455532033676 -0.632455532033676; 0.741619848709566 0.741619848709566], 10*eps); ***** assert(SCORE, [-0.622019449426284 0.959119380657905; -0.505649896847432 -0.505649896847431; 1.633319243121148 0.052180413036957], 10*eps); ***** assert(latent, [1.783001790889027; 0.716998209110974], 10*eps); ***** xtest assert(tsquare, [1.5; 0.5; 1.5], 10*eps); #currently, [4; 2; 4]/3 is actually returned; see comments above !!!!! known failure ASSERT errors for: assert (tsquare,[1.5; 0.5; 1.5],10 * eps) Location | Observed | Expected | Reason (1) 1.3333 1.5 Abs err 0.16667 exceeds tol 2.2204e-15 by 0.2 (2) 0.66667 0.5 Abs err 0.16667 exceeds tol 2.2204e-15 by 0.2 (3) 1.3333 1.5 Abs err 0.16667 exceeds tol 2.2204e-15 by 0.2 ***** test x=x'; [COEFF,SCORE,latent,tsquare] = pca(x, "Economy", false); m=[sqrt(2),sqrt(2),0;-sqrt(2),sqrt(2),0;0,0,2]/2; m(:,1) = m(:,1)*sign(COEFF(1,1)); m(:,2) = m(:,2)*sign(COEFF(1,2)); m(:,3) = m(:,3)*sign(COEFF(3,3)); ***** assert(COEFF,m,10*eps); ***** assert(SCORE(:,1),-m(1:2,1),10*eps); ***** assert(SCORE(:,2:3),zeros(2),10*eps); ***** assert(latent,[1;0;0],10*eps); ***** assert(tsquare,[0.5;0.5],10*eps) ***** test [COEFF,SCORE,latent,tsquare] = pca(x); ***** assert(COEFF,m(:, 1),10*eps); ***** assert(SCORE,-m(1:2,1),10*eps); ***** assert(latent,[1],10*eps); ***** assert(tsquare,[0.5;0.5],10*eps) ***** error pca([1 2; 3 4], "Algorithm", "xxx") ***** error <'centered' requires a boolean value> pca([1 2; 3 4], "Centered", "xxx") ***** error pca([1 2; 3 4], "NumComponents", -4) ***** error pca([1 2; 3 4], "Rows", 1) ***** error pca([1 2; 3 4], "Weights", [1 2 3]) ***** error pca([1 2; 3 4], "Weights", [-1 2]) ***** error pca([1 2; 3 4], "VariableWeights", [-1 2]) ***** error pca([1 2; 3 4], "VariableWeights", "xxx") ***** error pca([1 2; 3 4], "XXX", 1) 32 tests, 31 passed, 1 known failure, 0 skipped [inst/pdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/pdf.m ***** test assert(pdf ('norm', 1, 0, 1), normpdf (1, 0, 1)) 1 test, 1 passed, 0 known failure, 0 skipped [inst/pdist.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/pdist.m ***** shared xy, t, eucl xy = [0 1; 0 2; 7 6; 5 6]; t = 1e-3; eucl = @(v,m) sqrt(sumsq(repmat(v,rows(m),1)-m,2)); ***** assert(pdist(xy), [1.000 8.602 7.071 8.062 6.403 2.000],t); ***** assert(pdist(xy,eucl), [1.000 8.602 7.071 8.062 6.403 2.000],t); ***** assert(pdist(xy,"euclidean"), [1.000 8.602 7.071 8.062 6.403 2.000],t); ***** assert(pdist(xy,"seuclidean"), [0.380 2.735 2.363 2.486 2.070 0.561],t); ***** assert(pdist(xy,"mahalanobis"),[1.384 1.967 2.446 2.384 1.535 2.045],t); ***** assert(pdist(xy,"cityblock"), [1.000 12.00 10.00 11.00 9.000 2.000],t); ***** assert(pdist(xy,"minkowski"), [1.000 8.602 7.071 8.062 6.403 2.000],t); ***** assert(pdist(xy,"minkowski",3),[1.000 7.763 6.299 7.410 5.738 2.000],t); ***** assert(pdist(xy,"cosine"), [0.000 0.349 0.231 0.349 0.231 0.013],t); ***** assert(pdist(xy,"correlation"),[0.000 2.000 0.000 2.000 0.000 2.000],t); ***** assert(pdist(xy,"spearman"), [0.000 2.000 0.000 2.000 0.000 2.000],t); ***** assert(pdist(xy,"hamming"), [0.500 1.000 1.000 1.000 1.000 0.500],t); ***** assert(pdist(xy,"jaccard"), [1.000 1.000 1.000 1.000 1.000 0.500],t); ***** assert(pdist(xy,"chebychev"), [1.000 7.000 5.000 7.000 5.000 2.000],t); 14 tests, 14 passed, 0 known failure, 0 skipped [inst/pdist2.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/pdist2.m ***** function dist = euclidean_distance (x, y) [m, p] = size (X); [n, p] = size (Y); D = zeros (m, n); for i = 1:n d = X - repmat (Y(i,:), [m 1]); D(:,i) = sumsq (d, 2); endfor ***** endfunction ***** test x = [1 1 1; 2 2 2; 3 3 3]; y = [0 0 0; 1 2 3; 0 2 4; 4 7 1]; d = sqrt([ 3 5 11 45 12 2 8 30 27 5 11 21]); assert (pdist2 (x, y), d) 1 test, 1 passed, 0 known failure, 0 skipped [inst/poisstat.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/poisstat.m ***** test lambda = 1 ./ (1:6); [m, v] = poisstat (lambda); assert (m, lambda); assert (v, lambda); 1 test, 1 passed, 0 known failure, 0 skipped [inst/princomp.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/princomp.m ***** shared COEFF,SCORE,latent,tsquare,m,x,R,V,lambda,i,S,F ***** test x=[7 4 3 4 1 8 6 3 5 8 6 1 8 5 7 7 2 9 5 3 3 9 5 8 7 4 5 8 2 2]; R = corrcoef (x); [V, lambda] = eig (R); [~, i] = sort(diag(lambda), "descend"); #arrange largest PC first S = V(:, i) * diag(sqrt(diag(lambda)(i))); ***** assert(diag(S(:, 1:2)*S(:, 1:2)'), [0.8662; 0.8420; 0.9876], 1E-4); #contribution of first 2 PCs to each original variable B = V(:, i) * diag( 1./ sqrt(diag(lambda)(i))); F = zscore(x)*B; [COEFF,SCORE,latent,tsquare] = princomp(zscore(x, 1)); ***** assert(tsquare,sumsq(F, 2),1E4*eps); ***** test x=[1,2,3;2,1,3]'; [COEFF,SCORE,latent,tsquare] = princomp(x); m=[sqrt(2),sqrt(2);sqrt(2),-sqrt(2);-2*sqrt(2),0]/2; m(:,1) = m(:,1)*sign(COEFF(1,1)); m(:,2) = m(:,2)*sign(COEFF(1,2)); ***** assert(COEFF,m(1:2,:),10*eps); ***** assert(SCORE,-m,10*eps); ***** assert(latent,[1.5;.5],10*eps); ***** assert(tsquare,[4;4;4]/3,10*eps); ***** test x=x'; [COEFF,SCORE,latent,tsquare] = princomp(x); m=[sqrt(2),sqrt(2),0;-sqrt(2),sqrt(2),0;0,0,2]/2; m(:,1) = m(:,1)*sign(COEFF(1,1)); m(:,2) = m(:,2)*sign(COEFF(1,2)); m(:,3) = m(:,3)*sign(COEFF(3,3)); ***** assert(COEFF,m,10*eps); ***** assert(SCORE(:,1),-m(1:2,1),10*eps); ***** assert(SCORE(:,2:3),zeros(2),10*eps); ***** assert(latent,[1;0;0],10*eps); ***** assert(tsquare,[0.5;0.5],10*eps) ***** test [COEFF,SCORE,latent,tsquare] = princomp(x, "econ"); ***** assert(COEFF,m(:, 1),10*eps); ***** assert(SCORE,-m(1:2,1),10*eps); ***** assert(latent,[1],10*eps); ***** assert(tsquare,[0.5;0.5],10*eps) 19 tests, 19 passed, 0 known failure, 0 skipped [inst/randsample.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/randsample.m ***** test n = 20; k = 5; x = randsample(n, k); assert (size(x), [1 k]); x = randsample(n, k, true); assert (size(x), [1 k]); x = randsample(n, k, false); assert (size(x), [1 k]); x = randsample(n, k, true, ones(n, 1)); assert (size(x), [1 k]); x = randsample(1:n, k); assert (size(x), [1 k]); x = randsample(1:n, k, true); assert (size(x), [1 k]); x = randsample(1:n, k, false); assert (size(x), [1 k]); x = randsample(1:n, k, true, ones(n, 1)); assert (size(x), [1 k]); x = randsample((1:n)', k); assert (size(x), [k 1]); x = randsample((1:n)', k, true); assert (size(x), [k 1]); x = randsample((1:n)', k, false); assert (size(x), [k 1]); x = randsample((1:n)', k, true, ones(n, 1)); assert (size(x), [k 1]); n = 10; k = 100; x = randsample(n, k, true, 1:n); assert (size(x), [1 k]); x = randsample((1:n)', k, true); assert (size(x), [k 1]); x = randsample(k, k, false, 1:k); assert (size(x), [1 k]); 1 test, 1 passed, 0 known failure, 0 skipped [inst/raylcdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/raylcdf.m ***** test x = 0:0.5:2.5; sigma = 1:6; p = raylcdf (x, sigma); expected_p = [0.0000, 0.0308, 0.0540, 0.0679, 0.0769, 0.0831]; assert (p, expected_p, 0.001); ***** test x = 0:0.5:2.5; p = raylcdf (x, 0.5); expected_p = [0.0000, 0.3935, 0.8647, 0.9889, 0.9997, 1.0000]; assert (p, expected_p, 0.001); 2 tests, 2 passed, 0 known failure, 0 skipped [inst/raylinv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/raylinv.m ***** test p = 0:0.1:0.5; sigma = 1:6; x = raylinv (p, sigma); expected_x = [0.0000, 0.9181, 2.0041, 3.3784, 5.0538, 7.0645]; assert (x, expected_x, 0.001); ***** test p = 0:0.1:0.5; x = raylinv (p, 0.5); expected_x = [0.0000, 0.2295, 0.3340, 0.4223, 0.5054, 0.5887]; assert (x, expected_x, 0.001); 2 tests, 2 passed, 0 known failure, 0 skipped [inst/raylpdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/raylpdf.m ***** test x = 0:0.5:2.5; sigma = 1:6; y = raylpdf (x, sigma); expected_y = [0.0000, 0.1212, 0.1051, 0.0874, 0.0738, 0.0637]; assert (y, expected_y, 0.001); ***** test x = 0:0.5:2.5; y = raylpdf (x, 0.5); expected_y = [0.0000, 1.2131, 0.5413, 0.0667, 0.0027, 0.0000]; assert (y, expected_y, 0.001); 2 tests, 2 passed, 0 known failure, 0 skipped [inst/raylrnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/raylrnd.m ***** test sigma = 1:6; x = raylrnd (sigma); assert (size (x), size (sigma)); assert (all (x >= 0)); ***** test sigma = 0.5; sz = [2, 3]; x = raylrnd (sigma, sz); assert (size (x), sz); assert (all (x >= 0)); ***** test sigma = 0.5; r = 2; c = 3; x = raylrnd (sigma, r, c); assert (size (x), [r, c]); assert (all (x >= 0)); 3 tests, 3 passed, 0 known failure, 0 skipped [inst/raylstat.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/raylstat.m ***** test sigma = 1:6; [m, v] = raylstat (sigma); expected_m = [1.2533, 2.5066, 3.7599, 5.0133, 6.2666, 7.5199]; expected_v = [0.4292, 1.7168, 3.8628, 6.8673, 10.7301, 15.4513]; assert (m, expected_m, 0.001); assert (v, expected_v, 0.001); 1 test, 1 passed, 0 known failure, 0 skipped [inst/regress.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/regress.m ***** test % Longley data from the NIST Statistical Reference Dataset Z = [ 60323 83.0 234289 2356 1590 107608 1947 61122 88.5 259426 2325 1456 108632 1948 60171 88.2 258054 3682 1616 109773 1949 61187 89.5 284599 3351 1650 110929 1950 63221 96.2 328975 2099 3099 112075 1951 63639 98.1 346999 1932 3594 113270 1952 64989 99.0 365385 1870 3547 115094 1953 63761 100.0 363112 3578 3350 116219 1954 66019 101.2 397469 2904 3048 117388 1955 67857 104.6 419180 2822 2857 118734 1956 68169 108.4 442769 2936 2798 120445 1957 66513 110.8 444546 4681 2637 121950 1958 68655 112.6 482704 3813 2552 123366 1959 69564 114.2 502601 3931 2514 125368 1960 69331 115.7 518173 4806 2572 127852 1961 70551 116.9 554894 4007 2827 130081 1962 ]; % Results certified by NIST using 500 digit arithmetic % b and standard error in b V = [ -3482258.63459582 890420.383607373 15.0618722713733 84.9149257747669 -0.358191792925910E-01 0.334910077722432E-01 -2.02022980381683 0.488399681651699 -1.03322686717359 0.214274163161675 -0.511041056535807E-01 0.226073200069370 1829.15146461355 455.478499142212 ]; Rsq = 0.995479004577296; F = 330.285339234588; y = Z(:,1); X = [ones(rows(Z),1), Z(:,2:end)]; alpha = 0.05; [b, bint, r, rint, stats] = regress (y, X, alpha); assert(b,V(:,1),3e-6); assert(stats(1),Rsq,1e-12); assert(stats(2),F,3e-8); assert(((bint(:,1)-bint(:,2))/2)/tinv(alpha/2,9),V(:,2),-1.e-5); warning: matrix singular to machine precision, rcond = 3.50566e-20 warning: called from regress at line 134 column 7 __test__ at line 33 column 28 test at line 677 column 11 /tmp/tmp.v7L8UY8G4I at line 798 column 31 1 test, 1 passed, 0 known failure, 0 skipped [inst/runstest.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/runstest.m ***** test data = [-213 -564 -35 -15 141 115 -420 -360 203 -338 -431 194 -220 -513 154 -125 -559 92 -21 -579 -52 99 -543 -175 162 -457 -346 204 -300 -474 164 -107 -572 -8 83 -541 -224 180 -420 -374 201 -236 -531 83 27 -564 -112 131 -507 -254 199 -311 -495 143 -46 -579 -90 136 -472 -338 202 -287 -477 169 -124 -568 17 48 -568 -135 162 -430 -422 172 -74 -577 -13 92 -534 -243 194 -355 -465 156 -81 -578 -64 139 -449 -384 193 -198 -538 110 -44 -577 -6 66 -552 -164 161 -460 -344 205 -281 -504 134 -28 -576 -118 156 -437 -381 200 -220 -540 83 11 -568 -160 172 -414 -408 188 -125 -572 -32 139 -492 -321 205 -262 -504 142 -83 -574 0 48 -571 -106 137 -501 -266 190 -391 -406 194 -186 -553 83 -13 -577 -49 103 -515 -280 201 300 -506 131 -45 -578 -80 138 -462 -361 201 -211 -554 32 74 -533 -235 187 -372 -442 182 -147 -566 25 68 -535 -244 194 -351 -463 174 -125 -570 15 72 -550 -190 172 -424 -385 198 -218 -536 96]; #NIST beam deflection data, http://www.itl.nist.gov/div898/handbook/eda/section4/eda425.htm [h, p, stats] = runstest (data); expected_h = true; expected_p = 0.0070646; expected_z = 2.6938; assert (h, expected_h); assert (p, expected_p, 1E-6); assert (stats.z, expected_z, 1E-4); 1 test, 1 passed, 0 known failure, 0 skipped [inst/sigma_pts.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/sigma_pts.m ***** demo K = [1 0.5; 0.5 1]; # covaraince matrix # calculate and build associated ellipse [R,S,~] = svd (K); theta = atan2 (R(2,1), R(1,1)); v = sqrt (diag (S)); v = v .* [cos(theta) sin(theta); -sin(theta) cos(theta)]; t = linspace (0, 2*pi, 100).'; xe = v(1,1) * cos (t) + v(2,1) * sin (t); ye = v(1,2) * cos (t) + v(2,2) * sin (t); figure(1); clf; hold on # Plot ellipse and axes line ([0 0; v(:,1).'],[0 0; v(:,2).']) plot (xe,ye,'-r'); col = 'rgb'; l = [-1.8 -1 1.5]; for li = 1:3 p = sigma_pts (2, [], K, l(li)); tmp = plot (p(2:end,1), p(2:end,2), ['x' col(li)], ... p(1,1), p(1,2), ['o' col(li)]); h(li) = tmp(1); endfor hold off axis image legend (h, arrayfun (@(x) sprintf ("l:%.2g", x), l, "unif", 0)); ***** test p = sigma_pts (5); assert (mean (p), zeros(1,5), sqrt(eps)); assert (cov (p), eye(5), sqrt(eps)); ***** test m = randn(1, 5); p = sigma_pts (5, m); assert (mean (p), m, sqrt(eps)); assert (cov (p), eye(5), sqrt(eps)); ***** test x = linspace (0,1,5); K = exp (- (x.' - x).^2/ 0.5); p = sigma_pts (5, [], K); assert (mean (p), zeros(1,5), sqrt(eps)); assert (cov (p), K, sqrt(eps)); ***** error sigma_pts(2,1); ***** error sigma_pts(2,[],1); ***** error sigma_pts(2,1,1); ***** error sigma_pts(2,[0.5 0.5],[-1 0; 0 0]); 7 tests, 7 passed, 0 known failure, 0 skipped [inst/silhouette.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/silhouette.m ***** error silhouette (); ***** error silhouette ([1 2; 1 1]); ***** error silhouette ([1 2; 1 1], [1 2 3]'); ***** error silhouette ([1 2; 1 1], [1 2]', "xxx"); ***** demo load fisheriris; X = meas(:,3:4); cidcs = kmeans (X, 3, "Replicates", 5); silhouette (X, cidcs); y_labels(cidcs([1 51 101])) = unique (species); set (gca, "yticklabel", y_labels); title ("Fisher's iris data"); 4 tests, 4 passed, 0 known failure, 0 skipped [inst/slicesample.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/slicesample.m ***** demo ## Define function to sample d = 2; mu = [-1; 2]; Sigma = rand (d); Sigma = (Sigma + Sigma'); Sigma += eye (d)*abs (eigs (Sigma, 1, "sa")) * 1.1; pdf = @(x)(2*pi)^(-d/2)*det(Sigma)^-.5*exp(-.5*sum((x.'-mu).*(Sigma\(x.'-mu)),1)); ##Inputs start = ones (1,2); nsamples = 500; K = 500; m = 10; [smpl, accept]=slicesample (start, nsamples, "pdf", pdf, "burnin", K, "thin", m, "width", [20, 30]); figure; hold on; plot (smpl(:,1), smpl(:,2), 'x'); [x, y] = meshgrid (linspace (-6,4), linspace(-3,7)); z = reshape (pdf ([x(:), y(:)]), size(x)); mesh (x, y, z, "facecolor", "None"); ## Using sample points to find the volume of half a sphere with radius of .5 f = @(x) ((.25-(x(:,1)+1).^2-(x(:,2)-2).^2).^.5.*(((x(:,1)+1).^2+(x(:,2)-2).^2)<.25)).'; int = mean (f (smpl) ./ pdf (smpl)); errest = std (f (smpl) ./ pdf (smpl)) / nsamples^.5; trueerr = abs (2/3*pi*.25^(3/2)-int); fprintf("Monte Carlo integral estimate int f(x) dx = %f\n", int); fprintf("Monte Carlo integral error estimate %f\n", errest); fprintf("The actual error %f\n", trueerr); mesh (x,y,reshape (f([x(:), y(:)]), size(x)), "facecolor", "None"); ***** demo ##Integrate truncated normal distribution to find normilization constant pdf = @(x) exp (-.5*x.^2)/(pi^.5*2^.5); nsamples = 1e3; [smpl,accept] = slicesample (1, nsamples, "pdf", pdf, "thin", 4); f = @(x) exp (-.5 * x .^ 2) .* (x >= -2 & x <= 2); x=linspace(-3,3,1000); area(x,f(x)); xlabel ('x'); ylabel ('f(x)'); int = mean (f (smpl)./pdf(smpl)); errest = std (f (smpl)./pdf(smpl))/nsamples^.5; trueerr = abs (erf (2^.5)*2^.5*pi^.5-int); fprintf("Monte Carlo integral estimate int f(x) dx = %f\n", int); fprintf("Monte Carlo integral error estimate %f\n", errest); fprintf("The actual error %f\n", trueerr); ***** test start = 0.5; nsamples = 1e3; pdf = @(x) exp (-.5*(x-1).^2)/(2*pi)^.5; [smpl, accept] = slicesample (start, nsamples, "pdf", pdf, "thin", 2, "burnin", 0, "width", 5); assert (mean (smpl, 1), 1, .1); assert (var (smpl, 1), 1, .1); ***** error slicesample (); ***** error slicesample (1); ***** error slicesample (1, 1); 4 tests, 4 passed, 0 known failure, 0 skipped [inst/squareform.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/squareform.m ***** shared v, m v = 1:6; m = [0 1 2 3;1 0 4 5;2 4 0 6;3 5 6 0]; ***** assert (squareform (v), m) ***** assert (squareform (squareform (v)), v) ***** assert (squareform (m), v) ***** assert (squareform (v'), m) ***** assert (squareform (1), [0 1;1 0]) ***** assert (squareform (1, "tomatrix"), [0 1; 1 0]) ***** assert (squareform (0, "tovector"), zeros (1, 0)) ***** warning squareform ([0 1 2; 3 0 4; 5 6 0]); ***** test for c = {@single, @double, @uint8, @uint32, @uint64} f = c{1}; assert (squareform (f (v)), f (m)) assert (squareform (f (m)), f (v)) endfor 9 tests, 9 passed, 0 known failure, 0 skipped [inst/stepwisefit.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/stepwisefit.m ***** test % Sample data from Draper and Smith (n = 13, k = 4) X = [7 1 11 11 7 11 3 1 2 21 1 11 10; ... 26 29 56 31 52 55 71 31 54 47 40 66 68; ... 6 15 8 8 6 9 17 22 18 4 23 9 8; ... 60 52 20 47 33 22 6 44 22 26 34 12 12]'; y = [78.5 74.3 104.3 87.6 95.9 109.2 102.7 72.5 93.1 115.9 83.8 113.3 109.4]'; [X_use, b, bint, r, rint, stats] = stepwisefit(y, X); assert(X_use, [4 1]) assert(b, regress(y, [ones(size(y)) X(:, X_use)], 0.05)) [X_use, b, bint, r, rint, stats] = stepwisefit(y, X, 0.05, 0.1, "corr"); assert(X_use, [4 1]) assert(b, regress(y, [ones(size(y)) X(:, X_use)], 0.05)) [X_use, b, bint, r, rint, stats] = stepwisefit(y, X, [], [], "p"); assert(X_use, [4 1]) assert(b, regress(y, [ones(size(y)) X(:, X_use)], 0.05)) 1 test, 1 passed, 0 known failure, 0 skipped [inst/tblread.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/tblread.m ***** shared d, v, c, tblreadspacefile, tblreadtabfile d = [1 2;3 4]; v = ["a ";"bc"]; c = ["de";"f "]; tblreadspacefile = file_in_loadpath("test/tblread-space.dat"); tblreadtabfile = file_in_loadpath("test/tblread-tab.dat"); ***** test [dt vt ct] = tblread (tblreadspacefile); assert (dt, d); assert (vt, v); assert (ct, c); ***** test [dt vt ct] = tblread (tblreadspacefile, " "); assert (dt, d); assert (vt, v); assert (ct, c); ***** test [dt vt ct] = tblread (tblreadspacefile, "space"); assert (dt, d); assert (vt, v); assert (ct, c); ***** test [dt vt ct] = tblread (tblreadtabfile, "tab"); assert (dt, d); assert (vt, v); assert (ct, c); ***** test [dt vt ct] = tblread (tblreadtabfile, "\t"); assert (dt, d); assert (vt, v); assert (ct, c); ***** test [dt vt ct] = tblread (tblreadtabfile, '\t'); assert (dt, d); assert (vt, v); assert (ct, c); 6 tests, 6 passed, 0 known failure, 0 skipped [inst/tblwrite.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/tblwrite.m ***** shared privpath privpath = [fileparts(which('tblwrite')) filesep() 'private']; ***** test addpath (privpath,'-end') [d err] = tbl_delim (" "); assert (d, " "); assert (err, ""); rmpath (privpath); ***** test addpath (privpath,'-end') [d err] = tbl_delim ("space"); assert (d, " "); assert (err, ""); rmpath (privpath); ***** test addpath (privpath,'-end') [d err] = tbl_delim ("tab"); assert (d, sprintf ("\t")); assert (err, ""); rmpath (privpath); ***** test addpath (privpath,'-end') [d err] = tbl_delim ("comma"); assert (d, ","); assert (err, ""); rmpath (privpath); ***** test addpath (privpath,'-end') [d err] = tbl_delim ("semi"); assert (d, ";"); assert (err, ""); rmpath (privpath); ***** test addpath (privpath,'-end') [d err] = tbl_delim ("bar"); assert (d, "|"); assert (err, ""); rmpath (privpath); ***** test addpath (privpath,'-end') [d err] = tbl_delim ("x"); assert (d, "x"); assert (err, ""); rmpath (privpath); ***** test addpath (privpath,'-end') [d err] = tbl_delim ('\r'); assert (d, sprintf ('\r')) assert (err, ""); rmpath (privpath); ***** test addpath (privpath,'-end') [d err] = tbl_delim ("bars"); assert (isnan (d)); assert (! isempty (err)); rmpath (privpath); ***** test addpath (privpath,'-end') [d err] = tbl_delim (""); assert (isnan (d)); assert (! isempty (err)); rmpath (privpath); ***** test addpath (privpath,'-end') [d err] = tbl_delim (5); assert (isnan (d)); assert (! isempty (err)); rmpath (privpath); ***** test addpath (privpath,'-end') [d err] = tbl_delim ({"."}); assert (isnan (d)); assert (! isempty (err)); rmpath (privpath); ***** shared d, v, c, tempfilename d = [1 2;3 4]; v = ["a ";"bc"]; c = ["de";"f "]; tempfilename = tempname; ***** test tblwrite (d, v, c, tempfilename); [dt vt ct] = tblread (tempfilename, " "); assert (dt, d); assert (vt, v); assert (ct, c); delete (tempfilename); ***** test tblwrite (d, v, c, tempfilename, " "); [dt vt ct] = tblread (tempfilename, " "); assert (dt, d); assert (vt, v); assert (ct, c); delete (tempfilename); ***** test tblwrite (d, v, c, tempfilename, "space"); [dt vt ct] = tblread (tempfilename); assert (dt, d); assert (vt, v); assert (ct, c); delete (tempfilename); ***** test tblwrite (d, v, c, tempfilename, "tab"); [dt vt ct] = tblread (tempfilename, "tab"); assert (dt, d); assert (vt, v); assert (ct, c); delete (tempfilename); ***** test tblwrite (d, v, c, tempfilename, "\t"); [dt vt ct] = tblread (tempfilename, "\t"); assert (dt, d); assert (vt, v); assert (ct, c); delete (tempfilename); 17 tests, 17 passed, 0 known failure, 0 skipped [inst/tricdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/tricdf.m ***** shared x,y x = [-1, 0, 0.1, 0.5, 0.9, 1, 2] + 1; y = [0, 0, 0.02, 0.5, 0.98, 1 1]; ***** assert (tricdf (x, ones (1,7), 2*ones (1,7), 1.5*ones (1,7)), y, eps) ***** assert (tricdf (x, 1*ones (1,7), 2, 1.5), y, eps) ***** assert (tricdf (x, 1, 2*ones (1,7), 1.5), y, eps) ***** assert (tricdf (x, 1, 2, 1.5*ones (1,7)), y, eps) ***** assert (tricdf (x, 1, 2, 1.5), y, eps) ***** assert (tricdf (x, [1, 1, NaN, 1, 1, 1, 1], 2, 1.5), [y(1:2), NaN, y(4:7)], eps) ***** assert (tricdf (x, 1, 2*[1, 1, NaN, 1, 1, 1, 1], 1.5), [y(1:2), NaN, y(4:7)], eps) ***** assert (tricdf (x, 1, 2, 1.5*[1, 1, NaN, 1, 1, 1, 1]), [y(1:2), NaN, y(4:7)], eps) ***** assert (tricdf ([x, NaN], 1, 2, 1.5), [y, NaN], eps) ***** assert (tricdf (single ([x, NaN]), 1, 2, 1.5), single ([y, NaN]), eps('single')) ***** assert (tricdf ([x, NaN], single (1), 2, 1.5), single ([y, NaN]), eps('single')) ***** assert (tricdf ([x, NaN], 1, single (2), 1.5), single ([y, NaN]), eps('single')) ***** assert (tricdf ([x, NaN], 1, 2, single (1.5)), single ([y, NaN]), eps('single')) ***** error tricdf () ***** error tricdf (1) ***** error tricdf (1,2) ***** error tricdf (1,2,3) ***** error tricdf (1,2,3,4,5) ***** error tricdf (1, ones (3), ones (2), ones (2)) ***** error tricdf (1, ones (2), ones (3), ones (2)) ***** error tricdf (1, ones (2), ones (2), ones (3)) ***** error tricdf (i, 2, 2, 2) ***** error tricdf (2, i, 2, 2) ***** error tricdf (2, 2, i, 2) ***** error tricdf (2, 2, 2, i) 25 tests, 25 passed, 0 known failure, 0 skipped [inst/triinv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/triinv.m ***** shared x,y x = [-1, 0, 0.02, 0.5, 0.98, 1, 2]; y = [NaN, 0, 0.1, 0.5, 0.9, 1, NaN] + 1; ***** assert (triinv (x, ones (1,7), 2*ones (1,7), 1.5*ones (1,7)), y, eps) ***** assert (triinv (x, 1*ones (1,7), 2, 1.5), y, eps) ***** assert (triinv (x, 1, 2*ones (1,7), 1.5), y, eps) ***** assert (triinv (x, 1, 2, 1.5*ones (1,7)), y, eps) ***** assert (triinv (x, 1, 2, 1.5), y, eps) ***** assert (triinv (x, [1, 1, NaN, 1, 1, 1, 1], 2, 1.5), [y(1:2), NaN, y(4:7)], eps) ***** assert (triinv (x, 1, 2*[1, 1, NaN, 1, 1, 1, 1], 1.5), [y(1:2), NaN, y(4:7)], eps) ***** assert (triinv (x, 1, 2, 1.5*[1, 1, NaN, 1, 1, 1, 1]), [y(1:2), NaN, y(4:7)], eps) ***** assert (triinv ([x, NaN], 1, 2, 1.5), [y, NaN], eps) ***** assert (triinv (single ([x, NaN]), 1, 2, 1.5), single ([y, NaN]), eps('single')) ***** assert (triinv ([x, NaN], single (1), 2, 1.5), single ([y, NaN]), eps('single')) ***** assert (triinv ([x, NaN], 1, single (2), 1.5), single ([y, NaN]), eps('single')) ***** assert (triinv ([x, NaN], 1, 2, single (1.5)), single ([y, NaN]), eps('single')) ***** error triinv () ***** error triinv (1) ***** error triinv (1,2) ***** error triinv (1,2,3) ***** error triinv (1,2,3,4,5) ***** error triinv (1, ones (3), ones (2), ones (2)) ***** error triinv (1, ones (2), ones (3), ones (2)) ***** error triinv (1, ones (2), ones (2), ones (3)) ***** error triinv (i, 2, 2, 2) ***** error triinv (2, i, 2, 2) ***** error triinv (2, 2, i, 2) ***** error triinv (2, 2, 2, i) 25 tests, 25 passed, 0 known failure, 0 skipped [inst/tripdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/tripdf.m ***** shared x,y,deps x = [-1, 0, 0.1, 0.5, 0.9, 1, 2] + 1; y = [0, 0, 0.4, 2, 0.4, 0, 0]; deps = 2*eps; ***** assert (tripdf (x, ones (1,7), 2*ones (1,7), 1.5*ones (1,7)), y, deps) ***** assert (tripdf (x, 1*ones (1,7), 2, 1.5), y, deps) ***** assert (tripdf (x, 1, 2*ones (1,7), 1.5), y, deps) ***** assert (tripdf (x, 1, 2, 1.5*ones (1,7)), y, deps) ***** assert (tripdf (x, 1, 2, 1.5), y, deps) ***** assert (tripdf (x, [1, 1, NaN, 1, 1, 1, 1], 2, 1.5), [y(1:2), NaN, y(4:7)], deps) ***** assert (tripdf (x, 1, 2*[1, 1, NaN, 1, 1, 1, 1], 1.5), [y(1:2), NaN, y(4:7)], deps) ***** assert (tripdf (x, 1, 2, 1.5*[1, 1, NaN, 1, 1, 1, 1]), [y(1:2), NaN, y(4:7)], deps) ***** assert (tripdf ([x, NaN], 1, 2, 1.5), [y, NaN], deps) ***** assert (tripdf (single ([x, NaN]), 1, 2, 1.5), single ([y, NaN]), eps('single')) ***** assert (tripdf ([x, NaN], single (1), 2, 1.5), single ([y, NaN]), eps('single')) ***** assert (tripdf ([x, NaN], 1, single (2), 1.5), single ([y, NaN]), eps('single')) ***** assert (tripdf ([x, NaN], 1, 2, single (1.5)), single ([y, NaN]), eps('single')) ***** error tripdf () ***** error tripdf (1) ***** error tripdf (1,2) ***** error tripdf (1,2,3) ***** error tripdf (1,2,3,4,5) ***** error tripdf (1, ones (3), ones (2), ones (2)) ***** error tripdf (1, ones (2), ones (3), ones (2)) ***** error tripdf (1, ones (2), ones (2), ones (3)) ***** error tripdf (i, 2, 2, 2) ***** error tripdf (2, i, 2, 2) ***** error tripdf (2, 2, i, 2) ***** error tripdf (2, 2, 2, i) 25 tests, 25 passed, 0 known failure, 0 skipped [inst/trirnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/trirnd.m ***** assert (size (trirnd (1,2,1.5)), [1, 1]) ***** assert (size (trirnd (1*ones (2,1), 2,1.5)), [2, 1]) ***** assert (size (trirnd (1*ones (2,2), 2,1.5)), [2, 2]) ***** assert (size (trirnd (1, 2*ones (2,1), 1.5)), [2, 1]) ***** assert (size (trirnd (1, 2*ones (2,2), 1.5)), [2, 2]) ***** assert (size (trirnd (1, 2, 1.5*ones (2,1))), [2, 1]) ***** assert (size (trirnd (1, 2, 1.5*ones (2,2))), [2, 2]) ***** assert (size (trirnd (1, 2, 1.5, 3)), [3, 3]) ***** assert (size (trirnd (1, 2, 1.5, [4 1])), [4, 1]) ***** assert (size (trirnd (1, 2, 1.5, 4, 1)), [4, 1]) ***** assert (class (trirnd (1,2,1.5)), "double") ***** assert (class (trirnd (single (1),2,1.5)), "single") ***** assert (class (trirnd (single ([1 1]),2,1.5)), "single") ***** assert (class (trirnd (1,single (2),1.5)), "single") ***** assert (class (trirnd (1,single ([2 2]),1.5)), "single") ***** assert (class (trirnd (1,2,single (1.5))), "single") ***** assert (class (trirnd (1,2,single ([1.5 1.5]))), "single") ***** error trirnd () ***** error trirnd (1) ***** error trirnd (1,2) ***** error trirnd (ones (3), 2*ones (2), 1.5*ones (2), 2) ***** error trirnd (ones (2), 2*ones (3), 1.5*ones (2), 2) ***** error trirnd (ones (2), 2*ones (2), 1.5*ones (3), 2) ***** error trirnd (i, 2, 1.5) ***** error trirnd (1, i, 1.5) ***** error trirnd (1, 2, i) ***** error trirnd (1,2,1.5, -1) ***** error trirnd (1,2,1.5, ones (2)) ***** error trirnd (1,2,1.5, [2 -1 2]) ***** error trirnd (1*ones (2),2,1.5, 3) ***** error trirnd (1*ones (2),2,1.5, [3, 2]) ***** error trirnd (1*ones (2),2,1.5, 3, 2) 32 tests, 32 passed, 0 known failure, 0 skipped [inst/tstat.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/tstat.m ***** test n = 3:8; [m, v] = tstat (n); expected_m = [0, 0, 0, 0, 0, 0]; expected_v = [3.0000, 2.0000, 1.6667, 1.5000, 1.4000, 1.3333]; assert (m, expected_m); assert (v, expected_v, 0.001); 1 test, 1 passed, 0 known failure, 0 skipped [inst/ttest.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/ttest.m ***** test x = 8:0.1:12; [h, pval, ci] = ttest (x, 10); assert (h, 0) assert (pval, 1, 10*eps) assert (ci, [9.6219 10.3781], 1E-5) [h, pval, ci0] = ttest (x, 0); assert (h, 1) assert (pval, 0) assert (ci0, ci, 2e-15) [h, pval, ci] = ttest (x, 10, "tail", "right", "dim", 2, "alpha", 0.05); assert (h, 0) assert (pval, 0.5, 10*eps) assert (ci, [9.68498 Inf], 1E-5) 1 test, 1 passed, 0 known failure, 0 skipped [inst/unidstat.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/unidstat.m ***** test n = 1:6; [m, v] = unidstat (n); expected_m = [1.0000, 1.5000, 2.0000, 2.5000, 3.0000, 3.5000]; expected_v = [0.0000, 0.2500, 0.6667, 1.2500, 2.0000, 2.9167]; assert (m, expected_m, 0.001); assert (v, expected_v, 0.001); 1 test, 1 passed, 0 known failure, 0 skipped [inst/unifstat.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/unifstat.m ***** test a = 1:6; b = 2:2:12; [m, v] = unifstat (a, b); expected_m = [1.5000, 3.0000, 4.5000, 6.0000, 7.5000, 9.0000]; expected_v = [0.0833, 0.3333, 0.7500, 1.3333, 2.0833, 3.0000]; assert (m, expected_m, 0.001); assert (v, expected_v, 0.001); ***** test a = 1:6; [m, v] = unifstat (a, 10); expected_m = [5.5000, 6.0000, 6.5000, 7.0000, 7.5000, 8.0000]; expected_v = [6.7500, 5.3333, 4.0833, 3.0000, 2.0833, 1.3333]; assert (m, expected_m, 0.001); assert (v, expected_v, 0.001); 2 tests, 2 passed, 0 known failure, 0 skipped [inst/wblplot.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/wblplot.m ***** demo x=[16 34 53 75 93 120]; wblplot(x); ***** demo x=[2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67]'; c=[0 1 0 1 0 1 1 1 0 0 1 0 1 0 1 1 0 1 1]'; [h p]=wblplot(x,c) ***** demo x=[16, 34, 53, 75, 93, 120, 150, 191, 240 ,339]; [h p]=wblplot(x,[],[],0.05) ## Benchmark Reliasoft eta = 146.2545 beta 1.1973 rho = 0.9999 ***** demo x=[46 64 83 105 123 150 150]; c=[0 0 0 0 0 0 1]; f=[1 1 1 1 1 1 4]; wblplot(x,c,f,0.05); ***** demo x=[46 64 83 105 123 150 150]; c=[0 0 0 0 0 0 1]; f=[1 1 1 1 1 1 4]; ## Subtract 30.92 from x to simulate a 3 parameter wbl with gamma = 30.92 wblplot(x-30.92,c,f,0.05); ***** shared visibility_setting visibility_setting = get (0, "DefaultFigureVisible"); ***** test set (0, "DefaultFigureVisible", "off"); x=[16, 34, 53, 75, 93, 120, 150, 191, 240 ,339]; [h p]=wblplot(x,[],[],0.05); assert(numel(h), 4) assert(p(1), 146.2545, 1E-4) assert(p(2), 1.1973, 1E-4) assert(p(3), 0.9999, 5E-5) set (0, "DefaultFigureVisible", visibility_setting); 1 test, 1 passed, 0 known failure, 0 skipped [inst/wblstat.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/wblstat.m ***** test scale = 3:8; shape = 1:6; [m, v] = wblstat (scale, shape); expected_m = [3.0000, 3.5449, 4.4649, 5.4384, 6.4272, 7.4218]; expected_v = [9.0000, 3.4336, 2.6333, 2.3278, 2.1673, 2.0682]; assert (m, expected_m, 0.001); assert (v, expected_v, 0.001); ***** test shape = 1:6; [m, v] = wblstat (6, shape); expected_m = [ 6.0000, 5.3174, 5.3579, 5.4384, 5.5090, 5.5663]; expected_v = [36.0000, 7.7257, 3.7920, 2.3278, 1.5923, 1.1634]; assert (m, expected_m, 0.001); assert (v, expected_v, 0.001); 2 tests, 2 passed, 0 known failure, 0 skipped [inst/wishpdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/wishpdf.m ***** assert(wishpdf(4, 3, 3.1), 0.07702496, 1E-7); ***** assert(wishpdf([2 -0.3;-0.3 4], [1 0.3;0.3 1], 4), 0.004529741, 1E-7); ***** assert(wishpdf([6 2 5; 2 10 -5; 5 -5 25], [9 5 5; 5 10 -8; 5 -8 22], 5.1), 4.474865e-10, 1E-15); ***** error wishpdf () ***** error wishpdf (1, 2) ***** error wishpdf (1, 2, 0) ***** error wishpdf (1, 2) 7 tests, 7 passed, 0 known failure, 0 skipped [inst/wishrnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/wishrnd.m ***** assert(size (wishrnd (1,2)), [1, 1]); ***** assert(size (wishrnd (1,2,[])), [1, 1]); ***** assert(size (wishrnd (1,2,1)), [1, 1]); ***** assert(size (wishrnd ([],2,1)), [1, 1]); ***** assert(size (wishrnd ([3 1; 1 3], 2.00001, [], 1)), [2, 2]); ***** assert(size (wishrnd (eye(2), 2, [], 3)), [2, 2, 3]); ***** error wishrnd () ***** error wishrnd (1) ***** error wishrnd ([1; 1], 2) 9 tests, 9 passed, 0 known failure, 0 skipped [inst/base/cloglog.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/base/cloglog.m ***** assert (cloglog (0), -Inf) ***** assert (cloglog (1), Inf) ***** assert (cloglog (1/e), 0) ***** error cloglog () ***** error cloglog (1, 2) 5 tests, 5 passed, 0 known failure, 0 skipped [inst/base/crosstab.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/base/crosstab.m ***** error crosstab () ***** error crosstab (1) ***** error crosstab (ones (2), [1 1]) ***** error crosstab ([1 1], ones (2)) ***** error crosstab ([1], [1 1]) ***** error crosstab ([1 1], [1]) 6 tests, 6 passed, 0 known failure, 0 skipped [inst/base/ismissing.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/base/ismissing.m ***** assert (ismissing ([1,NaN,3]), [false,true,false]) ***** assert (ismissing ('abcd f'), [false,false,false,false,true,false]) ***** assert (ismissing ({'xxx','','xyz'}), [false,true,false]) ***** assert (ismissing ([1,2;NaN,2]), [false,false;true,false]) ***** error ismissing (); ***** error ismissing ({1, 2, 3}); ***** error ismissing ([1 2; 3 4], [5 1; 2 0]); ***** error ismissing ([1 2; 3 4], "abc"); ***** error ismissing ({"", "", ""}, 1); ***** error ismissing ({1, 2, 3}); 10 tests, 10 passed, 0 known failure, 0 skipped [inst/base/logit.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/base/logit.m ***** test p = [0.01:0.01:0.99]; assert (logit (p), log (p ./ (1-p)), 25*eps); ***** assert (logit ([-1, 0, 0.5, 1, 2]), [NaN, -Inf, 0, +Inf, NaN]) ***** error logit () ***** error logit (1, 2) 4 tests, 4 passed, 0 known failure, 0 skipped [inst/base/ppplot.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/base/ppplot.m ***** error ppplot () ***** error ppplot (ones (2,2)) ***** error ppplot (1, 2) 3 tests, 3 passed, 0 known failure, 0 skipped [inst/base/probit.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/base/probit.m ***** assert (probit ([-1, 0, 0.5, 1, 2]), [NaN, -Inf, 0, Inf, NaN]) ***** error probit () ***** error probit (1, 2) 3 tests, 3 passed, 0 known failure, 0 skipped [inst/base/qqplot.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/base/qqplot.m ***** error qqplot () ***** error qqplot ({1}) ***** error qqplot (ones (2,2)) ***** error qqplot (1, "foobar") 4 tests, 4 passed, 0 known failure, 0 skipped [inst/base/rmmissing.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/base/rmmissing.m ***** assert (rmmissing ([1,NaN,3]), [1,3]) ***** assert (rmmissing ('abcd f'), 'abcdf') ***** assert (rmmissing ({'xxx','','xyz'}), {'xxx','xyz'}) ***** assert (rmmissing ([1,2;NaN,2]), [1,2]) ***** assert (rmmissing ([1,2;NaN,2], 2), [2,2]') ***** assert (rmmissing ([1,2;NaN,4;NaN,NaN],"MinNumMissing", 2), [1,2;NaN,4]) ***** error rmmissing (); ***** error rmmissing ({1, 2, 3}); ***** error rmmissing ([1 2; 3 4], 5); ***** error rmmissing ([1 2; 3 4], "XXX", 1); ***** error <'MinNumMissing'> rmmissing ([1 2; 3 4], 2, "MinNumMissing", -2); ***** error <'MinNumMissing'> rmmissing ([1 2; 3 4], "MinNumMissing", 3.8); ***** error <'MinNumMissing'> rmmissing ([1 2; 3 4], "MinNumMissing", [1 2 3]); ***** error <'MinNumMissing'> rmmissing ([1 2; 3 4], "MinNumMissing", 'xxx'); 14 tests, 14 passed, 0 known failure, 0 skipped [inst/distributions/betacdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/betacdf.m ***** shared x,y x = [-1 0 0.5 1 2]; y = [0 0 0.75 1 1]; ***** assert (betacdf (x, ones (1,5), 2*ones (1,5)), y) ***** assert (betacdf (x, 1, 2*ones (1,5)), y) ***** assert (betacdf (x, ones (1,5), 2), y) ***** assert (betacdf (x, [0 1 NaN 1 1], 2), [NaN 0 NaN 1 1]) ***** assert (betacdf (x, 1, 2*[0 1 NaN 1 1]), [NaN 0 NaN 1 1]) ***** assert (betacdf ([x(1:2) NaN x(4:5)], 1, 2), [y(1:2) NaN y(4:5)]) ***** assert (betacdf ([x, NaN], 1, 2), [y, NaN]) ***** assert (betacdf (single ([x, NaN]), 1, 2), single ([y, NaN])) ***** assert (betacdf ([x, NaN], single (1), 2), single ([y, NaN])) ***** assert (betacdf ([x, NaN], 1, single (2)), single ([y, NaN])) ***** error betacdf () ***** error betacdf (1) ***** error betacdf (1,2) ***** error betacdf (1,2,3,4) ***** error betacdf (ones (3), ones (2), ones (2)) ***** error betacdf (ones (2), ones (3), ones (2)) ***** error betacdf (ones (2), ones (2), ones (3)) 17 tests, 17 passed, 0 known failure, 0 skipped [inst/distributions/betainv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/betainv.m ***** shared x x = [-1 0 0.75 1 2]; ***** assert (betainv (x, ones (1,5), 2*ones (1,5)), [NaN 0 0.5 1 NaN], eps) ***** assert (betainv (x, 1, 2*ones (1,5)), [NaN 0 0.5 1 NaN], eps) ***** assert (betainv (x, ones (1,5), 2), [NaN 0 0.5 1 NaN], eps) ***** assert (betainv (x, [1 0 NaN 1 1], 2), [NaN NaN NaN 1 NaN]) ***** assert (betainv (x, 1, 2*[1 0 NaN 1 1]), [NaN NaN NaN 1 NaN]) ***** assert (betainv ([x(1:2) NaN x(4:5)], 1, 2), [NaN 0 NaN 1 NaN]) ***** assert (betainv ([x, NaN], 1, 2), [NaN 0 0.5 1 NaN NaN], eps) ***** assert (betainv (single ([x, NaN]), 1, 2), single ([NaN 0 0.5 1 NaN NaN])) ***** assert (betainv ([x, NaN], single (1), 2), single ([NaN 0 0.5 1 NaN NaN]), eps("single")) ***** assert (betainv ([x, NaN], 1, single (2)), single ([NaN 0 0.5 1 NaN NaN]), eps("single")) ***** error betainv () ***** error betainv (1) ***** error betainv (1,2) ***** error betainv (1,2,3,4) ***** error betainv (ones (3), ones (2), ones (2)) ***** error betainv (ones (2), ones (3), ones (2)) ***** error betainv (ones (2), ones (2), ones (3)) ***** error betainv (i, 2, 2) ***** error betainv (2, i, 2) ***** error betainv (2, 2, i) 20 tests, 20 passed, 0 known failure, 0 skipped [inst/distributions/betapdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/betapdf.m ***** shared x,y x = [-1 0 0.5 1 2]; y = [0 2 1 0 0]; ***** assert (betapdf (x, ones (1,5), 2*ones (1,5)), y) ***** assert (betapdf (x, 1, 2*ones (1,5)), y) ***** assert (betapdf (x, ones (1,5), 2), y) ***** assert (betapdf (x, [0 NaN 1 1 1], 2), [NaN NaN y(3:5)]) ***** assert (betapdf (x, 1, 2*[0 NaN 1 1 1]), [NaN NaN y(3:5)]) ***** assert (betapdf ([x, NaN], 1, 2), [y, NaN]) ***** assert (betapdf (single ([x, NaN]), 1, 2), single ([y, NaN])) ***** assert (betapdf ([x, NaN], single (1), 2), single ([y, NaN])) ***** assert (betapdf ([x, NaN], 1, single (2)), single ([y, NaN])) ***** test x = rand (10,1); y = 1./(pi * sqrt (x.*(1-x))); assert (betapdf (x, 1/2, 1/2), y, 50*eps); ***** assert (betapdf (0.5, 1000, 1000), 35.678, 1e-3) ***** error betapdf () ***** error betapdf (1) ***** error betapdf (1,2) ***** error betapdf (1,2,3,4) ***** error betapdf (ones (3), ones (2), ones (2)) ***** error betapdf (ones (2), ones (3), ones (2)) ***** error betapdf (ones (2), ones (2), ones (3)) ***** error betapdf (i, 2, 2) ***** error betapdf (2, i, 2) ***** error betapdf (2, 2, i) 21 tests, 21 passed, 0 known failure, 0 skipped [inst/distributions/betarnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/betarnd.m ***** assert (size (betarnd (1,2)), [1, 1]) ***** assert (size (betarnd (ones (2,1), 2)), [2, 1]) ***** assert (size (betarnd (ones (2,2), 2)), [2, 2]) ***** assert (size (betarnd (1, 2*ones (2,1))), [2, 1]) ***** assert (size (betarnd (1, 2*ones (2,2))), [2, 2]) ***** assert (size (betarnd (1, 2, 3)), [3, 3]) ***** assert (size (betarnd (1, 2, [4 1])), [4, 1]) ***** assert (size (betarnd (1, 2, 4, 1)), [4, 1]) ***** assert (class (betarnd (1, 2)), "double") ***** assert (class (betarnd (single (1), 2)), "single") ***** assert (class (betarnd (single ([1 1]), 2)), "single") ***** assert (class (betarnd (1, single (2))), "single") ***** assert (class (betarnd (1, single ([2 2]))), "single") ***** error betarnd () ***** error betarnd (1) ***** error betarnd (ones (3), ones (2)) ***** error betarnd (ones (2), ones (3)) ***** error betarnd (i, 2) ***** error betarnd (2, i) ***** error betarnd (1,2, -1) ***** error betarnd (1,2, ones (2)) ***** error binornd (1,2, [2 -1 2]) ***** error betarnd (1,2, 1, ones (2)) ***** error betarnd (1,2, 1, -1) ***** error betarnd (ones (2,2), 2, 3) ***** error betarnd (ones (2,2), 2, [3, 2]) ***** error betarnd (ones (2,2), 2, 2, 3) 27 tests, 27 passed, 0 known failure, 0 skipped [inst/distributions/binocdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/binocdf.m ***** shared x,y,y1 x = [-1 0 1 2 3]; y = [0 1/4 3/4 1 1]; y1 = 1-y; ***** assert (binocdf (x, 2*ones (1,5), 0.5*ones (1,5)), y, eps) ***** assert (binocdf (x, 2, 0.5*ones (1,5)), y, eps) ***** assert (binocdf (x, 2*ones (1,5), 0.5), y, eps) ***** assert (binocdf (x, 2*[0 -1 NaN 1.1 1], 0.5), [0 NaN NaN NaN 1]) ***** assert (binocdf (x, 2, 0.5*[0 -1 NaN 3 1]), [0 NaN NaN NaN 1]) ***** assert (binocdf ([x(1:2) NaN x(4:5)], 2, 0.5), [y(1:2) NaN y(4:5)], eps) ***** assert (binocdf(99, 100, 0.1, 'upper'), 1e-100, 1e-112); ***** assert (binocdf (x, 2*ones (1,5), 0.5*ones (1,5), 'upper'), y1, eps) ***** assert (binocdf (x, 2, 0.5*ones (1,5), 'upper'), y1, eps) ***** assert (binocdf (x, 2*ones (1,5), 0.5, 'upper'), y1, eps) ***** assert (binocdf (x, 2*[0 -1 NaN 1.1 1], 0.5, 'upper'), [1 NaN NaN NaN 0]) ***** assert (binocdf (x, 2, 0.5*[0 -1 NaN 3 1], 'upper'), [1 NaN NaN NaN 0]) ***** assert (binocdf ([x(1:2) NaN x(4:5)], 2, 0.5, 'upper'), [y1(1:2) NaN y1(4:5)]) ***** assert (binocdf ([x, NaN], 2, 0.5), [y, NaN], eps) ***** assert (binocdf (single ([x, NaN]), 2, 0.5), single ([y, NaN])) ***** assert (binocdf ([x, NaN], single (2), 0.5), single ([y, NaN])) ***** assert (binocdf ([x, NaN], 2, single (0.5)), single ([y, NaN])) ***** error binocdf () ***** error binocdf (1) ***** error binocdf (1,2) ***** error binocdf (1,2,3,4) ***** error binocdf (ones (3), ones (2), ones (2)) ***** error binocdf (ones (2), ones (3), ones (2)) ***** error binocdf (ones (2), ones (2), ones (3)) ***** error binocdf (i, 2, 2) ***** error binocdf (2, i, 2) ***** error binocdf (2, 2, i) 27 tests, 27 passed, 0 known failure, 0 skipped [inst/distributions/binoinv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/binoinv.m ***** shared x x = [-1 0 0.5 1 2]; ***** assert (binoinv (x, 2*ones (1,5), 0.5*ones (1,5)), [NaN 0 1 2 NaN]) ***** assert (binoinv (x, 2, 0.5*ones (1,5)), [NaN 0 1 2 NaN]) ***** assert (binoinv (x, 2*ones (1,5), 0.5), [NaN 0 1 2 NaN]) ***** assert (binoinv (x, 2*[0 -1 NaN 1.1 1], 0.5), [NaN NaN NaN NaN NaN]) ***** assert (binoinv (x, 2, 0.5*[0 -1 NaN 3 1]), [NaN NaN NaN NaN NaN]) ***** assert (binoinv ([x(1:2) NaN x(4:5)], 2, 0.5), [NaN 0 NaN 2 NaN]) ***** assert (binoinv ([x, NaN], 2, 0.5), [NaN 0 1 2 NaN NaN]) ***** assert (binoinv (single ([x, NaN]), 2, 0.5), single ([NaN 0 1 2 NaN NaN])) ***** assert (binoinv ([x, NaN], single (2), 0.5), single ([NaN 0 1 2 NaN NaN])) ***** assert (binoinv ([x, NaN], 2, single (0.5)), single ([NaN 0 1 2 NaN NaN])) ***** shared y, tol y = magic (3) + 1; tol = 1; ***** assert (binoinv (binocdf (1:10, 11, 0.1), 11, 0.1), 1:10, tol) ***** assert (binoinv (binocdf (1:10, 2*(1:10), 0.1), 2*(1:10), 0.1), 1:10, tol) ***** assert (binoinv (binocdf (y, 2*y, 1./y), 2*y, 1./y), y, tol) ***** error binoinv () ***** error binoinv (1) ***** error binoinv (1,2) ***** error binoinv (1,2,3,4) ***** error binoinv (ones (3), ones (2), ones (2)) ***** error binoinv (ones (2), ones (3), ones (2)) ***** error binoinv (ones (2), ones (2), ones (3)) ***** error binoinv (i, 2, 2) ***** error binoinv (2, i, 2) ***** error binoinv (2, 2, i) 23 tests, 23 passed, 0 known failure, 0 skipped [inst/distributions/binopdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/binopdf.m ***** shared x,y,tol if (ismac ()) tol = eps (); else tol = 0; endif x = [-1 0 1 2 3]; y = [0 1/4 1/2 1/4 0]; ***** assert (binopdf (x, 2*ones (1,5), 0.5*ones (1,5)), y, tol) ***** assert (binopdf (x, 2, 0.5*ones (1,5)), y, tol) ***** assert (binopdf (x, 2*ones (1,5), 0.5), y, tol) ***** assert (binopdf (x, 2*[0 -1 NaN 1.1 1], 0.5), [0 NaN NaN NaN 0]) ***** assert (binopdf (x, 2, 0.5*[0 -1 NaN 3 1]), [0 NaN NaN NaN 0]) ***** assert (binopdf ([x, NaN], 2, 0.5), [y, NaN], tol) ***** assert (binopdf (0, 3, 0), 1) ***** assert (binopdf (2, 2, 1), 1) ***** assert (binopdf (1, 2, 1), 0) ***** assert (binopdf (single ([x, NaN]), 2, 0.5), single ([y, NaN])) ***** assert (binopdf ([x, NaN], single (2), 0.5), single ([y, NaN])) ***** assert (binopdf ([x, NaN], 2, single (0.5)), single ([y, NaN])) ***** error binopdf () ***** error binopdf (1) ***** error binopdf (1,2) ***** error binopdf (1,2,3,4) ***** error binopdf (ones (3), ones (2), ones (2)) ***** error binopdf (ones (2), ones (3), ones (2)) ***** error binopdf (ones (2), ones (2), ones (3)) ***** error binopdf (i, 2, 2) ***** error binopdf (2, i, 2) ***** error binopdf (2, 2, i) 22 tests, 22 passed, 0 known failure, 0 skipped [inst/distributions/binornd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/binornd.m ***** assert (binornd (0, 0, 1), 0) ***** assert (binornd ([0, 0], [0, 0], 1, 2), [0, 0]) ***** assert (size (binornd (2, 1/2)), [1, 1]) ***** assert (size (binornd (2*ones (2,1), 1/2)), [2, 1]) ***** assert (size (binornd (2*ones (2,2), 1/2)), [2, 2]) ***** assert (size (binornd (2, 1/2*ones (2,1))), [2, 1]) ***** assert (size (binornd (2, 1/2*ones (2,2))), [2, 2]) ***** assert (size (binornd (2, 1/2, 3)), [3, 3]) ***** assert (size (binornd (2, 1/2, [4 1])), [4, 1]) ***** assert (size (binornd (2, 1/2, 4, 1)), [4, 1]) ***** assert (class (binornd (2, 0.5)), "double") ***** assert (class (binornd (single (2), 0.5)), "single") ***** assert (class (binornd (single ([2 2]), 0.5)), "single") ***** assert (class (binornd (2, single (0.5))), "single") ***** assert (class (binornd (2, single ([0.5 0.5]))), "single") ***** error binornd () ***** error binornd (1) ***** error binornd (ones (3), ones (2)) ***** error binornd (ones (2), ones (3)) ***** error binornd (i, 2) ***** error binornd (2, i) ***** error binornd (1,2, -1) ***** error binornd (1,2, ones (2)) ***** error binornd (1,2, [2 -1 2]) ***** error binornd (1,2, 1, ones (2)) ***** error binornd (1,2, 1, -1) ***** error binornd (ones (2,2), 2, 3) ***** error binornd (ones (2,2), 2, [3, 2]) ***** error binornd (ones (2,2), 2, 2, 3) 29 tests, 29 passed, 0 known failure, 0 skipped [inst/distributions/cauchy_cdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/cauchy_cdf.m ***** shared x,y x = [-1 0 0.5 1 2]; y = 1/pi * atan ((x-1) / 2) + 1/2; ***** assert (cauchy_cdf (x, ones (1,5), 2*ones (1,5)), y) ***** assert (cauchy_cdf (x, 1, 2*ones (1,5)), y) ***** assert (cauchy_cdf (x, ones (1,5), 2), y) ***** assert (cauchy_cdf (x, [-Inf 1 NaN 1 Inf], 2), [NaN y(2) NaN y(4) NaN]) ***** assert (cauchy_cdf (x, 1, 2*[0 1 NaN 1 Inf]), [NaN y(2) NaN y(4) NaN]) ***** assert (cauchy_cdf ([x(1:2) NaN x(4:5)], 1, 2), [y(1:2) NaN y(4:5)]) ***** assert (cauchy_cdf ([x, NaN], 1, 2), [y, NaN]) ***** assert (cauchy_cdf (single ([x, NaN]), 1, 2), single ([y, NaN]), eps ("single")) ***** assert (cauchy_cdf ([x, NaN], single (1), 2), single ([y, NaN]), eps ("single")) ***** assert (cauchy_cdf ([x, NaN], 1, single (2)), single ([y, NaN]), eps ("single")) ***** error cauchy_cdf () ***** error cauchy_cdf (1,2) ***** error cauchy_cdf (1,2,3,4) ***** error cauchy_cdf (ones (3), ones (2), ones (2)) ***** error cauchy_cdf (ones (2), ones (3), ones (2)) ***** error cauchy_cdf (ones (2), ones (2), ones (3)) ***** error cauchy_cdf (i, 2, 2) ***** error cauchy_cdf (2, i, 2) ***** error cauchy_cdf (2, 2, i) 19 tests, 19 passed, 0 known failure, 0 skipped [inst/distributions/cauchy_inv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/cauchy_inv.m ***** shared x x = [-1 0 0.5 1 2]; ***** assert (cauchy_inv (x, ones (1,5), 2*ones (1,5)), [NaN -Inf 1 Inf NaN], eps) ***** assert (cauchy_inv (x, 1, 2*ones (1,5)), [NaN -Inf 1 Inf NaN], eps) ***** assert (cauchy_inv (x, ones (1,5), 2), [NaN -Inf 1 Inf NaN], eps) ***** assert (cauchy_inv (x, [1 -Inf NaN Inf 1], 2), [NaN NaN NaN NaN NaN]) ***** assert (cauchy_inv (x, 1, 2*[1 0 NaN Inf 1]), [NaN NaN NaN NaN NaN]) ***** assert (cauchy_inv ([x(1:2) NaN x(4:5)], 1, 2), [NaN -Inf NaN Inf NaN]) ***** assert (cauchy_inv ([x, NaN], 1, 2), [NaN -Inf 1 Inf NaN NaN], eps) ***** assert (cauchy_inv (single ([x, NaN]), 1, 2), single ([NaN -Inf 1 Inf NaN NaN]), eps ("single")) ***** assert (cauchy_inv ([x, NaN], single (1), 2), single ([NaN -Inf 1 Inf NaN NaN]), eps ("single")) ***** assert (cauchy_inv ([x, NaN], 1, single (2)), single ([NaN -Inf 1 Inf NaN NaN]), eps ("single")) ***** error cauchy_inv () ***** error cauchy_inv (1,2) ***** error cauchy_inv (1,2,3,4) ***** error cauchy_inv (ones (3), ones (2), ones (2)) ***** error cauchy_inv (ones (2), ones (3), ones (2)) ***** error cauchy_inv (ones (2), ones (2), ones (3)) ***** error cauchy_inv (i, 2, 2) ***** error cauchy_inv (2, i, 2) ***** error cauchy_inv (2, 2, i) 19 tests, 19 passed, 0 known failure, 0 skipped [inst/distributions/cauchy_pdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/cauchy_pdf.m ***** shared x,y x = [-1 0 0.5 1 2]; y = 1/pi * ( 2 ./ ((x-1).^2 + 2^2) ); ***** assert (cauchy_pdf (x, ones (1,5), 2*ones (1,5)), y) ***** assert (cauchy_pdf (x, 1, 2*ones (1,5)), y) ***** assert (cauchy_pdf (x, ones (1,5), 2), y) ***** assert (cauchy_pdf (x, [-Inf 1 NaN 1 Inf], 2), [NaN y(2) NaN y(4) NaN]) ***** assert (cauchy_pdf (x, 1, 2*[0 1 NaN 1 Inf]), [NaN y(2) NaN y(4) NaN]) ***** assert (cauchy_pdf ([x, NaN], 1, 2), [y, NaN]) ***** assert (cauchy_pdf (single ([x, NaN]), 1, 2), single ([y, NaN]), eps ("single")) ***** assert (cauchy_pdf ([x, NaN], single (1), 2), single ([y, NaN]), eps ("single")) ***** assert (cauchy_pdf ([x, NaN], 1, single (2)), single ([y, NaN]), eps ("single")) ***** test x = rand (10, 1); assert (cauchy_pdf (x, 0, 1), tpdf (x, 1), eps); ***** error cauchy_pdf () ***** error cauchy_pdf (1,2) ***** error cauchy_pdf (1,2,3,4) ***** error cauchy_pdf (ones (3), ones (2), ones (2)) ***** error cauchy_pdf (ones (2), ones (3), ones (2)) ***** error cauchy_pdf (ones (2), ones (2), ones (3)) ***** error cauchy_pdf (i, 2, 2) ***** error cauchy_pdf (2, i, 2) ***** error cauchy_pdf (2, 2, i) 19 tests, 19 passed, 0 known failure, 0 skipped [inst/distributions/cauchy_rnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/cauchy_rnd.m ***** assert (size (cauchy_rnd (1,2)), [1, 1]) ***** assert (size (cauchy_rnd (ones (2,1), 2)), [2, 1]) ***** assert (size (cauchy_rnd (ones (2,2), 2)), [2, 2]) ***** assert (size (cauchy_rnd (1, 2*ones (2,1))), [2, 1]) ***** assert (size (cauchy_rnd (1, 2*ones (2,2))), [2, 2]) ***** assert (size (cauchy_rnd (1, 2, 3)), [3, 3]) ***** assert (size (cauchy_rnd (1, 2, [4 1])), [4, 1]) ***** assert (size (cauchy_rnd (1, 2, 4, 1)), [4, 1]) ***** assert (class (cauchy_rnd (1, 2)), "double") ***** assert (class (cauchy_rnd (single (1), 2)), "single") ***** assert (class (cauchy_rnd (single ([1 1]), 2)), "single") ***** assert (class (cauchy_rnd (1, single (2))), "single") ***** assert (class (cauchy_rnd (1, single ([2 2]))), "single") ***** error cauchy_rnd () ***** error cauchy_rnd (1) ***** error cauchy_rnd (ones (3), ones (2)) ***** error cauchy_rnd (ones (2), ones (3)) ***** error cauchy_rnd (i, 2) ***** error cauchy_rnd (2, i) ***** error cauchy_rnd (1,2, -1) ***** error cauchy_rnd (1,2, ones (2)) ***** error cauchy_rnd (1,2, [2 -1 2]) ***** error cauchy_rnd (1,2, 1, ones (2)) ***** error cauchy_rnd (1,2, 1, -1) ***** error cauchy_rnd (ones (2,2), 2, 3) ***** error cauchy_rnd (ones (2,2), 2, [3, 2]) ***** error cauchy_rnd (ones (2,2), 2, 2, 3) 27 tests, 27 passed, 0 known failure, 0 skipped [inst/distributions/chi2cdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/chi2cdf.m ***** shared x,y x = [-1 0 0.5 1 2]; y = [0, 1 - exp(-x(2:end)/2)]; ***** assert (chi2cdf (x, 2*ones (1,5)), y, eps) ***** assert (chi2cdf (x, 2), y, eps) ***** assert (chi2cdf (x, 2*[1 0 NaN 1 1]), [y(1) NaN NaN y(4:5)], eps) ***** assert (chi2cdf ([x(1:2) NaN x(4:5)], 2), [y(1:2) NaN y(4:5)], eps) ***** assert (chi2cdf ([x, NaN], 2), [y, NaN], eps) ***** assert (chi2cdf (single ([x, NaN]), 2), single ([y, NaN]), eps ("single")) ***** assert (chi2cdf ([x, NaN], single (2)), single ([y, NaN]), eps ("single")) ***** error chi2cdf () ***** error chi2cdf (1) ***** error chi2cdf (1,2,3) ***** error chi2cdf (ones (3), ones (2)) ***** error chi2cdf (ones (2), ones (3)) ***** error chi2cdf (i, 2) ***** error chi2cdf (2, i) 14 tests, 14 passed, 0 known failure, 0 skipped [inst/distributions/chi2inv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/chi2inv.m ***** shared x x = [-1 0 0.3934693402873666 1 2]; ***** assert (chi2inv (x, 2*ones (1,5)), [NaN 0 1 Inf NaN], 5*eps) ***** assert (chi2inv (x, 2), [NaN 0 1 Inf NaN], 5*eps) ***** assert (chi2inv (x, 2*[0 1 NaN 1 1]), [NaN 0 NaN Inf NaN], 5*eps) ***** assert (chi2inv ([x(1:2) NaN x(4:5)], 2), [NaN 0 NaN Inf NaN], 5*eps) ***** assert (chi2inv ([x, NaN], 2), [NaN 0 1 Inf NaN NaN], 5*eps) ***** assert (chi2inv (single ([x, NaN]), 2), single ([NaN 0 1 Inf NaN NaN]), 5*eps ("single")) ***** assert (chi2inv ([x, NaN], single (2)), single ([NaN 0 1 Inf NaN NaN]), 5*eps ("single")) ***** error chi2inv () ***** error chi2inv (1) ***** error chi2inv (1,2,3) ***** error chi2inv (ones (3), ones (2)) ***** error chi2inv (ones (2), ones (3)) ***** error chi2inv (i, 2) ***** error chi2inv (2, i) 14 tests, 14 passed, 0 known failure, 0 skipped [inst/distributions/chi2pdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/chi2pdf.m ***** shared x,y x = [-1 0 0.5 1 Inf]; y = [0, 1/2 * exp(-x(2:5)/2)]; ***** assert (chi2pdf (x, 2*ones (1,5)), y) ***** assert (chi2pdf (x, 2), y) ***** assert (chi2pdf (x, 2*[1 0 NaN 1 1]), [y(1) NaN NaN y(4:5)]) ***** assert (chi2pdf ([x, NaN], 2), [y, NaN]) ***** assert (chi2pdf (single ([x, NaN]), 2), single ([y, NaN])) ***** assert (chi2pdf ([x, NaN], single (2)), single ([y, NaN])) ***** error chi2pdf () ***** error chi2pdf (1) ***** error chi2pdf (1,2,3) ***** error chi2pdf (ones (3), ones (2)) ***** error chi2pdf (ones (2), ones (3)) ***** error chi2pdf (i, 2) ***** error chi2pdf (2, i) 13 tests, 13 passed, 0 known failure, 0 skipped [inst/distributions/chi2rnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/chi2rnd.m ***** assert (size (chi2rnd (2)), [1, 1]) ***** assert (size (chi2rnd (ones (2,1))), [2, 1]) ***** assert (size (chi2rnd (ones (2,2))), [2, 2]) ***** assert (size (chi2rnd (1, 3)), [3, 3]) ***** assert (size (chi2rnd (1, [4 1])), [4, 1]) ***** assert (size (chi2rnd (1, 4, 1)), [4, 1]) ***** assert (class (chi2rnd (2)), "double") ***** assert (class (chi2rnd (single (2))), "single") ***** assert (class (chi2rnd (single ([2 2]))), "single") ***** error chi2rnd () ***** error chi2rnd (ones (3), ones (2)) ***** error chi2rnd (ones (2), ones (3)) ***** error chi2rnd (i) ***** error chi2rnd (1, -1) ***** error chi2rnd (1, ones (2)) ***** error chi2rnd (1, [2 -1 2]) ***** error chi2rnd (ones (2,2), 3) ***** error chi2rnd (ones (2,2), [3, 2]) ***** error chi2rnd (ones (2,2), 2, 3) 19 tests, 19 passed, 0 known failure, 0 skipped [inst/distributions/expcdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/expcdf.m ***** shared x,y x = [-1 0 0.5 1 Inf]; y = [0, 1 - exp(-x(2:end)/2)]; ***** assert (expcdf (x, 2*ones (1,5)), y) ***** assert (expcdf (x, 2), y) ***** assert (expcdf (x, 2*[1 0 NaN 1 1]), [y(1) NaN NaN y(4:5)]) ***** assert (expcdf ([x, NaN], 2), [y, NaN]) ***** assert (expcdf (single ([x, NaN]), 2), single ([y, NaN])) ***** assert (expcdf ([x, NaN], single (2)), single ([y, NaN])) ***** error expcdf () ***** error expcdf (1) ***** error expcdf (1,2,3) ***** error expcdf (ones (3), ones (2)) ***** error expcdf (ones (2), ones (3)) ***** error expcdf (i, 2) ***** error expcdf (2, i) 13 tests, 13 passed, 0 known failure, 0 skipped [inst/distributions/expinv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/expinv.m ***** shared x x = [-1 0 0.3934693402873666 1 2]; ***** assert (expinv (x, 2*ones (1,5)), [NaN 0 1 Inf NaN], eps) ***** assert (expinv (x, 2), [NaN 0 1 Inf NaN], eps) ***** assert (expinv (x, 2*[1 0 NaN 1 1]), [NaN NaN NaN Inf NaN], eps) ***** assert (expinv ([x(1:2) NaN x(4:5)], 2), [NaN 0 NaN Inf NaN], eps) ***** assert (expinv ([x, NaN], 2), [NaN 0 1 Inf NaN NaN], eps) ***** assert (expinv (single ([x, NaN]), 2), single ([NaN 0 1 Inf NaN NaN]), eps) ***** assert (expinv ([x, NaN], single (2)), single ([NaN 0 1 Inf NaN NaN]), eps) ***** error expinv () ***** error expinv (1) ***** error expinv (1,2,3) ***** error expinv (ones (3), ones (2)) ***** error expinv (ones (2), ones (3)) ***** error expinv (i, 2) ***** error expinv (2, i) 14 tests, 14 passed, 0 known failure, 0 skipped [inst/distributions/exppdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/exppdf.m ***** shared x,y x = [-1 0 0.5 1 Inf]; y = gampdf (x, 1, 2); ***** assert (exppdf (x, 2*ones (1,5)), y) ***** assert (exppdf (x, 2*[1 0 NaN 1 1]), [y(1) NaN NaN y(4:5)]) ***** assert (exppdf ([x, NaN], 2), [y, NaN]) ***** assert (exppdf (single ([x, NaN]), 2), single ([y, NaN])) ***** assert (exppdf ([x, NaN], single (2)), single ([y, NaN])) ***** error exppdf () ***** error exppdf (1) ***** error exppdf (1,2,3) ***** error exppdf (ones (3), ones (2)) ***** error exppdf (ones (2), ones (3)) ***** error exppdf (i, 2) ***** error exppdf (2, i) 12 tests, 12 passed, 0 known failure, 0 skipped [inst/distributions/exprnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/exprnd.m ***** assert (size (exprnd (2)), [1, 1]) ***** assert (size (exprnd (ones (2,1))), [2, 1]) ***** assert (size (exprnd (ones (2,2))), [2, 2]) ***** assert (size (exprnd (1, 3)), [3, 3]) ***** assert (size (exprnd (1, [4 1])), [4, 1]) ***** assert (size (exprnd (1, 4, 1)), [4, 1]) ***** assert (class (exprnd (1)), "double") ***** assert (class (exprnd (single (1))), "single") ***** assert (class (exprnd (single ([1 1]))), "single") ***** error exprnd () ***** error exprnd (1, -1) ***** error exprnd (1, ones (2)) ***** error exprnd (i) ***** error exprnd (1, [2 -1 2]) ***** error exprnd (1, 2, -1) ***** error exprnd (1, 2, ones (2)) ***** error exprnd (ones (2,2), 3) ***** error exprnd (ones (2,2), [3, 2]) ***** error exprnd (ones (2,2), 2, 3) 19 tests, 19 passed, 0 known failure, 0 skipped [inst/distributions/fcdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/fcdf.m ***** shared x,y x = [-1 0 0.5 1 2 Inf]; y = [0 0 1/3 1/2 2/3 1]; ***** assert (fcdf (x, 2*ones (1,6), 2*ones (1,6)), y, eps) ***** assert (fcdf (x, 2, 2*ones (1,6)), y, eps) ***** assert (fcdf (x, 2*ones (1,6), 2), y, eps) ***** assert (fcdf (x, [0 NaN Inf 2 2 2], 2), [NaN NaN NaN y(4:6)], eps) ***** assert (fcdf (x, 2, [0 NaN Inf 2 2 2]), [NaN NaN NaN y(4:6)], eps) ***** assert (fcdf ([x(1:2) NaN x(4:6)], 2, 2), [y(1:2) NaN y(4:6)], eps) ***** assert (fcdf ([x, NaN], 2, 2), [y, NaN], eps) ***** assert (fcdf (single ([x, NaN]), 2, 2), single ([y, NaN]), eps ("single")) ***** assert (fcdf ([x, NaN], single (2), 2), single ([y, NaN]), eps ("single")) ***** assert (fcdf ([x, NaN], 2, single (2)), single ([y, NaN]), eps ("single")) ***** error fcdf () ***** error fcdf (1) ***** error fcdf (1,2) ***** error fcdf (1,2,3,4) ***** error fcdf (ones (3), ones (2), ones (2)) ***** error fcdf (ones (2), ones (3), ones (2)) ***** error fcdf (ones (2), ones (2), ones (3)) ***** error fcdf (i, 2, 2) ***** error fcdf (2, i, 2) ***** error fcdf (2, 2, i) 20 tests, 20 passed, 0 known failure, 0 skipped [inst/distributions/finv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/finv.m ***** shared x x = [-1 0 0.5 1 2]; ***** assert (finv (x, 2*ones (1,5), 2*ones (1,5)), [NaN 0 1 Inf NaN]) ***** assert (finv (x, 2, 2*ones (1,5)), [NaN 0 1 Inf NaN]) ***** assert (finv (x, 2*ones (1,5), 2), [NaN 0 1 Inf NaN]) ***** assert (finv (x, [2 -Inf NaN Inf 2], 2), [NaN NaN NaN NaN NaN]) ***** assert (finv (x, 2, [2 -Inf NaN Inf 2]), [NaN NaN NaN NaN NaN]) ***** assert (finv ([x(1:2) NaN x(4:5)], 2, 2), [NaN 0 NaN Inf NaN]) ***** assert (finv ([x, NaN], 2, 2), [NaN 0 1 Inf NaN NaN]) ***** assert (finv (single ([x, NaN]), 2, 2), single ([NaN 0 1 Inf NaN NaN])) ***** assert (finv ([x, NaN], single (2), 2), single ([NaN 0 1 Inf NaN NaN])) ***** assert (finv ([x, NaN], 2, single (2)), single ([NaN 0 1 Inf NaN NaN])) ***** error finv () ***** error finv (1) ***** error finv (1,2) ***** error finv (1,2,3,4) ***** error finv (ones (3), ones (2), ones (2)) ***** error finv (ones (2), ones (3), ones (2)) ***** error finv (ones (2), ones (2), ones (3)) ***** error finv (i, 2, 2) ***** error finv (2, i, 2) ***** error finv (2, 2, i) 20 tests, 20 passed, 0 known failure, 0 skipped [inst/distributions/fpdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/fpdf.m ***** test x = rand (10,1); x = x(x > 0.1 & x < 0.9); y = tpdf (sqrt (x), 2) ./ sqrt (x); assert (fpdf (x, 1, 2), y, 5*eps); ***** shared x,y x = [-1 0 0.5 1 2]; y = [0 0 4/9 1/4 1/9]; ***** assert (fpdf (x, 2*ones (1,5), 2*ones (1,5)), y, eps) ***** assert (fpdf (x, 2, 2*ones (1,5)), y, eps) ***** assert (fpdf (x, 2*ones (1,5), 2), y, eps) ***** assert (fpdf (x, [0 NaN Inf 2 2], 2), [NaN NaN NaN y(4:5)], eps) ***** assert (fpdf (x, 2, [0 NaN Inf 2 2]), [NaN NaN NaN y(4:5)], eps) ***** assert (fpdf ([x, NaN], 2, 2), [y, NaN], eps) ***** assert (fpdf (single ([x, NaN]), 2, 2), single ([y, NaN]), eps ("single")) ***** assert (fpdf ([x, NaN], single (2), 2), single ([y, NaN]), eps ("single")) ***** assert (fpdf ([x, NaN], 2, single (2)), single ([y, NaN]), eps ("single")) ***** error fpdf () ***** error fpdf (1) ***** error fpdf (1,2) ***** error fpdf (1,2,3,4) ***** error fpdf (ones (3), ones (2), ones (2)) ***** error fpdf (ones (2), ones (3), ones (2)) ***** error fpdf (ones (2), ones (2), ones (3)) ***** error fpdf (i, 2, 2) ***** error fpdf (2, i, 2) ***** error fpdf (2, 2, i) 20 tests, 20 passed, 0 known failure, 0 skipped [inst/distributions/frnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/frnd.m ***** assert (size (frnd (1,2)), [1, 1]) ***** assert (size (frnd (ones (2,1), 2)), [2, 1]) ***** assert (size (frnd (ones (2,2), 2)), [2, 2]) ***** assert (size (frnd (1, 2*ones (2,1))), [2, 1]) ***** assert (size (frnd (1, 2*ones (2,2))), [2, 2]) ***** assert (size (frnd (1, 2, 3)), [3, 3]) ***** assert (size (frnd (1, 2, [4 1])), [4, 1]) ***** assert (size (frnd (1, 2, 4, 1)), [4, 1]) ***** assert (class (frnd (1, 2)), "double") ***** assert (class (frnd (single (1), 2)), "single") ***** assert (class (frnd (single ([1 1]), 2)), "single") ***** assert (class (frnd (1, single (2))), "single") ***** assert (class (frnd (1, single ([2 2]))), "single") ***** error frnd () ***** error frnd (1) ***** error frnd (ones (3), ones (2)) ***** error frnd (ones (2), ones (3)) ***** error frnd (i, 2) ***** error frnd (2, i) ***** error frnd (1,2, -1) ***** error frnd (1,2, ones (2)) ***** error frnd (1, 2, [2 -1 2]) ***** error frnd (1,2, 1, ones (2)) ***** error frnd (1,2, 1, -1) ***** error frnd (ones (2,2), 2, 3) ***** error frnd (ones (2,2), 2, [3, 2]) ***** error frnd (ones (2,2), 2, 2, 3) 27 tests, 27 passed, 0 known failure, 0 skipped [inst/distributions/gamcdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/gamcdf.m ***** shared x,y x = [-1 0 0.5 1 2 Inf]; y = [0, gammainc(x(2:end), 1)]; ***** assert (gamcdf (x, ones (1,6), ones (1,6)), y) ***** assert (gamcdf (x, 1, ones (1,6)), y) ***** assert (gamcdf (x, ones (1,6), 1), y) ***** assert (gamcdf (x, [0 -Inf NaN Inf 1 1], 1), [NaN NaN NaN NaN y(5:6)]) ***** assert (gamcdf (x, 1, [0 -Inf NaN Inf 1 1]), [NaN NaN NaN NaN y(5:6)]) ***** assert (gamcdf ([x(1:2) NaN x(4:6)], 1, 1), [y(1:2) NaN y(4:6)]) ***** assert (gamcdf ([x, NaN], 1, 1), [y, NaN]) ***** assert (gamcdf (single ([x, NaN]), 1, 1), single ([y, NaN]), eps ("single")) ***** error gamcdf () ***** error gamcdf (1) ***** error gamcdf (1,2) ***** error gamcdf (1,2,3,4) ***** error gamcdf (ones (3), ones (2), ones (2)) ***** error gamcdf (ones (2), ones (3), ones (2)) ***** error gamcdf (ones (2), ones (2), ones (3)) ***** error gamcdf (i, 2, 2) ***** error gamcdf (2, i, 2) ***** error gamcdf (2, 2, i) 18 tests, 18 passed, 0 known failure, 0 skipped [inst/distributions/gaminv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/gaminv.m ***** shared x x = [-1 0 0.63212055882855778 1 2]; ***** assert (gaminv (x, ones (1,5), ones (1,5)), [NaN 0 1 Inf NaN], eps) ***** assert (gaminv (x, 1, ones (1,5)), [NaN 0 1 Inf NaN], eps) ***** assert (gaminv (x, ones (1,5), 1), [NaN 0 1 Inf NaN], eps) ***** assert (gaminv (x, [1 -Inf NaN Inf 1], 1), [NaN NaN NaN NaN NaN]) ***** assert (gaminv (x, 1, [1 -Inf NaN Inf 1]), [NaN NaN NaN NaN NaN]) ***** assert (gaminv ([x(1:2) NaN x(4:5)], 1, 1), [NaN 0 NaN Inf NaN]) ***** assert (gaminv ([x, NaN], 1, 1), [NaN 0 1 Inf NaN NaN], eps) ***** assert (gaminv (single ([x, NaN]), 1, 1), single ([NaN 0 1 Inf NaN NaN]), eps ("single")) ***** assert (gaminv ([x, NaN], single (1), 1), single ([NaN 0 1 Inf NaN NaN]), eps ("single")) ***** assert (gaminv ([x, NaN], 1, single (1)), single ([NaN 0 1 Inf NaN NaN]), eps ("single")) ***** error gaminv () ***** error gaminv (1) ***** error gaminv (1,2) ***** error gaminv (1,2,3,4) ***** error gaminv (ones (3), ones (2), ones (2)) ***** error gaminv (ones (2), ones (3), ones (2)) ***** error gaminv (ones (2), ones (2), ones (3)) ***** error gaminv (i, 2, 2) ***** error gaminv (2, i, 2) ***** error gaminv (2, 2, i) 20 tests, 20 passed, 0 known failure, 0 skipped [inst/distributions/gampdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/gampdf.m ***** shared x,y x = [-1 0 0.5 1 Inf]; y = [0 exp(-x(2:end))]; ***** assert (gampdf (x, ones (1,5), ones (1,5)), y) ***** assert (gampdf (x, 1, ones (1,5)), y) ***** assert (gampdf (x, ones (1,5), 1), y) ***** assert (gampdf (x, [0 -Inf NaN Inf 1], 1), [NaN NaN NaN NaN y(5)]) ***** assert (gampdf (x, 1, [0 -Inf NaN Inf 1]), [NaN NaN NaN 0 y(5)]) ***** assert (gampdf ([x, NaN], 1, 1), [y, NaN]) ***** assert (gampdf (single ([x, NaN]), 1, 1), single ([y, NaN])) ***** assert (gampdf ([x, NaN], single (1), 1), single ([y, NaN])) ***** assert (gampdf ([x, NaN], 1, single (1)), single ([y, NaN])) ***** error gampdf () ***** error gampdf (1) ***** error gampdf (1,2) ***** error gampdf (1,2,3,4) ***** error gampdf (ones (3), ones (2), ones (2)) ***** error gampdf (ones (2), ones (3), ones (2)) ***** error gampdf (ones (2), ones (2), ones (3)) ***** error gampdf (i, 2, 2) ***** error gampdf (2, i, 2) ***** error gampdf (2, 2, i) 19 tests, 19 passed, 0 known failure, 0 skipped [inst/distributions/gamrnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/gamrnd.m ***** assert (size (gamrnd (1,2)), [1, 1]) ***** assert (size (gamrnd (ones (2,1), 2)), [2, 1]) ***** assert (size (gamrnd (ones (2,2), 2)), [2, 2]) ***** assert (size (gamrnd (1, 2*ones (2,1))), [2, 1]) ***** assert (size (gamrnd (1, 2*ones (2,2))), [2, 2]) ***** assert (size (gamrnd (1, 2, 3)), [3, 3]) ***** assert (size (gamrnd (1, 2, [4 1])), [4, 1]) ***** assert (size (gamrnd (1, 2, 4, 1)), [4, 1]) ***** assert (class (gamrnd (1, 2)), "double") ***** assert (class (gamrnd (single (1), 2)), "single") ***** assert (class (gamrnd (single ([1 1]), 2)), "single") ***** assert (class (gamrnd (1, single (2))), "single") ***** assert (class (gamrnd (1, single ([2 2]))), "single") ***** error gamrnd () ***** error gamrnd (1) ***** error gamrnd (ones (3), ones (2)) ***** error gamrnd (ones (2), ones (3)) ***** error gamrnd (i, 2) ***** error gamrnd (2, i) ***** error gamrnd (1,2, -1) ***** error gamrnd (1,2, ones (2)) ***** error gamrnd (1, 2, [2 -1 2]) ***** error gamrnd (1,2, 1, ones (2)) ***** error gamrnd (1,2, 1, -1) ***** error gamrnd (ones (2,2), 2, 3) ***** error gamrnd (ones (2,2), 2, [3, 2]) ***** error gamrnd (ones (2,2), 2, 2, 3) 27 tests, 27 passed, 0 known failure, 0 skipped [inst/distributions/geocdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/geocdf.m ***** shared x,y x = [-1 0 1 Inf]; y = [0 0.5 0.75 1]; ***** assert (geocdf (x, 0.5*ones (1,4)), y) ***** assert (geocdf (x, 0.5), y) ***** assert (geocdf (x, 0.5*[-1 NaN 4 1]), [NaN NaN NaN y(4)]) ***** assert (geocdf ([x(1:2) NaN x(4)], 0.5), [y(1:2) NaN y(4)]) ***** assert (geocdf ([x, NaN], 0.5), [y, NaN]) ***** assert (geocdf (single ([x, NaN]), 0.5), single ([y, NaN])) ***** assert (geocdf ([x, NaN], single (0.5)), single ([y, NaN])) ***** error geocdf () ***** error geocdf (1) ***** error geocdf (1,2,3) ***** error geocdf (ones (3), ones (2)) ***** error geocdf (ones (2), ones (3)) ***** error geocdf (i, 2) ***** error geocdf (2, i) 14 tests, 14 passed, 0 known failure, 0 skipped [inst/distributions/geoinv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/geoinv.m ***** shared x x = [-1 0 0.75 1 2]; ***** assert (geoinv (x, 0.5*ones (1,5)), [NaN 0 1 Inf NaN]) ***** assert (geoinv (x, 0.5), [NaN 0 1 Inf NaN]) ***** assert (geoinv (x, 0.5*[1 -1 NaN 4 1]), [NaN NaN NaN NaN NaN]) ***** assert (geoinv ([x(1:2) NaN x(4:5)], 0.5), [NaN 0 NaN Inf NaN]) ***** assert (geoinv ([x, NaN], 0.5), [NaN 0 1 Inf NaN NaN]) ***** assert (geoinv (single ([x, NaN]), 0.5), single ([NaN 0 1 Inf NaN NaN])) ***** assert (geoinv ([x, NaN], single (0.5)), single ([NaN 0 1 Inf NaN NaN])) ***** error geoinv () ***** error geoinv (1) ***** error geoinv (1,2,3) ***** error geoinv (ones (3), ones (2)) ***** error geoinv (ones (2), ones (3)) ***** error geoinv (i, 2) ***** error geoinv (2, i) 14 tests, 14 passed, 0 known failure, 0 skipped [inst/distributions/geopdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/geopdf.m ***** shared x,y x = [-1 0 1 Inf]; y = [0, 1/2, 1/4, NaN]; ***** assert (geopdf (x, 0.5*ones (1,4)), y) ***** assert (geopdf (x, 0.5), y) ***** assert (geopdf (x, 0.5*[-1 NaN 4 1]), [NaN NaN NaN y(4)]) ***** assert (geopdf ([x, NaN], 0.5), [y, NaN]) ***** assert (geopdf (single ([x, NaN]), 0.5), single ([y, NaN]), 5*eps ("single")) ***** assert (geopdf ([x, NaN], single (0.5)), single ([y, NaN]), 5*eps ("single")) ***** error geopdf () ***** error geopdf (1) ***** error geopdf (1,2,3) ***** error geopdf (ones (3), ones (2)) ***** error geopdf (ones (2), ones (3)) ***** error geopdf (i, 2) ***** error geopdf (2, i) 13 tests, 13 passed, 0 known failure, 0 skipped [inst/distributions/geornd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/geornd.m ***** assert (size (geornd (0.5)), [1, 1]) ***** assert (size (geornd (0.5*ones (2,1))), [2, 1]) ***** assert (size (geornd (0.5*ones (2,2))), [2, 2]) ***** assert (size (geornd (0.5, 3)), [3, 3]) ***** assert (size (geornd (0.5, [4 1])), [4, 1]) ***** assert (size (geornd (0.5, 4, 1)), [4, 1]) ***** assert (class (geornd (0.5)), "double") ***** assert (class (geornd (single (0.5))), "single") ***** assert (class (geornd (single ([0.5 0.5]))), "single") ***** assert (class (geornd (single (0))), "single") ***** assert (class (geornd (single (1))), "single") ***** error geornd () ***** error geornd (ones (3), ones (2)) ***** error geornd (ones (2), ones (3)) ***** error geornd (i) ***** error geornd (1, -1) ***** error geornd (1, ones (2)) ***** error geornd (1, [2 -1 2]) ***** error geornd (ones (2,2), 2, 3) ***** error geornd (ones (2,2), 3, 2) 20 tests, 20 passed, 0 known failure, 0 skipped [inst/distributions/hygecdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/hygecdf.m ***** shared x,y x = [-1 0 1 2 3]; y = [0 1/6 5/6 1 1]; ***** assert (hygecdf (x, 4*ones (1,5), 2, 2), y, eps) ***** assert (hygecdf (x, 4, 2*ones (1,5), 2), y, eps) ***** assert (hygecdf (x, 4, 2, 2*ones (1,5)), y, eps) ***** assert (hygecdf (x, 4*[1 -1 NaN 1.1 1], 2, 2), [y(1) NaN NaN NaN y(5)], eps) ***** assert (hygecdf (x, 4, 2*[1 -1 NaN 1.1 1], 2), [y(1) NaN NaN NaN y(5)], eps) ***** assert (hygecdf (x, 4, 5, 2), [NaN NaN NaN NaN NaN]) ***** assert (hygecdf (x, 4, 2, 2*[1 -1 NaN 1.1 1]), [y(1) NaN NaN NaN y(5)], eps) ***** assert (hygecdf (x, 4, 2, 5), [NaN NaN NaN NaN NaN]) ***** assert (hygecdf ([x(1:2) NaN x(4:5)], 4, 2, 2), [y(1:2) NaN y(4:5)], eps) ***** assert (hygecdf ([x, NaN], 4, 2, 2), [y, NaN], eps) ***** assert (hygecdf (single ([x, NaN]), 4, 2, 2), single ([y, NaN]), eps ("single")) ***** assert (hygecdf ([x, NaN], single (4), 2, 2), single ([y, NaN]), eps ("single")) ***** assert (hygecdf ([x, NaN], 4, single (2), 2), single ([y, NaN]), eps ("single")) ***** assert (hygecdf ([x, NaN], 4, 2, single (2)), single ([y, NaN]), eps ("single")) ***** error hygecdf () ***** error hygecdf (1) ***** error hygecdf (1,2) ***** error hygecdf (1,2,3) ***** error hygecdf (1,2,3,4,5) ***** error hygecdf (ones (2), ones (3), 1, 1) ***** error hygecdf (1, ones (2), ones (3), 1) ***** error hygecdf (1, 1, ones (2), ones (3)) ***** error hygecdf (i, 2, 2, 2) ***** error hygecdf (2, i, 2, 2) ***** error hygecdf (2, 2, i, 2) ***** error hygecdf (2, 2, 2, i) 26 tests, 26 passed, 0 known failure, 0 skipped [inst/distributions/hygeinv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/hygeinv.m ***** shared x x = [-1 0 0.5 1 2]; ***** assert (hygeinv (x, 4*ones (1,5), 2*ones (1,5), 2*ones (1,5)), [NaN 0 1 2 NaN]) ***** assert (hygeinv (x, 4*ones (1,5), 2, 2), [NaN 0 1 2 NaN]) ***** assert (hygeinv (x, 4, 2*ones (1,5), 2), [NaN 0 1 2 NaN]) ***** assert (hygeinv (x, 4, 2, 2*ones (1,5)), [NaN 0 1 2 NaN]) ***** assert (hygeinv (x, 4*[1 -1 NaN 1.1 1], 2, 2), [NaN NaN NaN NaN NaN]) ***** assert (hygeinv (x, 4, 2*[1 -1 NaN 1.1 1], 2), [NaN NaN NaN NaN NaN]) ***** assert (hygeinv (x, 4, 5, 2), [NaN NaN NaN NaN NaN]) ***** assert (hygeinv (x, 4, 2, 2*[1 -1 NaN 1.1 1]), [NaN NaN NaN NaN NaN]) ***** assert (hygeinv (x, 4, 2, 5), [NaN NaN NaN NaN NaN]) ***** assert (hygeinv ([x(1:2) NaN x(4:5)], 4, 2, 2), [NaN 0 NaN 2 NaN]) ***** assert (hygeinv ([x, NaN], 4, 2, 2), [NaN 0 1 2 NaN NaN]) ***** assert (hygeinv (single ([x, NaN]), 4, 2, 2), single ([NaN 0 1 2 NaN NaN])) ***** assert (hygeinv ([x, NaN], single (4), 2, 2), single ([NaN 0 1 2 NaN NaN])) ***** assert (hygeinv ([x, NaN], 4, single (2), 2), single ([NaN 0 1 2 NaN NaN])) ***** assert (hygeinv ([x, NaN], 4, 2, single (2)), single ([NaN 0 1 2 NaN NaN])) ***** error hygeinv () ***** error hygeinv (1) ***** error hygeinv (1,2) ***** error hygeinv (1,2,3) ***** error hygeinv (1,2,3,4,5) ***** error hygeinv (ones (2), ones (3), 1, 1) ***** error hygeinv (1, ones (2), ones (3), 1) ***** error hygeinv (1, 1, ones (2), ones (3)) ***** error hygeinv (i, 2, 2, 2) ***** error hygeinv (2, i, 2, 2) ***** error hygeinv (2, 2, i, 2) ***** error hygeinv (2, 2, 2, i) 27 tests, 27 passed, 0 known failure, 0 skipped [inst/distributions/hygepdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/hygepdf.m ***** shared x,y x = [-1 0 1 2 3]; y = [0 1/6 4/6 1/6 0]; ***** assert (hygepdf (x, 4*ones (1,5), 2, 2), y, eps) ***** assert (hygepdf (x, 4, 2*ones (1,5), 2), y, eps) ***** assert (hygepdf (x, 4, 2, 2*ones (1,5)), y, eps) ***** assert (hygepdf (x, 4*[1 -1 NaN 1.1 1], 2, 2), [0 NaN NaN NaN 0], eps) ***** assert (hygepdf (x, 4, 2*[1 -1 NaN 1.1 1], 2), [0 NaN NaN NaN 0], eps) ***** assert (hygepdf (x, 4, 5, 2), [NaN NaN NaN NaN NaN], eps) ***** assert (hygepdf (x, 4, 2, 2*[1 -1 NaN 1.1 1]), [0 NaN NaN NaN 0], eps) ***** assert (hygepdf (x, 4, 2, 5), [NaN NaN NaN NaN NaN], eps) ***** assert (hygepdf ([x, NaN], 4, 2, 2), [y, NaN], eps) ***** assert (hygepdf (single ([x, NaN]), 4, 2, 2), single ([y, NaN]), eps("single")) ***** assert (hygepdf ([x, NaN], single (4), 2, 2), single ([y, NaN]), eps("single")) ***** assert (hygepdf ([x, NaN], 4, single (2), 2), single ([y, NaN]), eps("single")) ***** assert (hygepdf ([x, NaN], 4, 2, single (2)), single ([y, NaN]), eps("single")) ***** error hygepdf () ***** error hygepdf (1) ***** error hygepdf (1,2) ***** error hygepdf (1,2,3) ***** error hygepdf (1,2,3,4,5) ***** error hygepdf (1, ones (3), ones (2), ones (2)) ***** error hygepdf (1, ones (2), ones (3), ones (2)) ***** error hygepdf (1, ones (2), ones (2), ones (3)) ***** error hygepdf (i, 2, 2, 2) ***** error hygepdf (2, i, 2, 2) ***** error hygepdf (2, 2, i, 2) ***** error hygepdf (2, 2, 2, i) 25 tests, 25 passed, 0 known failure, 0 skipped [inst/distributions/hygernd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/hygernd.m ***** assert (size (hygernd (4,2,2)), [1, 1]) ***** assert (size (hygernd (4*ones (2,1), 2,2)), [2, 1]) ***** assert (size (hygernd (4*ones (2,2), 2,2)), [2, 2]) ***** assert (size (hygernd (4, 2*ones (2,1), 2)), [2, 1]) ***** assert (size (hygernd (4, 2*ones (2,2), 2)), [2, 2]) ***** assert (size (hygernd (4, 2, 2*ones (2,1))), [2, 1]) ***** assert (size (hygernd (4, 2, 2*ones (2,2))), [2, 2]) ***** assert (size (hygernd (4, 2, 2, 3)), [3, 3]) ***** assert (size (hygernd (4, 2, 2, [4 1])), [4, 1]) ***** assert (size (hygernd (4, 2, 2, 4, 1)), [4, 1]) ***** assert (class (hygernd (4,2,2)), "double") ***** assert (class (hygernd (single (4),2,2)), "single") ***** assert (class (hygernd (single ([4 4]),2,2)), "single") ***** assert (class (hygernd (4,single (2),2)), "single") ***** assert (class (hygernd (4,single ([2 2]),2)), "single") ***** assert (class (hygernd (4,2,single (2))), "single") ***** assert (class (hygernd (4,2,single ([2 2]))), "single") ***** error hygernd () ***** error hygernd (1) ***** error hygernd (1,2) ***** error hygernd (ones (3), ones (2), ones (2), 2) ***** error hygernd (ones (2), ones (3), ones (2), 2) ***** error hygernd (ones (2), ones (2), ones (3), 2) ***** error hygernd (i, 2, 2) ***** error hygernd (2, i, 2) ***** error hygernd (2, 2, i) ***** error hygernd (4,2,2, -1) ***** error hygernd (4,2,2, ones (2)) ***** error hygernd (4,2,2, [2 -1 2]) ***** error hygernd (4*ones (2),2,2, 3) ***** error hygernd (4*ones (2),2,2, [3, 2]) ***** error hygernd (4*ones (2),2,2, 3, 2) 32 tests, 32 passed, 0 known failure, 0 skipped [inst/distributions/kolmogorov_smirnov_cdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/kolmogorov_smirnov_cdf.m ***** error kolmogorov_smirnov_cdf () ***** error kolmogorov_smirnov_cdf (1,2,3) ***** error kolmogorov_smirnov_cdf (1, ones (2)) ***** error kolmogorov_smirnov_cdf ([], 1) 4 tests, 4 passed, 0 known failure, 0 skipped [inst/distributions/laplace_cdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/laplace_cdf.m ***** shared x,y x = [-Inf -log(2) 0 log(2) Inf]; y = [0, 1/4, 1/2, 3/4, 1]; ***** assert (laplace_cdf ([x, NaN]), [y, NaN]) ***** assert (laplace_cdf (single ([x, NaN])), single ([y, NaN])) ***** error laplace_cdf () ***** error laplace_cdf (1,2) ***** error laplace_cdf (i) 5 tests, 5 passed, 0 known failure, 0 skipped [inst/distributions/laplace_inv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/laplace_inv.m ***** shared x x = [-1 0 0.5 1 2]; ***** assert (laplace_inv (x), [NaN -Inf 0 Inf NaN]) ***** assert (laplace_inv ([x, NaN]), [NaN -Inf 0 Inf NaN NaN]) ***** assert (laplace_inv (single ([x, NaN])), single ([NaN -Inf 0 Inf NaN NaN])) ***** error laplace_inv () ***** error laplace_inv (1,2) ***** error laplace_inv (i) 6 tests, 6 passed, 0 known failure, 0 skipped [inst/distributions/laplace_pdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/laplace_pdf.m ***** shared x,y x = [-Inf -log(2) 0 log(2) Inf]; y = [0, 1/4, 1/2, 1/4, 0]; ***** assert (laplace_pdf ([x, NaN]), [y, NaN]) ***** assert (laplace_pdf (single ([x, NaN])), single ([y, NaN])) ***** error laplace_pdf () ***** error laplace_pdf (1,2) ***** error laplace_pdf (i) 5 tests, 5 passed, 0 known failure, 0 skipped [inst/distributions/laplace_rnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/laplace_rnd.m ***** assert (size (laplace_rnd (3)), [3, 3]) ***** assert (size (laplace_rnd ([4 1])), [4, 1]) ***** assert (size (laplace_rnd (4,1)), [4, 1]) ***** error laplace_rnd () ***** error laplace_rnd (-1) ***** error laplace_rnd (ones (2)) ***** error laplace_rnd ([2 -1 2]) ***** error laplace_rnd (1, ones (2)) ***** error laplace_rnd (1, -1) 9 tests, 9 passed, 0 known failure, 0 skipped [inst/distributions/logistic_cdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/logistic_cdf.m ***** shared x,y x = [-Inf -log(3) 0 log(3) Inf]; y = [0, 1/4, 1/2, 3/4, 1]; ***** assert (logistic_cdf ([x, NaN]), [y, NaN], eps) ***** assert (logistic_cdf (single ([x, NaN])), single ([y, NaN]), eps ("single")) ***** error logistic_cdf () ***** error logistic_cdf (1,2) ***** error logistic_cdf (i) 5 tests, 5 passed, 0 known failure, 0 skipped [inst/distributions/logistic_inv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/logistic_inv.m ***** shared x x = [-1 0 0.5 1 2]; ***** assert (logistic_inv (x), [NaN -Inf 0 Inf NaN]) ***** assert (logistic_inv ([x, NaN]), [NaN -Inf 0 Inf NaN NaN]) ***** assert (logistic_inv (single ([x, NaN])), single ([NaN -Inf 0 Inf NaN NaN])) ***** error logistic_inv () ***** error logistic_inv (1,2) ***** error logistic_inv (i) 6 tests, 6 passed, 0 known failure, 0 skipped [inst/distributions/logistic_pdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/logistic_pdf.m ***** shared x,y x = [-Inf -log(4) 0 log(4) Inf]; y = [0, 0.16, 1/4, 0.16, 0]; ***** assert (logistic_pdf ([x, NaN]), [y, NaN], eps) ***** assert (logistic_pdf (single ([x, NaN])), single ([y, NaN]), eps ("single")) ***** error logistic_pdf () ***** error logistic_pdf (1,2) ***** error logistic_pdf (i) 5 tests, 5 passed, 0 known failure, 0 skipped [inst/distributions/logistic_rnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/logistic_rnd.m ***** assert (size (logistic_rnd (3)), [3, 3]) ***** assert (size (logistic_rnd ([4 1])), [4, 1]) ***** assert (size (logistic_rnd (4,1)), [4, 1]) ***** error logistic_rnd () ***** error logistic_rnd (-1) ***** error logistic_rnd (ones (2)) ***** error logistic_rnd ([2 -1 2]) ***** error logistic_rnd (1, ones (2)) ***** error logistic_rnd (1, -1) 9 tests, 9 passed, 0 known failure, 0 skipped [inst/distributions/logncdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/logncdf.m ***** shared x,y x = [-1 0 1 e Inf]; y = [0, 0, 0.5, 1/2+1/2*erf(1/2), 1]; ***** assert (logncdf (x, zeros (1,5), sqrt(2)*ones (1,5)), y, eps) ***** assert (logncdf (x, 0, sqrt(2)*ones (1,5)), y, eps) ***** assert (logncdf (x, zeros (1,5), sqrt(2)), y, eps) ***** assert (logncdf (x, [0 1 NaN 0 1], sqrt(2)), [0 0 NaN y(4:5)], eps) ***** assert (logncdf (x, 0, sqrt(2)*[0 NaN Inf 1 1]), [NaN NaN NaN y(4:5)], eps) ***** assert (logncdf ([x(1:3) NaN x(5)], 0, sqrt(2)), [y(1:3) NaN y(5)], eps) ***** assert (logncdf ([x, NaN], 0, sqrt(2)), [y, NaN], eps) ***** assert (logncdf (single ([x, NaN]), 0, sqrt(2)), single ([y, NaN]), eps ("single")) ***** assert (logncdf ([x, NaN], single (0), sqrt(2)), single ([y, NaN]), eps ("single")) ***** assert (logncdf ([x, NaN], 0, single (sqrt(2))), single ([y, NaN]), eps ("single")) ***** error logncdf () ***** error logncdf (1,2) ***** error logncdf (1,2,3,4) ***** error logncdf (ones (3), ones (2), ones (2)) ***** error logncdf (ones (2), ones (3), ones (2)) ***** error logncdf (ones (2), ones (2), ones (3)) ***** error logncdf (i, 2, 2) ***** error logncdf (2, i, 2) ***** error logncdf (2, 2, i) 19 tests, 19 passed, 0 known failure, 0 skipped [inst/distributions/logninv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/logninv.m ***** shared x x = [-1 0 0.5 1 2]; ***** assert (logninv (x, ones (1,5), ones (1,5)), [NaN 0 e Inf NaN]) ***** assert (logninv (x, 1, ones (1,5)), [NaN 0 e Inf NaN]) ***** assert (logninv (x, ones (1,5), 1), [NaN 0 e Inf NaN]) ***** assert (logninv (x, [1 1 NaN 0 1], 1), [NaN 0 NaN Inf NaN]) ***** assert (logninv (x, 1, [1 0 NaN Inf 1]), [NaN NaN NaN NaN NaN]) ***** assert (logninv ([x(1:2) NaN x(4:5)], 1, 2), [NaN 0 NaN Inf NaN]) ***** assert (logninv ([x, NaN], 1, 1), [NaN 0 e Inf NaN NaN]) ***** assert (logninv (single ([x, NaN]), 1, 1), single ([NaN 0 e Inf NaN NaN])) ***** assert (logninv ([x, NaN], single (1), 1), single ([NaN 0 e Inf NaN NaN])) ***** assert (logninv ([x, NaN], 1, single (1)), single ([NaN 0 e Inf NaN NaN])) ***** error logninv () ***** error logninv (1,2) ***** error logninv (1,2,3,4) ***** error logninv (ones (3), ones (2), ones (2)) ***** error logninv (ones (2), ones (3), ones (2)) ***** error logninv (ones (2), ones (2), ones (3)) ***** error logninv (i, 2, 2) ***** error logninv (2, i, 2) ***** error logninv (2, 2, i) 19 tests, 19 passed, 0 known failure, 0 skipped [inst/distributions/lognpdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/lognpdf.m ***** shared x,y x = [-1 0 e Inf]; y = [0, 0, 1/(e*sqrt(2*pi)) * exp(-1/2), 0]; ***** assert (lognpdf (x, zeros (1,4), ones (1,4)), y, eps) ***** assert (lognpdf (x, 0, ones (1,4)), y, eps) ***** assert (lognpdf (x, zeros (1,4), 1), y, eps) ***** assert (lognpdf (x, [0 1 NaN 0], 1), [0 0 NaN y(4)], eps) ***** assert (lognpdf (x, 0, [0 NaN Inf 1]), [NaN NaN NaN y(4)], eps) ***** assert (lognpdf ([x, NaN], 0, 1), [y, NaN], eps) ***** assert (lognpdf (single ([x, NaN]), 0, 1), single ([y, NaN]), eps ("single")) ***** assert (lognpdf ([x, NaN], single (0), 1), single ([y, NaN]), eps ("single")) ***** assert (lognpdf ([x, NaN], 0, single (1)), single ([y, NaN]), eps ("single")) ***** error lognpdf () ***** error lognpdf (1,2) ***** error lognpdf (1,2,3,4) ***** error lognpdf (ones (3), ones (2), ones (2)) ***** error lognpdf (ones (2), ones (3), ones (2)) ***** error lognpdf (ones (2), ones (2), ones (3)) ***** error lognpdf (i, 2, 2) ***** error lognpdf (2, i, 2) ***** error lognpdf (2, 2, i) 18 tests, 18 passed, 0 known failure, 0 skipped [inst/distributions/lognrnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/lognrnd.m ***** assert (size (lognrnd (1,2)), [1, 1]) ***** assert (size (lognrnd (ones (2,1), 2)), [2, 1]) ***** assert (size (lognrnd (ones (2,2), 2)), [2, 2]) ***** assert (size (lognrnd (1, 2*ones (2,1))), [2, 1]) ***** assert (size (lognrnd (1, 2*ones (2,2))), [2, 2]) ***** assert (size (lognrnd (1, 2, 3)), [3, 3]) ***** assert (size (lognrnd (1, 2, [4 1])), [4, 1]) ***** assert (size (lognrnd (1, 2, 4, 1)), [4, 1]) ***** assert (class (lognrnd (1, 2)), "double") ***** assert (class (lognrnd (single (1), 2)), "single") ***** assert (class (lognrnd (single ([1 1]), 2)), "single") ***** assert (class (lognrnd (1, single (2))), "single") ***** assert (class (lognrnd (1, single ([2 2]))), "single") ***** error lognrnd () ***** error lognrnd (1) ***** error lognrnd (ones (3), ones (2)) ***** error lognrnd (ones (2), ones (3)) ***** error lognrnd (i, 2) ***** error lognrnd (2, i) ***** error lognrnd (1,2, -1) ***** error lognrnd (1,2, ones (2)) ***** error lognrnd (1, 2, [2 -1 2]) ***** error lognrnd (1,2, 1, ones (2)) ***** error lognrnd (1,2, 1, -1) ***** error lognrnd (ones (2,2), 2, 3) ***** error lognrnd (ones (2,2), 2, [3, 2]) ***** error lognrnd (ones (2,2), 2, 2, 3) 27 tests, 27 passed, 0 known failure, 0 skipped [inst/distributions/nbincdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/nbincdf.m ***** shared x,y x = [-1 0 1 2 Inf]; y = [0 1/2 3/4 7/8 1]; ***** assert (nbincdf (x, ones (1,5), 0.5*ones (1,5)), y) ***** assert (nbincdf (x, 1, 0.5*ones (1,5)), y) ***** assert (nbincdf (x, ones (1,5), 0.5), y) ***** assert (nbincdf ([x(1:3) 0 x(5)], [0 1 NaN 1.5 Inf], 0.5), [NaN 1/2 NaN nbinpdf(0,1.5,0.5) NaN], eps) ***** assert (nbincdf (x, 1, 0.5*[-1 NaN 4 1 1]), [NaN NaN NaN y(4:5)]) ***** assert (nbincdf ([x(1:2) NaN x(4:5)], 1, 0.5), [y(1:2) NaN y(4:5)]) ***** assert (nbincdf ([x, NaN], 1, 0.5), [y, NaN]) ***** assert (nbincdf (single ([x, NaN]), 1, 0.5), single ([y, NaN])) ***** assert (nbincdf ([x, NaN], single (1), 0.5), single ([y, NaN])) ***** assert (nbincdf ([x, NaN], 1, single (0.5)), single ([y, NaN])) ***** error nbincdf () ***** error nbincdf (1) ***** error nbincdf (1,2) ***** error nbincdf (1,2,3,4) ***** error nbincdf (ones (3), ones (2), ones (2)) ***** error nbincdf (ones (2), ones (3), ones (2)) ***** error nbincdf (ones (2), ones (2), ones (3)) ***** error nbincdf (i, 2, 2) ***** error nbincdf (2, i, 2) ***** error nbincdf (2, 2, i) 20 tests, 20 passed, 0 known failure, 0 skipped [inst/distributions/nbininv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/nbininv.m ***** shared x x = [-1 0 3/4 1 2]; ***** assert (nbininv (x, ones (1,5), 0.5*ones (1,5)), [NaN 0 1 Inf NaN]) ***** assert (nbininv (x, 1, 0.5*ones (1,5)), [NaN 0 1 Inf NaN]) ***** assert (nbininv (x, ones (1,5), 0.5), [NaN 0 1 Inf NaN]) ***** assert (nbininv (x, [1 0 NaN Inf 1], 0.5), [NaN NaN NaN NaN NaN]) ***** assert (nbininv (x, [1 0 1.5 Inf 1], 0.5), [NaN NaN 2 NaN NaN]) ***** assert (nbininv (x, 1, 0.5*[1 -Inf NaN Inf 1]), [NaN NaN NaN NaN NaN]) ***** assert (nbininv ([x(1:2) NaN x(4:5)], 1, 0.5), [NaN 0 NaN Inf NaN]) ***** assert (nbininv ([x, NaN], 1, 0.5), [NaN 0 1 Inf NaN NaN]) ***** assert (nbininv (single ([x, NaN]), 1, 0.5), single ([NaN 0 1 Inf NaN NaN])) ***** assert (nbininv ([x, NaN], single (1), 0.5), single ([NaN 0 1 Inf NaN NaN])) ***** assert (nbininv ([x, NaN], 1, single (0.5)), single ([NaN 0 1 Inf NaN NaN])) ***** shared y, tol y = magic (3) + 1; tol = 1; ***** assert (nbininv (nbincdf (1:10, 3, 0.1), 3, 0.1), 1:10, tol) ***** assert (nbininv (nbincdf (1:10, 3./(1:10), 0.1), 3./(1:10), 0.1), 1:10, tol) ***** assert (nbininv (nbincdf (y, 3./y, 1./y), 3./y, 1./y), y, tol) ***** error nbininv () ***** error nbininv (1) ***** error nbininv (1,2) ***** error nbininv (1,2,3,4) ***** error nbininv (ones (3), ones (2), ones (2)) ***** error nbininv (ones (2), ones (3), ones (2)) ***** error nbininv (ones (2), ones (2), ones (3)) ***** error nbininv (i, 2, 2) ***** error nbininv (2, i, 2) ***** error nbininv (2, 2, i) 24 tests, 24 passed, 0 known failure, 0 skipped [inst/distributions/nbinpdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/nbinpdf.m ***** shared x,y x = [-1 0 1 2 Inf]; y = [0 1/2 1/4 1/8 NaN]; ***** assert (nbinpdf (x, ones (1,5), 0.5*ones (1,5)), y) ***** assert (nbinpdf (x, 1, 0.5*ones (1,5)), y) ***** assert (nbinpdf (x, ones (1,5), 0.5), y) ***** assert (nbinpdf (x, [0 1 NaN 1.5 Inf], 0.5), [NaN 1/2 NaN 1.875*0.5^1.5/4 NaN], eps) ***** assert (nbinpdf (x, 1, 0.5*[-1 NaN 4 1 1]), [NaN NaN NaN y(4:5)]) ***** assert (nbinpdf ([x, NaN], 1, 0.5), [y, NaN]) ***** assert (nbinpdf (single ([x, NaN]), 1, 0.5), single ([y, NaN])) ***** assert (nbinpdf ([x, NaN], single (1), 0.5), single ([y, NaN])) ***** assert (nbinpdf ([x, NaN], 1, single (0.5)), single ([y, NaN])) ***** error nbinpdf () ***** error nbinpdf (1) ***** error nbinpdf (1,2) ***** error nbinpdf (1,2,3,4) ***** error nbinpdf (ones (3), ones (2), ones (2)) ***** error nbinpdf (ones (2), ones (3), ones (2)) ***** error nbinpdf (ones (2), ones (2), ones (3)) ***** error nbinpdf (i, 2, 2) ***** error nbinpdf (2, i, 2) ***** error nbinpdf (2, 2, i) 19 tests, 19 passed, 0 known failure, 0 skipped [inst/distributions/nbinrnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/nbinrnd.m ***** assert (size (nbinrnd (2, 1/2)), [1, 1]) ***** assert (size (nbinrnd (2*ones (2,1), 1/2)), [2, 1]) ***** assert (size (nbinrnd (2*ones (2,2), 1/2)), [2, 2]) ***** assert (size (nbinrnd (2, 1/2*ones (2,1))), [2, 1]) ***** assert (size (nbinrnd (2, 1/2*ones (2,2))), [2, 2]) ***** assert (size (nbinrnd (2, 1/2, 3)), [3, 3]) ***** assert (size (nbinrnd (2, 1/2, [4 1])), [4, 1]) ***** assert (size (nbinrnd (2, 1/2, 4, 1)), [4, 1]) ***** assert (class (nbinrnd (2, 1/2)), "double") ***** assert (class (nbinrnd (single (2), 1/2)), "single") ***** assert (class (nbinrnd (single ([2 2]), 1/2)), "single") ***** assert (class (nbinrnd (2, single (1/2))), "single") ***** assert (class (nbinrnd (2, single ([1/2 1/2]))), "single") ***** error nbinrnd () ***** error nbinrnd (1) ***** error nbinrnd (ones (3), ones (2)) ***** error nbinrnd (ones (2), ones (3)) ***** error nbinrnd (i, 2) ***** error nbinrnd (2, i) ***** error nbinrnd (1,2, -1) ***** error nbinrnd (1,2, ones (2)) ***** error nbinrnd (1, 2, [2 -1 2]) ***** error nbinrnd (1,2, 1, ones (2)) ***** error nbinrnd (1,2, 1, -1) ***** error nbinrnd (ones (2,2), 2, 3) ***** error nbinrnd (ones (2,2), 2, [3, 2]) ***** error nbinrnd (ones (2,2), 2, 2, 3) 27 tests, 27 passed, 0 known failure, 0 skipped [inst/distributions/normcdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/normcdf.m ***** shared x,y x = [-Inf 1 2 Inf]; y = [0, 0.5, 1/2*(1+erf(1/sqrt(2))), 1]; ***** assert (normcdf (x, ones (1,4), ones (1,4)), y) ***** assert (normcdf (x, 1, ones (1,4)), y) ***** assert (normcdf (x, ones (1,4), 1), y) ***** assert (normcdf (x, [0 -Inf NaN Inf], 1), [y(1) NaN NaN NaN]) ***** assert (normcdf (x, 1, [Inf NaN -1 0]), [NaN NaN NaN NaN]) ***** assert (normcdf ([x(1:2) NaN x(4)], 1, 1), [y(1:2) NaN y(4)]) ***** assert (normcdf ([x, NaN], 1, 1), [y, NaN]) ***** assert (normcdf (single ([x, NaN]), 1, 1), single ([y, NaN]), eps ("single")) ***** assert (normcdf ([x, NaN], single (1), 1), single ([y, NaN]), eps ("single")) ***** assert (normcdf ([x, NaN], 1, single (1)), single ([y, NaN]), eps ("single")) ***** error normcdf () ***** error normcdf (1,2) ***** error normcdf (1,2,3,4) ***** error normcdf (ones (3), ones (2), ones (2)) ***** error normcdf (ones (2), ones (3), ones (2)) ***** error normcdf (ones (2), ones (2), ones (3)) ***** error normcdf (i, 2, 2) ***** error normcdf (2, i, 2) ***** error normcdf (2, 2, i) 19 tests, 19 passed, 0 known failure, 0 skipped [inst/distributions/norminv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/norminv.m ***** shared x x = [-1 0 0.5 1 2]; ***** assert (norminv (x, ones (1,5), ones (1,5)), [NaN -Inf 1 Inf NaN]) ***** assert (norminv (x, 1, ones (1,5)), [NaN -Inf 1 Inf NaN]) ***** assert (norminv (x, ones (1,5), 1), [NaN -Inf 1 Inf NaN]) ***** assert (norminv (x, [1 -Inf NaN Inf 1], 1), [NaN NaN NaN NaN NaN]) ***** assert (norminv (x, 1, [1 0 NaN Inf 1]), [NaN NaN NaN NaN NaN]) ***** assert (norminv ([x(1:2) NaN x(4:5)], 1, 1), [NaN -Inf NaN Inf NaN]) ***** assert (norminv ([x, NaN], 1, 1), [NaN -Inf 1 Inf NaN NaN]) ***** assert (norminv (single ([x, NaN]), 1, 1), single ([NaN -Inf 1 Inf NaN NaN])) ***** assert (norminv ([x, NaN], single (1), 1), single ([NaN -Inf 1 Inf NaN NaN])) ***** assert (norminv ([x, NaN], 1, single (1)), single ([NaN -Inf 1 Inf NaN NaN])) ***** error norminv () ***** error norminv (1,2) ***** error norminv (1,2,3,4) ***** error norminv (ones (3), ones (2), ones (2)) ***** error norminv (ones (2), ones (3), ones (2)) ***** error norminv (ones (2), ones (2), ones (3)) ***** error norminv (i, 2, 2) ***** error norminv (2, i, 2) ***** error norminv (2, 2, i) 19 tests, 19 passed, 0 known failure, 0 skipped [inst/distributions/normpdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/normpdf.m ***** shared x,y x = [-Inf 1 2 Inf]; y = 1/sqrt(2*pi)*exp (-(x-1).^2/2); ***** assert (normpdf (x, ones (1,4), ones (1,4)), y, eps) ***** assert (normpdf (x, 1, ones (1,4)), y, eps) ***** assert (normpdf (x, ones (1,4), 1), y, eps) ***** assert (normpdf (x, [0 -Inf NaN Inf], 1), [y(1) NaN NaN NaN], eps) ***** assert (normpdf (x, 1, [Inf NaN -1 0]), [NaN NaN NaN NaN], eps) ***** assert (normpdf ([x, NaN], 1, 1), [y, NaN], eps) ***** assert (normpdf (single ([x, NaN]), 1, 1), single ([y, NaN]), eps ("single")) ***** assert (normpdf ([x, NaN], single (1), 1), single ([y, NaN]), eps ("single")) ***** assert (normpdf ([x, NaN], 1, single (1)), single ([y, NaN]), eps ("single")) ***** error normpdf () ***** error normpdf (1,2) ***** error normpdf (1,2,3,4) ***** error normpdf (ones (3), ones (2), ones (2)) ***** error normpdf (ones (2), ones (3), ones (2)) ***** error normpdf (ones (2), ones (2), ones (3)) ***** error normpdf (i, 2, 2) ***** error normpdf (2, i, 2) ***** error normpdf (2, 2, i) 18 tests, 18 passed, 0 known failure, 0 skipped [inst/distributions/normrnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/normrnd.m ***** assert (size (normrnd (1,2)), [1, 1]) ***** assert (size (normrnd (ones (2,1), 2)), [2, 1]) ***** assert (size (normrnd (ones (2,2), 2)), [2, 2]) ***** assert (size (normrnd (1, 2*ones (2,1))), [2, 1]) ***** assert (size (normrnd (1, 2*ones (2,2))), [2, 2]) ***** assert (size (normrnd (1, 2, 3)), [3, 3]) ***** assert (size (normrnd (1, 2, [4 1])), [4, 1]) ***** assert (size (normrnd (1, 2, 4, 1)), [4, 1]) ***** assert (class (normrnd (1, 2)), "double") ***** assert (class (normrnd (single (1), 2)), "single") ***** assert (class (normrnd (single ([1 1]), 2)), "single") ***** assert (class (normrnd (1, single (2))), "single") ***** assert (class (normrnd (1, single ([2 2]))), "single") ***** error normrnd () ***** error normrnd (1) ***** error normrnd (ones (3), ones (2)) ***** error normrnd (ones (2), ones (3)) ***** error normrnd (i, 2) ***** error normrnd (2, i) ***** error normrnd (1,2, -1) ***** error normrnd (1,2, ones (2)) ***** error normrnd (1, 2, [2 -1 2]) ***** error normrnd (1,2, 1, ones (2)) ***** error normrnd (1,2, 1, -1) ***** error normrnd (ones (2,2), 2, 3) ***** error normrnd (ones (2,2), 2, [3, 2]) ***** error normrnd (ones (2,2), 2, 2, 3) 27 tests, 27 passed, 0 known failure, 0 skipped [inst/distributions/poisscdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/poisscdf.m ***** shared x,y x = [-1 0 1 2 Inf]; y = [0, gammainc(1, (x(2:4) +1), "upper"), 1]; ***** assert (poisscdf (x, ones (1,5)), y) ***** assert (poisscdf (x, 1), y) ***** assert (poisscdf (x, [1 0 NaN 1 1]), [y(1) NaN NaN y(4:5)]) ***** assert (poisscdf ([x(1:2) NaN Inf x(5)], 1), [y(1:2) NaN 1 y(5)]) ***** assert (poisscdf ([x, NaN], 1), [y, NaN]) ***** assert (poisscdf (single ([x, NaN]), 1), single ([y, NaN]), eps ("single")) ***** assert (poisscdf ([x, NaN], single (1)), single ([y, NaN]), eps ("single")) ***** error poisscdf () ***** error poisscdf (1) ***** error poisscdf (1,2,3) ***** error poisscdf (ones (3), ones (2)) ***** error poisscdf (ones (2), ones (3)) ***** error poisscdf (i, 2) ***** error poisscdf (2, i) 14 tests, 14 passed, 0 known failure, 0 skipped [inst/distributions/poissinv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/poissinv.m ***** shared x x = [-1 0 0.5 1 2]; ***** assert (poissinv (x, ones (1,5)), [NaN 0 1 Inf NaN]) ***** assert (poissinv (x, 1), [NaN 0 1 Inf NaN]) ***** assert (poissinv (x, [1 0 NaN 1 1]), [NaN NaN NaN Inf NaN]) ***** assert (poissinv ([x(1:2) NaN x(4:5)], 1), [NaN 0 NaN Inf NaN]) ***** assert (poissinv ([x, NaN], 1), [NaN 0 1 Inf NaN NaN]) ***** assert (poissinv (single ([x, NaN]), 1), single ([NaN 0 1 Inf NaN NaN])) ***** assert (poissinv ([x, NaN], single (1)), single ([NaN 0 1 Inf NaN NaN])) ***** error poissinv () ***** error poissinv (1) ***** error poissinv (1,2,3) ***** error poissinv (ones (3), ones (2)) ***** error poissinv (ones (2), ones (3)) ***** error poissinv (i, 2) ***** error poissinv (2, i) 14 tests, 14 passed, 0 known failure, 0 skipped [inst/distributions/poisspdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/poisspdf.m ***** shared x,y x = [-1 0 1 2 Inf]; y = [0, exp(-1)*[1 1 0.5], 0]; ***** assert (poisspdf (x, ones (1,5)), y, eps) ***** assert (poisspdf (x, 1), y, eps) ***** assert (poisspdf (x, [1 0 NaN 1 1]), [y(1) NaN NaN y(4:5)], eps) ***** assert (poisspdf ([x, NaN], 1), [y, NaN], eps) ***** assert (poisspdf (single ([x, NaN]), 1), single ([y, NaN]), eps ("single")) ***** assert (poisspdf ([x, NaN], single (1)), single ([y, NaN]), eps ("single")) ***** error poisspdf () ***** error poisspdf (1) ***** error poisspdf (1,2,3) ***** error poisspdf (ones (3), ones (2)) ***** error poisspdf (ones (2), ones (3)) ***** error poisspdf (i, 2) ***** error poisspdf (2, i) 13 tests, 13 passed, 0 known failure, 0 skipped [inst/distributions/poissrnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/poissrnd.m ***** assert (size (poissrnd (2)), [1, 1]) ***** assert (size (poissrnd (ones (2,1))), [2, 1]) ***** assert (size (poissrnd (ones (2,2))), [2, 2]) ***** assert (size (poissrnd (1, 3)), [3, 3]) ***** assert (size (poissrnd (1, [4 1])), [4, 1]) ***** assert (size (poissrnd (1, 4, 1)), [4, 1]) ***** assert (class (poissrnd (2)), "double") ***** assert (class (poissrnd (single (2))), "single") ***** assert (class (poissrnd (single ([2 2]))), "single") ***** error poissrnd () ***** error poissrnd (1, -1) ***** error poissrnd (1, ones (2)) ***** error poissrnd (1, 2, ones (2)) ***** error poissrnd (i) ***** error poissrnd (1, 2, -1) ***** error poissrnd (1, [2 -1 2]) ***** error poissrnd (ones (2,2), 3) ***** error poissrnd (ones (2,2), [3, 2]) ***** error poissrnd (ones (2,2), 2, 3) ***** assert (poissrnd (0, 1, 1), 0) ***** assert (poissrnd ([0, 0, 0], [1, 3]), [0 0 0]) 21 tests, 21 passed, 0 known failure, 0 skipped [inst/distributions/stdnormal_cdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/stdnormal_cdf.m ***** shared x,y x = [-Inf 0 1 Inf]; y = [0, 0.5, 1/2*(1+erf(1/sqrt(2))), 1]; ***** assert (stdnormal_cdf ([x, NaN]), [y, NaN]) ***** assert (stdnormal_cdf (single ([x, NaN])), single ([y, NaN]), eps ("single")) ***** error stdnormal_cdf () ***** error stdnormal_cdf (1,2) ***** error stdnormal_cdf (i) 5 tests, 5 passed, 0 known failure, 0 skipped [inst/distributions/stdnormal_inv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/stdnormal_inv.m ***** shared x x = [-1 0 0.5 1 2]; ***** assert (stdnormal_inv (x), [NaN -Inf 0 Inf NaN]) ***** assert (stdnormal_inv ([x, NaN]), [NaN -Inf 0 Inf NaN NaN]) ***** assert (stdnormal_inv (single ([x, NaN])), single ([NaN -Inf 0 Inf NaN NaN])) ***** error stdnormal_inv () ***** error stdnormal_inv (1,2) ***** error stdnormal_inv (i) 6 tests, 6 passed, 0 known failure, 0 skipped [inst/distributions/stdnormal_pdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/stdnormal_pdf.m ***** shared x,y x = [-Inf 0 1 Inf]; y = 1/sqrt(2*pi)*exp (-x.^2/2); ***** assert (stdnormal_pdf ([x, NaN]), [y, NaN], eps) ***** assert (stdnormal_pdf (single ([x, NaN])), single ([y, NaN]), eps ("single")) ***** error stdnormal_pdf () ***** error stdnormal_pdf (1,2) ***** error stdnormal_pdf (i) 5 tests, 5 passed, 0 known failure, 0 skipped [inst/distributions/stdnormal_rnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/stdnormal_rnd.m ***** assert (size (stdnormal_rnd (3)), [3, 3]) ***** assert (size (stdnormal_rnd ([4 1])), [4, 1]) ***** assert (size (stdnormal_rnd (4,1)), [4, 1]) ***** error stdnormal_rnd () ***** error stdnormal_rnd (-1) ***** error stdnormal_rnd (ones (2)) ***** error stdnormal_rnd ([2 -1 2]) ***** error stdnormal_rnd (1, ones (2)) ***** error stdnormal_rnd (1, -1) 9 tests, 9 passed, 0 known failure, 0 skipped [inst/distributions/tcdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/tcdf.m ***** shared x,y x = [-Inf 0 1 Inf]; y = [0 1/2 3/4 1]; ***** assert (tcdf (x, ones (1,4)), y, eps) ***** assert (tcdf (x, 1), y, eps) ***** assert (tcdf (x, [0 1 NaN 1]), [NaN 1/2 NaN 1], eps) ***** assert (tcdf ([x(1:2) NaN x(4)], 1), [y(1:2) NaN y(4)], eps) ***** assert (tcdf ([x, NaN], 1), [y, NaN], eps) ***** assert (tcdf (single ([x, NaN]), 1), single ([y, NaN]), eps ("single")) ***** assert (tcdf ([x, NaN], single (1)), single ([y, NaN]), eps ("single")) ***** error tcdf () ***** error tcdf (1) ***** error tcdf (1,2,3) ***** error tcdf (ones (3), ones (2)) ***** error tcdf (ones (2), ones (3)) ***** error tcdf (i, 2) ***** error tcdf (2, i) ***** shared tol_rel tol_rel = 10 * eps; ***** assert (tcdf (10^(-10), 2.5), 0.50000000003618087, -tol_rel) ***** assert (tcdf (10^(-11), 2.5), 0.50000000000361809, -tol_rel) ***** assert (tcdf (10^(-12), 2.5), 0.50000000000036181, -tol_rel) ***** assert (tcdf (10^(-13), 2.5), 0.50000000000003618, -tol_rel) ***** assert (tcdf (10^(-14), 2.5), 0.50000000000000362, -tol_rel) ***** assert (tcdf (10^(-15), 2.5), 0.50000000000000036, -tol_rel) ***** assert (tcdf (10^(-16), 2.5), 0.50000000000000004, -tol_rel) ***** assert (tcdf (-10^1, 2.5), 2.2207478836537124e-03, -tol_rel) ***** assert (tcdf (-10^2, 2.5), 7.1916492116661878e-06, -tol_rel) ***** assert (tcdf (-10^3, 2.5), 2.2747463948307452e-08, -tol_rel) ***** assert (tcdf (-10^4, 2.5), 7.1933970159922115e-11, -tol_rel) ***** assert (tcdf (-10^5, 2.5), 2.2747519231756221e-13, -tol_rel) 26 tests, 26 passed, 0 known failure, 0 skipped [inst/distributions/tinv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/tinv.m ***** shared x x = [-1 0 0.5 1 2]; ***** assert (tinv (x, ones (1,5)), [NaN -Inf 0 Inf NaN]) ***** assert (tinv (x, 1), [NaN -Inf 0 Inf NaN], eps) ***** assert (tinv (x, [1 0 NaN 1 1]), [NaN NaN NaN Inf NaN], eps) ***** assert (tinv ([x(1:2) NaN x(4:5)], 1), [NaN -Inf NaN Inf NaN]) ***** assert (tinv ([x, NaN], 1), [NaN -Inf 0 Inf NaN NaN], eps) ***** assert (tinv (single ([x, NaN]), 1), single ([NaN -Inf 0 Inf NaN NaN]), eps ("single")) ***** assert (tinv ([x, NaN], single (1)), single ([NaN -Inf 0 Inf NaN NaN]), eps ("single")) ***** error tinv () ***** error tinv (1) ***** error tinv (1,2,3) ***** error tinv (ones (3), ones (2)) ***** error tinv (ones (2), ones (3)) ***** error tinv (i, 2) ***** error tinv (2, i) 14 tests, 14 passed, 0 known failure, 0 skipped [inst/distributions/tpdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/tpdf.m ***** test x = rand (10,1); y = 1./(pi * (1 + x.^2)); assert (tpdf (x, 1), y, 5*eps); ***** shared x,y x = [-Inf 0 0.5 1 Inf]; y = 1./(pi * (1 + x.^2)); ***** assert (tpdf (x, ones (1,5)), y, eps) ***** assert (tpdf (x, 1), y, eps) ***** assert (tpdf (x, [0 NaN 1 1 1]), [NaN NaN y(3:5)], eps) ***** assert (tpdf ([x, NaN], 1), [y, NaN], eps) ***** assert (tpdf (single ([x, NaN]), 1), single ([y, NaN]), eps ("single")) ***** assert (tpdf ([x, NaN], single (1)), single ([y, NaN]), eps ("single")) ***** error tpdf () ***** error tpdf (1) ***** error tpdf (1,2,3) ***** error tpdf (ones (3), ones (2)) ***** error tpdf (ones (2), ones (3)) ***** error tpdf (i, 2) ***** error tpdf (2, i) 14 tests, 14 passed, 0 known failure, 0 skipped [inst/distributions/trnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/trnd.m ***** assert (size (trnd (2)), [1, 1]) ***** assert (size (trnd (ones (2,1))), [2, 1]) ***** assert (size (trnd (ones (2,2))), [2, 2]) ***** assert (size (trnd (1, 3)), [3, 3]) ***** assert (size (trnd (1, [4 1])), [4, 1]) ***** assert (size (trnd (1, 4, 1)), [4, 1]) ***** assert (class (trnd (1)), "double") ***** assert (class (trnd (single (1))), "single") ***** assert (class (trnd (single ([1 1]))), "single") ***** error trnd () ***** error trnd (1, -1) ***** error trnd (1, ones (2)) ***** error trnd (i) ***** error trnd (1, [2 -1 2]) ***** error trnd (1, 2, ones (2)) ***** error trnd (1, 2, -1) ***** error trnd (ones (2,2), 3) ***** error trnd (ones (2,2), [3, 2]) ***** error trnd (ones (2,2), 2, 3) 19 tests, 19 passed, 0 known failure, 0 skipped [inst/distributions/unidcdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/unidcdf.m ***** shared x,y x = [0 1 2.5 10 11]; y = [0, 0.1 0.2 1.0 1.0]; ***** assert (unidcdf (x, 10*ones (1,5)), y) ***** assert (unidcdf (x, 10), y) ***** assert (unidcdf (x, 10*[0 1 NaN 1 1]), [NaN 0.1 NaN y(4:5)]) ***** assert (unidcdf ([x(1:2) NaN Inf x(5)], 10), [y(1:2) NaN 1 y(5)]) ***** assert (unidcdf ([x, NaN], 10), [y, NaN]) ***** assert (unidcdf (single ([x, NaN]), 10), single ([y, NaN])) ***** assert (unidcdf ([x, NaN], single (10)), single ([y, NaN])) ***** error unidcdf () ***** error unidcdf (1) ***** error unidcdf (1,2,3) ***** error unidcdf (ones (3), ones (2)) ***** error unidcdf (ones (2), ones (3)) ***** error unidcdf (i, 2) ***** error unidcdf (2, i) 14 tests, 14 passed, 0 known failure, 0 skipped [inst/distributions/unidinv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/unidinv.m ***** shared x x = [-1 0 0.5 1 2]; ***** assert (unidinv (x, 10*ones (1,5)), [NaN NaN 5 10 NaN], eps) ***** assert (unidinv (x, 10), [NaN NaN 5 10 NaN], eps) ***** assert (unidinv (x, 10*[0 1 NaN 1 1]), [NaN NaN NaN 10 NaN], eps) ***** assert (unidinv ([x(1:2) NaN x(4:5)], 10), [NaN NaN NaN 10 NaN], eps) ***** assert (unidinv ([x, NaN], 10), [NaN NaN 5 10 NaN NaN], eps) ***** assert (unidinv (single ([x, NaN]), 10), single ([NaN NaN 5 10 NaN NaN]), eps) ***** assert (unidinv ([x, NaN], single (10)), single ([NaN NaN 5 10 NaN NaN]), eps) ***** error unidinv () ***** error unidinv (1) ***** error unidinv (1,2,3) ***** error unidinv (ones (3), ones (2)) ***** error unidinv (ones (2), ones (3)) ***** error unidinv (i, 2) ***** error unidinv (2, i) 14 tests, 14 passed, 0 known failure, 0 skipped [inst/distributions/unidpdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/unidpdf.m ***** shared x,y x = [-1 0 1 2 10 11]; y = [0 0 0.1 0.1 0.1 0]; ***** assert (unidpdf (x, 10*ones (1,6)), y) ***** assert (unidpdf (x, 10), y) ***** assert (unidpdf (x, 10*[0 NaN 1 1 1 1]), [NaN NaN y(3:6)]) ***** assert (unidpdf ([x, NaN], 10), [y, NaN]) ***** assert (unidpdf (single ([x, NaN]), 10), single ([y, NaN])) ***** assert (unidpdf ([x, NaN], single (10)), single ([y, NaN])) ***** error unidpdf () ***** error unidpdf (1) ***** error unidpdf (1,2,3) ***** error unidpdf (ones (3), ones (2)) ***** error unidpdf (ones (2), ones (3)) ***** error unidpdf (i, 2) ***** error unidpdf (2, i) 13 tests, 13 passed, 0 known failure, 0 skipped [inst/distributions/unidrnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/unidrnd.m ***** assert (size (unidrnd (2)), [1, 1]) ***** assert (size (unidrnd (ones (2,1))), [2, 1]) ***** assert (size (unidrnd (ones (2,2))), [2, 2]) ***** assert (size (unidrnd (10, [4 1])), [4, 1]) ***** assert (size (unidrnd (10, 4, 1)), [4, 1]) ***** assert (class (unidrnd (2)), "double") ***** assert (class (unidrnd (single (2))), "single") ***** assert (class (unidrnd (single ([2 2]))), "single") ***** error unidrnd () ***** error unidrnd (10, [1;2;3]) ***** error unidrnd (10, 2, ones (2)) ***** error unidrnd (10*ones (2), 2, 1) ***** error unidrnd (i) 13 tests, 13 passed, 0 known failure, 0 skipped [inst/distributions/unifcdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/unifcdf.m ***** shared x,y x = [-1 0 0.5 1 2] + 1; y = [0 0 0.5 1 1]; ***** assert (unifcdf (x, ones (1,5), 2*ones (1,5)), y) ***** assert (unifcdf (x, 1, 2*ones (1,5)), y) ***** assert (unifcdf (x, ones (1,5), 2), y) ***** assert (unifcdf (x, [2 1 NaN 1 1], 2), [NaN 0 NaN 1 1]) ***** assert (unifcdf (x, 1, 2*[0 1 NaN 1 1]), [NaN 0 NaN 1 1]) ***** assert (unifcdf ([x(1:2) NaN x(4:5)], 1, 2), [y(1:2) NaN y(4:5)]) ***** assert (unifcdf ([x, NaN], 1, 2), [y, NaN]) ***** assert (unifcdf (single ([x, NaN]), 1, 2), single ([y, NaN])) ***** assert (unifcdf ([x, NaN], single (1), 2), single ([y, NaN])) ***** assert (unifcdf ([x, NaN], 1, single (2)), single ([y, NaN])) ***** error unifcdf () ***** error unifcdf (1,2) ***** error unifcdf (1,2,3,4) ***** error unifcdf (ones (3), ones (2), ones (2)) ***** error unifcdf (ones (2), ones (3), ones (2)) ***** error unifcdf (ones (2), ones (2), ones (3)) ***** error unifcdf (i, 2, 2) ***** error unifcdf (2, i, 2) ***** error unifcdf (2, 2, i) 19 tests, 19 passed, 0 known failure, 0 skipped [inst/distributions/unifinv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/unifinv.m ***** shared x x = [-1 0 0.5 1 2]; ***** assert (unifinv (x, ones (1,5), 2*ones (1,5)), [NaN 1 1.5 2 NaN]) ***** assert (unifinv (x, 1, 2*ones (1,5)), [NaN 1 1.5 2 NaN]) ***** assert (unifinv (x, ones (1,5), 2), [NaN 1 1.5 2 NaN]) ***** assert (unifinv (x, [1 2 NaN 1 1], 2), [NaN NaN NaN 2 NaN]) ***** assert (unifinv (x, 1, 2*[1 0 NaN 1 1]), [NaN NaN NaN 2 NaN]) ***** assert (unifinv ([x(1:2) NaN x(4:5)], 1, 2), [NaN 1 NaN 2 NaN]) ***** assert (unifinv ([x, NaN], 1, 2), [NaN 1 1.5 2 NaN NaN]) ***** assert (unifinv (single ([x, NaN]), 1, 2), single ([NaN 1 1.5 2 NaN NaN])) ***** assert (unifinv ([x, NaN], single (1), 2), single ([NaN 1 1.5 2 NaN NaN])) ***** assert (unifinv ([x, NaN], 1, single (2)), single ([NaN 1 1.5 2 NaN NaN])) ***** error unifinv () ***** error unifinv (1,2) ***** error unifinv (1,2,3,4) ***** error unifinv (ones (3), ones (2), ones (2)) ***** error unifinv (ones (2), ones (3), ones (2)) ***** error unifinv (ones (2), ones (2), ones (3)) ***** error unifinv (i, 2, 2) ***** error unifinv (2, i, 2) ***** error unifinv (2, 2, i) 19 tests, 19 passed, 0 known failure, 0 skipped [inst/distributions/unifpdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/unifpdf.m ***** shared x,y x = [-1 0 0.5 1 2] + 1; y = [0 1 1 1 0]; ***** assert (unifpdf (x, ones (1,5), 2*ones (1,5)), y) ***** assert (unifpdf (x, 1, 2*ones (1,5)), y) ***** assert (unifpdf (x, ones (1,5), 2), y) ***** assert (unifpdf (x, [2 NaN 1 1 1], 2), [NaN NaN y(3:5)]) ***** assert (unifpdf (x, 1, 2*[0 NaN 1 1 1]), [NaN NaN y(3:5)]) ***** assert (unifpdf ([x, NaN], 1, 2), [y, NaN]) ***** assert (unifpdf (single ([x, NaN]), 1, 2), single ([y, NaN])) ***** assert (unifpdf (single ([x, NaN]), single (1), 2), single ([y, NaN])) ***** assert (unifpdf ([x, NaN], 1, single (2)), single ([y, NaN])) ***** error unifpdf () ***** error unifpdf (1,2) ***** error unifpdf (1,2,3,4) ***** error unifpdf (ones (3), ones (2), ones (2)) ***** error unifpdf (ones (2), ones (3), ones (2)) ***** error unifpdf (ones (2), ones (2), ones (3)) ***** error unifpdf (i, 2, 2) ***** error unifpdf (2, i, 2) ***** error unifpdf (2, 2, i) 18 tests, 18 passed, 0 known failure, 0 skipped [inst/distributions/unifrnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/unifrnd.m ***** assert (size (unifrnd (1,2)), [1, 1]) ***** assert (size (unifrnd (ones (2,1), 2)), [2, 1]) ***** assert (size (unifrnd (ones (2,2), 2)), [2, 2]) ***** assert (size (unifrnd (1, 2*ones (2,1))), [2, 1]) ***** assert (size (unifrnd (1, 2*ones (2,2))), [2, 2]) ***** assert (size (unifrnd (1, 2, 3)), [3, 3]) ***** assert (size (unifrnd (1, 2, [4 1])), [4, 1]) ***** assert (size (unifrnd (1, 2, 4, 1)), [4, 1]) ***** assert (class (unifrnd (1, 2)), "double") ***** assert (class (unifrnd (single (1), 2)), "single") ***** assert (class (unifrnd (single ([1 1]), 2)), "single") ***** assert (class (unifrnd (1, single (2))), "single") ***** assert (class (unifrnd (1, single ([2 2]))), "single") ***** error unifrnd () ***** error unifrnd (1) ***** error unifrnd (ones (3), ones (2)) ***** error unifrnd (ones (2), ones (3)) ***** error unifrnd (i, 2) ***** error unifrnd (2, i) ***** error unifrnd (1,2, -1) ***** error unifrnd (1,2, ones (2)) ***** error unifrnd (1, 2, [2 -1 2]) ***** error unifrnd (1,2, 1, ones (2)) ***** error unifrnd (1,2, 1, -1) ***** error unifrnd (ones (2,2), 2, 3) ***** error unifrnd (ones (2,2), 2, [3, 2]) ***** error unifrnd (ones (2,2), 2, 2, 3) ***** assert (unifrnd (0,0), 0) ***** assert (unifrnd (1,1), 1) ***** assert (unifrnd (1,0), NaN) 30 tests, 30 passed, 0 known failure, 0 skipped [inst/distributions/wblcdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/wblcdf.m ***** shared x,y x = [-1 0 0.5 1 Inf]; y = [0, 1-exp(-x(2:4)), 1]; ***** assert (wblcdf (x, ones (1,5), ones (1,5)), y) ***** assert (wblcdf (x, 1, ones (1,5)), y) ***** assert (wblcdf (x, ones (1,5), 1), y) ***** assert (wblcdf (x, [0 1 NaN Inf 1], 1), [NaN 0 NaN NaN 1]) ***** assert (wblcdf (x, 1, [0 1 NaN Inf 1]), [NaN 0 NaN NaN 1]) ***** assert (wblcdf ([x(1:2) NaN x(4:5)], 1, 1), [y(1:2) NaN y(4:5)]) ***** assert (wblcdf ([x, NaN], 1, 1), [y, NaN]) ***** assert (wblcdf (single ([x, NaN]), 1, 1), single ([y, NaN])) ***** assert (wblcdf ([x, NaN], single (1), 1), single ([y, NaN])) ***** assert (wblcdf ([x, NaN], 1, single (1)), single ([y, NaN])) ***** error wblcdf () ***** error wblcdf (1,2,3,4) ***** error wblcdf (ones (3), ones (2), ones (2)) ***** error wblcdf (ones (2), ones (3), ones (2)) ***** error wblcdf (ones (2), ones (2), ones (3)) ***** error wblcdf (i, 2, 2) ***** error wblcdf (2, i, 2) ***** error wblcdf (2, 2, i) 18 tests, 18 passed, 0 known failure, 0 skipped [inst/distributions/wblinv.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/wblinv.m ***** shared x x = [-1 0 0.63212055882855778 1 2]; ***** assert (wblinv (x, ones (1,5), ones (1,5)), [NaN 0 1 Inf NaN], eps) ***** assert (wblinv (x, 1, ones (1,5)), [NaN 0 1 Inf NaN], eps) ***** assert (wblinv (x, ones (1,5), 1), [NaN 0 1 Inf NaN], eps) ***** assert (wblinv (x, [1 -1 NaN Inf 1], 1), [NaN NaN NaN NaN NaN]) ***** assert (wblinv (x, 1, [1 -1 NaN Inf 1]), [NaN NaN NaN NaN NaN]) ***** assert (wblinv ([x(1:2) NaN x(4:5)], 1, 1), [NaN 0 NaN Inf NaN]) ***** assert (wblinv ([x, NaN], 1, 1), [NaN 0 1 Inf NaN NaN], eps) ***** assert (wblinv (single ([x, NaN]), 1, 1), single ([NaN 0 1 Inf NaN NaN]), eps ("single")) ***** assert (wblinv ([x, NaN], single (1), 1), single ([NaN 0 1 Inf NaN NaN]), eps ("single")) ***** assert (wblinv ([x, NaN], 1, single (1)), single ([NaN 0 1 Inf NaN NaN]), eps ("single")) ***** error wblinv () ***** error wblinv (1,2,3,4) ***** error wblinv (ones (3), ones (2), ones (2)) ***** error wblinv (ones (2), ones (3), ones (2)) ***** error wblinv (ones (2), ones (2), ones (3)) ***** error wblinv (i, 2, 2) ***** error wblinv (2, i, 2) ***** error wblinv (2, 2, i) 18 tests, 18 passed, 0 known failure, 0 skipped [inst/distributions/wblpdf.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/wblpdf.m ***** shared x,y x = [-1 0 0.5 1 Inf]; y = [0, exp(-x(2:4)), NaN]; ***** assert (wblpdf (x, ones (1,5), ones (1,5)), y) ***** assert (wblpdf (x, 1, ones (1,5)), y) ***** assert (wblpdf (x, ones (1,5), 1), y) ***** assert (wblpdf (x, [0 NaN Inf 1 1], 1), [NaN NaN NaN y(4:5)]) ***** assert (wblpdf (x, 1, [0 NaN Inf 1 1]), [NaN NaN NaN y(4:5)]) ***** assert (wblpdf ([x, NaN], 1, 1), [y, NaN]) ***** assert (wblpdf (single ([x, NaN]), 1, 1), single ([y, NaN])) ***** assert (wblpdf ([x, NaN], single (1), 1), single ([y, NaN])) ***** assert (wblpdf ([x, NaN], 1, single (1)), single ([y, NaN])) ***** error wblpdf () ***** error wblpdf (1,2,3,4) ***** error wblpdf (ones (3), ones (2), ones (2)) ***** error wblpdf (ones (2), ones (3), ones (2)) ***** error wblpdf (ones (2), ones (2), ones (3)) ***** error wblpdf (i, 2, 2) ***** error wblpdf (2, i, 2) ***** error wblpdf (2, 2, i) 17 tests, 17 passed, 0 known failure, 0 skipped [inst/distributions/wblrnd.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/distributions/wblrnd.m ***** assert (size (wblrnd (1,2)), [1, 1]) ***** assert (size (wblrnd (ones (2,1), 2)), [2, 1]) ***** assert (size (wblrnd (ones (2,2), 2)), [2, 2]) ***** assert (size (wblrnd (1, 2*ones (2,1))), [2, 1]) ***** assert (size (wblrnd (1, 2*ones (2,2))), [2, 2]) ***** assert (size (wblrnd (1, 2, 3)), [3, 3]) ***** assert (size (wblrnd (1, 2, [4 1])), [4, 1]) ***** assert (size (wblrnd (1, 2, 4, 1)), [4, 1]) ***** assert (class (wblrnd (1, 2)), "double") ***** assert (class (wblrnd (single (1), 2)), "single") ***** assert (class (wblrnd (single ([1 1]), 2)), "single") ***** assert (class (wblrnd (1, single (2))), "single") ***** assert (class (wblrnd (1, single ([2 2]))), "single") ***** error wblrnd () ***** error wblrnd (1) ***** error wblrnd (ones (3), ones (2)) ***** error wblrnd (ones (2), ones (3)) ***** error wblrnd (i, 2) ***** error wblrnd (2, i) ***** error wblrnd (1,2, -1) ***** error wblrnd (1,2, ones (2)) ***** error wblrnd (1, 2, [2 -1 2]) ***** error wblrnd (1,2, 1, ones (2)) ***** error wblrnd (1,2, 1, -1) ***** error wblrnd (ones (2,2), 2, 3) ***** error wblrnd (ones (2,2), 2, [3, 2]) ***** error wblrnd (ones (2,2), 2, 2, 3) 27 tests, 27 passed, 0 known failure, 0 skipped [inst/tests/kolmogorov_smirnov_test.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/tests/kolmogorov_smirnov_test.m ***** assert (kolmogorov_smirnov_test (0:100, "unif", 0, 100), 1.0, eps) ***** assert (kolmogorov_smirnov_test (0:100, "logistic"), 0) ***** assert (kolmogorov_smirnov_test (50:100, "unif", 0, 50, "<")) ***** error kolmogorov_smirnov_test (1) ***** error kolmogorov_smirnov_test ({}, "unif", 2, 4) ***** error kolmogorov_smirnov_test (1, "not_a_dist"); ***** error kolmogorov_smirnov_test (1, "unif", 2, 4, "foo"); 7 tests, 7 passed, 0 known failure, 0 skipped [inst/tests/kruskal_wallis_test.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/tests/kruskal_wallis_test.m ***** assert (abs (kruskal_wallis_test ([86 86], [74]) - 0.157299207050285) < 0.0000000000001) 1 test, 1 passed, 0 known failure, 0 skipped [inst/tests/sign_test.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/tests/sign_test.m ***** error sign_test () ***** error sign_test ([]) ***** assert (sign_test (zeros(1,10), ones(1,10)), sign_test (zeros(1,10), ones(1,10), "!=")) ***** assert (sign_test (zeros(1,10), ones(1,10)), sign_test (zeros(1,10), ones(1,10), "<>")) ***** assert (sign_test (ones(1,10), zeros(1,10), '<'), 0) ***** assert (sign_test (ones(1,10), zeros(1,10), '>'), 1) 6 tests, 6 passed, 0 known failure, 0 skipped [inst/tests/t_test.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/tests/t_test.m ***** xtest ## Two-sided (also the default option) x = rand (10,1); n = length (x); u0 = 0.5; # true mean xbar = mean (x); pval = t_test (x, u0, "!="); if (xbar >= u0) tval = abs (tinv (0.5*pval, n-1)); else tval = -abs (tinv (0.5*pval, n-1)); endif unew = tval * std(x)/sqrt(n) + u0; assert (xbar, unew, 1e6*eps); ***** xtest x = rand (10,1); n = length (x); u0 = 0.5; pval = t_test (x, u0, ">"); tval = tinv (1-pval, n-1); unew = tval * std(x)/sqrt(n) + u0; assert (mean (x), unew, 1e6*eps); ***** xtest x = rand (10,1); n = length (x); u0 = 0.5; pval = t_test (x, u0, "<"); tval = tinv (pval, n-1); unew = tval * std(x)/sqrt(n) + u0; assert (mean (x), unew, 1e6*eps); 3 tests, 3 passed, 0 known failure, 0 skipped [inst/tests/z_test.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/tests/z_test.m ***** test ## Two-sided (also the default option) x = rand (10,1); n = length (x); u0 = 0.5; v = 1/12; # true mean, var pval = z_test (x, u0, v, "!="); if (mean (x) >= u0) zval = abs (norminv (0.5*pval)); else zval = -abs (norminv (0.5*pval)); endif unew = zval * sqrt (v/n) + u0; assert (mean (x), unew, 100*eps); ***** test x = rand (10,1); n = length (x); u0 = 0.5; v = 1/12; pval = z_test (x, u0, v, ">"); zval = norminv (1-pval); unew = zval * sqrt (v/n) + u0; assert (mean (x), unew, 100*eps); ***** test x = rand (10,1); n = length (x); u0 = 0.5; v = 1/12; pval = z_test (x, u0, v, "<"); zval = norminv (pval); unew = zval * sqrt (v/n) + u0; assert (mean (x), unew, 100*eps); 3 tests, 3 passed, 0 known failure, 0 skipped [inst/tests/z_test_2.m] >>>>> /build/octave-statistics-n9Ulju/octave-statistics-1.4.3/inst/tests/z_test_2.m ***** test ## Two-sided (also the default option) x = randn (100, 1); v_x = 2; x = v_x * x; [pval, zval] = z_test_2 (x, x, v_x, v_x); zval_exp = 0; pval_exp = 1.0; assert (zval, zval_exp, eps); assert (pval, pval_exp, eps); ***** test ## Two-sided (also the default option) x = randn (10000, 1); v_x = 2; x = v_x * x; n_x = length (x); y = randn (20000, 1); v_y = 3; y = v_y * y; n_y = length (y); [pval, z] = z_test_2 (x, y, v_x, v_y); if (mean (x) >= mean (y)) zval = abs (norminv (0.5*pval)); else zval = -abs (norminv (0.5*pval)); endif unew = zval * sqrt (v_x/n_x + v_y/n_y); delmu = mean (x) - mean (y); assert (delmu, unew, 100*eps); ***** test x = randn (100, 1); v_x = 2; x = v_x * x; [pval, zval] = z_test_2 (x, x, v_x, v_x, ">"); zval_exp = 0; pval_exp = 0.5; assert (zval, zval_exp, eps); assert (pval, pval_exp, eps); ***** test x = randn (10000, 1); v_x = 2; x = v_x * x; n_x = length (x); y = randn (20000, 1); v_y = 3; y = v_y * y; n_y = length (y); [pval, z] = z_test_2 (x, y, v_x, v_y, ">"); zval = norminv (1-pval); unew = zval * sqrt (v_x/n_x + v_y/n_y); delmu = mean (x) - mean (y); assert (delmu, unew, 100*eps); ***** test x = randn (100, 1); v_x = 2; x = v_x * x; [pval, zval] = z_test_2 (x, x, v_x, v_x, "<"); zval_exp = 0; pval_exp = 0.5; assert (zval, zval_exp, eps); assert (pval, pval_exp, eps); ***** test x = randn (10000, 1); v_x = 2; x = v_x * x; n_x = length (x); y = randn (20000, 1); v_y = 3; y = v_y * y; n_y = length (y); [pval, z] = z_test_2 (x, y, v_x, v_y, "<"); zval = norminv (pval); unew = zval * sqrt (v_x/n_x + v_y/n_y); delmu = mean (x) - mean (y); assert (delmu, unew, 100*eps); 6 tests, 6 passed, 0 known failure, 0 skipped Checking C++ files ... Summary: 2699 tests, 2695 passed, 1 known failures, 3 skipped dh_installdocs -i -O--buildsystem=octave dh_installchangelogs -i -O--buildsystem=octave dh_octave_changelogs -i -O--buildsystem=octave dh_octave_examples -i -O--buildsystem=octave dh_installsystemduser -i -O--buildsystem=octave dh_lintian -i -O--buildsystem=octave dh_perl -i -O--buildsystem=octave dh_link -i -O--buildsystem=octave dh_strip_nondeterminism -i -O--buildsystem=octave dh_compress -i -O--buildsystem=octave dh_fixperms -i -O--buildsystem=octave dh_missing -i -O--buildsystem=octave dh_octave_substvar -i -O--buildsystem=octave dh_installdeb -i -O--buildsystem=octave dh_gencontrol -i -O--buildsystem=octave dpkg-gencontrol: warning: package octave-statistics: substitution variable ${octave:Upstream-Description} unused, but is defined dh_md5sums -i -O--buildsystem=octave dh_builddeb -i -O--buildsystem=octave dpkg-deb: building package 'octave-statistics' in '../octave-statistics_1.4.3-2_all.deb'. dpkg-genbuildinfo --build=all -O../octave-statistics_1.4.3-2_all.buildinfo dpkg-genchanges --build=all -O../octave-statistics_1.4.3-2_all.changes dpkg-genchanges: info: binary-only arch-indep upload (source code and arch-specific packages not included) dpkg-source --after-build . dpkg-buildpackage: info: binary-only upload (no source included) I: running special hook: sync-out /build/octave-statistics-n9Ulju /tmp/octave-statistics-1.4.3-22l078i_k I: cleaning package lists and apt cache... I: creating tarball... I: done I: removing tempdir /tmp/mmdebstrap.Z01dgrcpCa... I: success in 4952.8371 seconds md5: octave-statistics_1.4.3-2_all.deb: OK sha1: octave-statistics_1.4.3-2_all.deb: OK sha256: octave-statistics_1.4.3-2_all.deb: OK Checksums: OK