hi guys... i don't know why... but
asd_sel.dt <- corr.ROIs[c("ROI_1", "ROI_2")]
asd_sel.dt$olymp.mean <-apply(asd_sel.dt, 1, function(row) {
values <- c()
for(person in names(asd_sel)) {
frame <- paste("corr.", person, sep="")
elem <- frame[ (frame[["ROI_1"]] == row["ROI_1"]) & (frame[["ROI_2"]] == row["ROI_2"]), "pearson.corr"]
values <- c(values, elem)
}
values <- values[values != min(values)]; values <- values[values != max(values)]
mean(values)
})
frame[ (frame[["ROI_1"]] == row["ROI_1"]) & (frame[["ROI_2"]] == row["ROI_2"]), "pearson.corr"] this is an error... but its more strange anyone can tell me the reason? thanks!