※文部科学省の医療データ人材育成拠点形成事業の公募があるため、医療データアナリスト（Healthcare Data Analyst）についてまとめます。 ーー以下、公募の背景から抜粋ーーー 次世代医療基盤法（2018 年5 月 11 日施行）や保健医療データプラットフォームの本格稼働（2020 年度予定）などにより、多様な医療データを大規模に収集することができる環境の整備を図っています。 医療データは、大規模に収集するだけでは意味をなさないため、医療や医療 データに関する知識をもって必要なデータを抽出し、意味のあるかたちに整理 した上で、整理されたデータを分析し、課題を解決することが必要です。しか し、そのような能力を有する人材の不足が指摘されており、医療データの利活 用を推進する上で、人材育成は喫緊の課題となっています。 ーーーーーーーーーーーーーーーーーー 【参考サイト】 Healthcare Data Analyst Job DescriptionWHAT IS A HEALTHCARE DATA ANALYST? HOW DO YOU BECOME ONE?
Category Archive: 医療
蠶寶寶與醫學（－）
【流感疫苗的製造】資料來源
利用蠶寶寶製成預防效果高的流感疫苗技術，已由沖繩名護市的生物資源研究所開發成功，2013年3月12日由病毒學家的根路銘所長在那霸市召開的「沖繩新產業創出投資事業」的研究發表會中做了報告。
讓人害怕的毒性特強的新型流感，其來源被認為來自高致病性的H5N1型的禽流感。
病毒開始流行的話，有效的疫苗的早期生產以及供應是很必要的，但是現在用雞蛋的製法產量有限，成本又高。因此，同研究所開始從事蠶寶寶的疫苗製造法的研發。
從跟感染有關的H蛋白去除致病性後可拿來當疫苗蛋白。同研究所把在日本發現的高致病性病毒的H蛋白基因中的致病性基因除去，與增高繁殖力的基因結合做成合成基因，然後導入要傳染給蠶寶寶的病毒裡。
這個病毒在被感染的蠶寶寶體內大量製造疫苗用的蛋白。把蠶繭裡的蛹弄碎精製的方法，可以獲得雞蛋製法的數百倍高活性的疫苗用蛋白。
同研究所在高致病性的禽流感擴散的印尼Bogor農業大學做了共同的研究，在去年11月確認了這個方法做成的雞用的疫苗蛋白的有效性。今年6月預定正式疫苗製造。同樣方法製造人類用的疫苗也在考慮當中。
群馬縣藤岡市的試藥公司的「免疫生物研究所」開發了，把體內製造的試藥的蛋白吐到蠶繭的絲裡的基因重組蠶寶寶。兩個研究所把各自的技術組合起來，成功地開發了把流感用的疫苗蛋白吐到蠶繭絲裡的蠶寶寶。根路銘所長說：「蠶絲的蛋白用水洗就可回收，幾乎不用精製。更可能供應廉價的疫苗」
WHO Monographs
WHO Monographs
WHO Monographs on Selected Medicinal Plants - Volume 1
WHO Monographs on Selected Medicinal Plants - Volume 2
WHO Monographs on Selected Medicinal Plants - Volume 3
WHO Monographs on Selected Medicinal Plants - Volume 4
WHO Monographs on Medicinal Plants Commonly Used in the Newly Independent States (NIS)
perl memo UTF-8 の置換え問題
perl 5 ( version 12 ）を使ってUTF-8を置換えするとき、うまく行けませんでした。
原因はわかりませんが、下記の現象が起こります。
my $content = "阴阳学说 yin-yang theory 中国古代哲学理论范畴。阴阳的对立统一是天地万物运动变化的根本规律。";
$content = ~s/theory/null/g;
print "$content¥n";
【期待した結果】
阴阳学说 yin-yang 中国古代哲学理论范畴。阴阳的对立统一是天地万物运动变化的根本规律。
【実行結果】
18446744073709551615
原因が分かり方はぜひお教えください。
しばらく下記の関数でやっております。
sub ReplaceAll {
my $string = Encode::decode_utf8(shift);
my $str1 = Encode::decode_utf8(shift);
my $str2 = Encode::decode_utf8(shift);
for (my $i=0 ; $i <= length($string); $i+=length($str1)){
my $pos=index($string, $str1, $i) ;
if ( $pos>=0){
substr($string, $pos, length($str1),$str2);
...
perl tips 文字列に英文以外の文字を取り出す
#!/usr/bin/perl
use strict;
use Encode;
my $content = "阴阳学说 yin-yang theory 中国古代哲学理论范畴。阴阳的对立统一是天地万物运动变化的根本规律。";
print "$content\n";
my $notlatin = GetNotLatin($content);
print $notlatin,"\n" ;
sub GetNotLatin {
my $string =shift;
$string.=" ";
my @alph_list = ('A' .. 'Z', 'a' .. 'z','\'','.','(',')','-' );
my @string = ();
my @word = ();
foreach my $character (split //, $string) {
if ( grep {$_ eq $character} @alph_list ){
push(@string, $character);
} else {
if ($#string>0){
push(@word, ...