統計ソフトRのスクリプトについて

質問

R初心者です。以下のスクリプトが計算値を返してくれません。

具体的には、functionの後にdf=24, power=0.8, target=0.1, alpha=0.05 と打ち込んだものをeditorからコピペしてコンソールに貼り付けているんですが、値が返ってきません。

何がいけないのでしょうか？
どなたか、ご教授ください。

## RMSEA基準において検定力を確保するために必要なサンプル数の計算
## df: 自由度
## power: 目標とする検定力
## target: 目標とするRMSEAの値
## alpha: 有意水準（デフォルト値0.05）
################################################
powRMSEA <- function(df, power, target, alpha=0.05){
delta <- calcDelta(df, power, alpha)
N <- ( delta / (target^2 * df) ) + 1
return(N)
}

出典URL：http://www.es99.net/murohashi/filemgmt_data/files/calcDelta.txt

回答No.1

backs

ひょっとして「関数 "calcDelta" を見つけることができませんでした」というエラーメッセージが出ませんでしたか？

あらかじめ関数calcDelta()を定義しておかなければいけませんよね。提示されたページの一番上にある「非心度δを計算する関数」をコピペしてから、同じように実行してみてくださいな(^_^)