目的

リッカート尺度を計算する

使用法

likert(dat)

引数

dat	各カテゴリーへの回答数

ソース

インストールは，以下の 1 行をコピーし，R コンソールにペーストする
source("http://aoki2.si.gunma-u.ac.jp/R/src/likert.R", encoding="euc-jp")

# リッカート尺度を計算する
likert <- function(dat)                                                      # 各カテゴリーへの回答数
{
        n <- length(dat)                                             # カテゴリー数
        resp <- dat/sum(dat)                                         # 各カテゴリーへの反応の割合（相対度数）
        cum <- cumsum(resp)                                          # 各カテゴリーへの反応の累積相対度数
        result <-(dnorm(qnorm(c(0, cum[-n])))-dnorm(qnorm(cum)))/resp
        names(result) <- paste("Cat", 1:n, sep="")                   # 名前を付ける
        return(result)                                                  # 結果を返す
}


使用例

dat <- c(7, 18, 34, 26, 15)
likert(dat)

出力結果例

     Cat1       Cat2       Cat3       Cat4       Cat5
-1.9181131 -1.0194925 -0.2087361  0.5984157  1.5543918