This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision | ||
neuroimagen:md_nph [2021/10/18 14:59] osotolongo [Implementación] |
neuroimagen:md_nph [2021/10/19 09:04] osotolongo [Uso] |
||
---|---|---|---|
Line 45: | Line 45: | ||
asi que todo deberia ser sencillo. | asi que todo deberia ser sencillo. | ||
- | Ok. Pero no tan sencillo. :-P | + | Ok. Pero no taaaan |
Antes que nada, no voy a sacar el valor medio de toda la imagen MD sino de la porcion correspondiente a la WM. Es decir, que tengo que empezar por hacer una mascara de la WM. Es to no deberia ser dificil si reutilizo el //aseg// de FS, | Antes que nada, no voy a sacar el valor medio de toda la imagen MD sino de la porcion correspondiente a la WM. Es decir, que tengo que empezar por hacer una mascara de la WM. Es to no deberia ser dificil si reutilizo el //aseg// de FS, | ||
Line 70: | Line 70: | ||
</ | </ | ||
+ | {{ : | ||
Pero ojo, que esa mascara esta en espacio nativo T1, asi que tendria que hacer algo como, | Pero ojo, que esa mascara esta en espacio nativo T1, asi que tendria que hacer algo como, | ||
<code bash> | <code bash> | ||
- | antsApplyTransforms -d 3 -i ${tmp_dir}/ | + | antsApplyTransforms -d 3 -i ${tmp_dir}/ |
</ | </ | ||
- | y ahora a esto hay que hacerle un // | ||
- | <code bash> | + | La mascara resultante hay que aplicarla a la imagen MD, |
- | fslmaths ${tmp_dir}/ | + | |
- | </ | + | |
- | La mascar resultante hay que aplicarla a la imagen MD y a esta ultima imagen es a la que hay que sacarle el histograma. | + | {{ : |
- | :WIP: | + | y a esta ultima imagen, |
- | Primero leo la DB del proyecto y por cada unos de las imagenes MD que he llegado a procesar ejecuto | + | {{ : |
+ | |||
+ | es a la que hay que sacarle | ||
<code perl> | <code perl> | ||
- | foreach my $subject (@dtis){ | + | |
- | my $dti_md = $w_dir.'/' | + | my $order = $ENV{' |
- | if($subject and -e $dti_md){ | + | |
- | my $order = $ENV{' | + | |
my @shist = qx/$order/; | my @shist = qx/$order/; | ||
- | chomp @shist; | ||
- | push @allsums, sum(@shist); | ||
- | $nph{$subject} = max(@shist); | ||
- | } | ||
- | } | ||
</ | </ | ||
- | ahora, el valor para normalizar es el medio de todas las areas, | + | ahora, el valor para normalizar es el numero |
<code perl> | <code perl> | ||
- | my $norm = sum(@allsums)/scalar(@allsums); | + | $order = $ENV{' |
+ | | ||
+ | my @gout = split ' ', $oout; | ||
+ | my $norm = $gout[0]; | ||
</ | </ | ||
- | y saco todo por //STDOUT//, | + | y todo esto se guarda, |
<code perl> | <code perl> | ||
- | print " | + | $nph{$subject}{' |
+ | $nph{$subject}{' | ||
+ | $nph{$subject}{' | ||
+ | </ | ||
+ | |||
+ | para escribirlo luego, | ||
+ | |||
+ | <code perl> | ||
+ | open ODF, "> | ||
+ | print ODF " | ||
foreach my $subject (sort keys %nph){ | foreach my $subject (sort keys %nph){ | ||
- | my $nphv = $nph{$subject}/ | + | my $nphv = $nph{$subject}{' |
- | print " | + | print ODF " |
} | } | ||
+ | close ODF; | ||
</ | </ | ||
Line 124: | Line 131: | ||
<code bash> | <code bash> | ||
- | [osotolongo@brick03 nph]$ ./nph.pl bioface | + | [osotolongo@brick03 nph]$ ./nph.pl bioface |
+ | [osotolongo@brick03 | ||
+ | Subject, | ||
+ | 0002, | ||
+ | 0003, | ||
+ | 0004, | ||
+ | 0005, | ||
+ | 0006, | ||
+ | 0007, | ||
+ | 0008, | ||
+ | 0009, | ||
+ | 0010, | ||
[osotolongo@brick03 nph]$ sed ' | [osotolongo@brick03 nph]$ sed ' | ||
- | [osotolongo@brick03 nph]$ join -t, -j 1 bioface_codes.csv | + | [osotolongo@brick03 nph]$ join -t, -j 1 bioface_codes.csv |
- | [osotolongo@brick03 nph]$ head normalised_peak_height.csv | + | [osotolongo@brick03 nph]$ head nph_sorted.csv |
Subject_ID, | Subject_ID, | ||
- | B002,0.0731249323687369 | + | B002,0.142459141831309 |
- | B003,0.0732767676009448 | + | B003,0.101291664281762 |
- | B004,0.0745456763272544 | + | B004,0.128800261523374 |
- | B005,0.0746812434988687 | + | B005,0.131614509246088 |
- | B006,0.0697899799470258 | + | B006,0.116625745352508 |
- | B007,0.0788675577583173 | + | B007,0.142582104338399 |
- | B008,0.0932810594443464 | + | B008,0.140059946569362 |
- | B009,0.0787428359604322 | + | B009,0.129072904095975 |
- | B010,0.0681414831401963 | + | B010,0.12497310864109 |
</ | </ | ||
**Nota:** Para simplificar he usado //csvsort// de [[https:// | **Nota:** Para simplificar he usado //csvsort// de [[https:// |