Я пытаюсь использовать немного кода, который я нашел в академическом журнале ().Я новичок в R. Я получаю сообщение об ошибке, когда достигаю кода, вызывающего функцию «binHist», которая говорит: «Не удалось найти функцию« binhist ». Я не могу понять, находится ли она в библиотеке /пакет, который мне нужно установить, или если есть другая проблема с кодом. Любая помощь будет высоко ценится. Вот код, который я извлек из статьи:
whichData = yourData
baseH = data.frame()
RunningSum = 0
for (i in 2:16) {
tempBin = NULL
tempBin = binhist(i, whichData$rt)
theMean = sum(tempBin)/(i)
Divisor = sum(tempBin)
new = data.frame()
for (j in 1:ncol(tempBin)) {
grabVal = (tempBin[j] - theMean)^2
names(grabVal) <- NULL
new = c(new,grabVal)
}
extra = i - ncol(tempBin)
NewSum = Reduce("+",new) + extra*((0 - theMean)^2)
StdDev = sqrt(NewSum /(i-1))
RowVal = StdDev /Divisor
RunningSum = RunningSum + RowVal
baseH = c(baseH, list(tempBin))
}
paste("Number of Trials:",Divisor)
paste("Modulo-Binning Score (MBS): ",RunningSum)
library(plyr)
baseNow = do.call(rbind.fill,baseH)