Algorithm-AM
view release on metacpan or search on metacpan
bin/analogize.pl view on Meta::CPAN
170171172173174175176177178179180181182183184185186187188189specify either commas or nocommas
format
for
exemplar and test data files
(C<=> should be used
for
"null"
variables). See L<Algorithm::AM::DataSet/dataset_from_file>
for
details on the two formats.
=item C<exemplars>, C<data> or C<train>
path to the file containing the examplar/training data
=item C<project>
path to an AM::Parallel-style project (ignores 'outcome' file); this
should be a directory containing a file called C<data> containing known
exemplars and C<test> containing test exemplars. If the C<test> file does
not exist, then a leave-one-out scheme is used for testing using the
exemplars in the C<data> file.
=item C<test>
path to the file containing the test data. If none is specified,
performs leave-one-out classification with the exemplar set.
979899100101102103104105106107108109110111112113114115116117118=head2 --compat-version=I<version>
Tell F<ppport.h> to check for compatibility with the given
Perl version. The default is to check for compatibility with Perl
version 5.003_07. You can use this option to reduce the output
of F<ppport.h> if you intend to be backward compatible only
down to a certain Perl version.
=head2 --cplusplus
Usually, F<ppport.h> will detect C++ style comments and
replace them with C style comments for portability reasons.
Using this option instructs F<ppport.h> to leave C++
comments untouched.
=head2 --quiet
Be quiet. Don't print anything except fatal errors.
=head2 --nodiag
Don't output any diagnostic messages. Only portability
101841018510186101871018810189101901019110192101931019410195101961019710198101991020010201102021020310204
$cppc
++;
$file
{changes} +=
$c
=~ s/
$rccs
$ix
$rcce
/
$ccs
$ccom
[
$ix
]
$cce
/;
}
else
{
$c
=~ s/
$rccs
$ix
$rcce
/
$ccom
[
$ix
]/;
}
}
if
(
$cppc
) {
my
$s
=
$cppc
!= 1 ?
's'
:
''
;
warning(
"Uses $cppc C++ style comment$s, which is not portable"
);
}
my
$s
=
$warnings
!= 1 ?
's'
:
''
;
my
$warn
=
$warnings
?
" ($warnings warning$s)"
:
''
;
info(
"Analysis completed$warn"
);
if
(
$file
{changes}) {
if
(
exists
$opt
{copy}) {
my
$newfile
=
"$filename$opt{copy}"
;
if
(-e
$newfile
) {
( run in 0.429 second using v1.01-cache-2.11-cpan-95122f20152 )