File: pca_plot_scree.tmpl

package info (click to toggle)
libdemeter-perl 0.9.27%2Bds6-9
  • links: PTS, VCS
  • area: contrib
  • in suites: forky, sid, trixie
  • size: 74,028 kB
  • sloc: perl: 73,233; python: 2,196; makefile: 1,999; ansic: 1,368; lisp: 454; sh: 74
file content (19 lines) | stat: -rw-r--r-- 481 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
{
  $temp = $P->tempfile;
  $S->points(file    => $temp,
             space   => 'index', 
             suffix  => 'scree',
            );
  $logscale = ($log) ? "set logscale y 10" : q{};
  $yl = ($log) ? "log of " : q{};
  q{};
}
## gnuplot script

set title "\{/*1.6 PCA Scree Plot\}"
set xlabel "\{/*1.4 Component\}"
set ylabel "\{/*1.4 {$yl}Variance\}"
set xrange [0:{$#{$S->stack}+2}]
{$logscale}

plot '{$temp}' using ($1+1):2 with points ls {$P->increm+1} title "variance"