Я пытаюсь найти коэффициент корреляции фрейма данных и работает отлично.
Есть ли проблема при поиске коэффициента корреляции из фрейма данных с помощью cor (), или это хорошо для реализации этого кода для больших данных?
cc = function(input, output = NULL){
cc.map = function(., v)
{
data <- v[-1,]
data[,1:length(data)] = lapply(data[,1:length(data)], as.numeric)
keyval("korelasi",data)
}
cc.reduce =function(k, v )
{
keyval(k, cor(v))
}
mapreduce(
input = input ,
output = output,
input.format = make.input.format("csv",sep=",",fill = TRUE,stringsAsFactors=FALSE),
map = cc.map,
reduce = cc.reduce,
combine = T)}