聾の子供にも効果のある英語喉メソッドの紹介(産経新聞WEB版 2011年4月17日)

【ウイークリーワールド】

 

【ワシントン=佐々木類】「L」や「R」など舌の形にこだわる従来の方法とまったく違う方法で、日本人に英語発音を指導してきた米国人女性が、耳の不自由な米人女児に同じ方法で指導を始め、生徒自身が驚くほどの成果を挙げている。視覚、聴覚、発声障害の三重苦と闘ったヘレン・ケラーの家庭教師、“サリバン先生”を彷彿させる親身の指導が印象的だ。ワシントン郊外の個人宅で授業を取材した。

 

【フォト】「サリバン先生」の授業風景

 

「さあ、難しい発音からやってみましょう。RやLの発音は日本人にも難しいのよ。read(読む)、left(左)、yellow(黄色)」…。

 

懸命にこの言葉を繰り返すのは、日本で小学校6年生に相当するマケイラ・ハウエルさん(12)。

 

生まれつき聴覚障害を患い、外科手術で側頭部に補聴器を植え込み、かすかな音が聞き取れるようになった。しかし、バージニア州フェアファックスに、聴覚障害者のための全米屈指の聾唖(ろうあ)学校があると聞いた母親のビッキー・ハウエルさん(50)の決断で自営業の父親をフロリダに残し、昨年2人で引っ越してきた。

 

最初はRやL、Wの発音ができないが、“サリバン先生”の言う通り一つ一つの英文字が持つ語感に忠実にのどの底から声を出すとみるみる発音が上達した。

 

喜んだビッキーさんが思わず拍手すると、うまく発音できずにふさぎ込みがちだったマケイラさんの表情に笑顔がはじけた。

 

“サリバン”先生は、日本人向けの英語教材を書いたことのあるバージニア州アーリントンに住むイラストレーター、ジーナ・ジョージさん。夫で米コンサルタント会社に勤める日本の元高校英語教師、上川一秋さんと英語発音の指導方法を研究してきた。

 

ジーナさんは、「英語であれ、日本語であれ、耳の不自由な人は唇をみて発声しようとするため、どうしても口先だけの発声になって聞き取りづらくなってしまう」という。

 

ジーナさんは、立命館大への留学経験がある。仕事やプライベートで日本人と接するうちに米国や英国人教師を含めて「舌の形に力点を置く日本での英語教育に疑問を持った」(ジーナさん)といい、新たな発音指導法の研究を始めた。

 

日本人が、日本語も英語も、口を使って発声しようとしているのに対し、英語ネーティブの米国人や英国人が無意識にオペラ歌手のようにのどを使って音を共鳴させながら発声していることに気づいた。

 

意識してのどから声を出すように心がければ英文字の持つ語感を生かした発音ができ、「L」や「R」の発音で使う舌の形は自然に形作られる、という。

 

マケイラさんは、「人前でしゃべるのがいやだったが、ジーナの授業を受けて話すのが楽しくなった。私も頑張るから、日本の人も“ツナミ”にくじけず頑張ってほしい」と話した。

R packages not installing

I kept getting error messages saying I can't install R packages.

I managed to solve this problem by directly downloading r packages on my PC and letting R-studio (or R) read the files directly.

To download a package  directly on your PC.  Go to

CRAN Packages By Date (r-project.org)

and find a package  you want.

For example, ... https://cran.r-project.org/web/packages/tidyverse/index.html

I downloaded  'r-release: tidyverse_2.0.0.zip. '

Run the following...         install.packages("C:/Users/..../Downloads/tidyverse_2.0.0.zip", repos = NULL, type = "win.binary")

FYI, this was what I was getting.

Warning in install.packages :
   リポジトリー http://repo.miserver.it.umich.edu/cran/src/contrib に対する索引にアクセスできません :
  cannot open URL 'http://repo.miserver.it.umich.edu/cran/src/contrib/PACKAGES'
Warning in install.packages :
  package ‘tidyverse’ is not available for this version of R

A version of this package for your version of R might be available elsewhere,
see the ideas at
https://cran.r-project.org/doc/manuals/r-patched/R-admin.html#Installing-packages
Warning in install.packages :
   リポジトリー http://repo.miserver.it.umich.edu/cran/bin/windows/contrib/4.3 に対する索引にアクセスできません :
  cannot open URL 'http://repo.miserver.it.umich.edu/cran
/bin/windows/contrib/4.3/PACKAGES'

Odds ratio in SAS PROC LOGISTIC

Odds ratio in SAS PROC LOGISTICS are just

exp(coefficient)

This is obvious for binary variables.

Even for continuous variables, it's just

exp(coefficient)

..which means that I think it is mot counterintuitive to standardize continuous variables.

So one easy way to get odds ratios is to run PROC LOGISTICS with continuous variables standardized and use exp(X) in Excel.

SAS Proc logistic and WWC effect size

ods trace on;
proc logistic data=final DESCENDING;
model YA01_3_bin =
treat
male
age_log
CH_compass
/*R_compass*/
white
black
/*other_race*/;
ods output ParameterEstimates=kaz1;
run;

data kaz1b;
set kaz1;
if Variable="Intercept" or Variable="treat";
keep Variable Estimate;
run;
proc transpose data=kaz1b out=kaz1bt;
id Variable;
run;

data kaz1bt2;
set kaz1bt;
C_LOGIT=intercept;
T_LOGIT=intercept+treat;
C_EXP=exp(C_LOGIT)/(1+exp(C_LOGIT));
C_ODDS=C_EXP/(1-C_EXP);
C_STEP1=log(C_ODDS);

T_EXP=exp(T_LOGIT)/(1+exp(T_LOGIT));
T_ODDS=T_EXP/(1-T_EXP);
T_STEP1=log(T_ODDS);

STEP2=T_STEP1-C_STEP1;
wwc_effect_size=STEP2/1.65;
odds_ratio=T_ODDS/C_ODDS;
run;

WWC effect size omega factor (to adjust for n) and R sample

https://ies.ed.gov/ncee/wwc/Docs/referenceresources/WWC_Procedures_Handbook_V4_1_Draft.pdf

See Page 16.

two_values<-view1b[3:4]
num<-view1b[2]

omega<-(1-3/(4*num-9))

C_LOGIT<-two_values[1]
C_EXP<-exp(C_LOGIT)/(1+exp(C_LOGIT))
C_ODDS<-C_EXP/(1-C_EXP)
C_STEP1<-log(C_ODDS)
T_LOGIT<-two_values[1]+two_values[2]
T_EXP<-exp(T_LOGIT)/(1+exp(T_LOGIT))
T_ODDS<-T_EXP/(1-T_EXP)
T_STEP1<-log(T_ODDS)
STEP2<-T_STEP1-C_STEP1
wwc_effect_size<-STEP2/1.65

wwc_effect_size_omega<-(omega*STEP2)/1.65

odds_ratio<-T_ODDS/C_ODDS

 

SAS data variable function detepart

if datepart(OffenseDate) > s_date;

 

 

data crim;
set abc.crim_history;
format new_date MMDDYY10.;
format s_date MMDDYY10.;
new_date=datepart(OffenseDate);
s_date=mdy(1,1,2019);
instruction="Drop ";
if new_date > s_date then instruction="Keep";
*if datepart(OffenseDate) > s_date;
run;