Распознавание эмоций

No Comments

Сделал маленькое shiny-приложение с использованием Microsoft Emotion API (из коллекции алгоритмов искусственного интеллекта от Microsoft Cognitive Services) для анализа эмоций по выражению лица на фотографии.

Распознавание эмоций

Алгоритм анализирует лицо на наличие восьми различных эмоций: гнев, презрение, отвращение, страх, радость, спокойствие, грусть и удивление. Определяет пол и возраст человека на фотографии.

https://beta.rstudioconnect.com/psych/emo/

Геолокация участников тестирования

No Comments

Сервис виртуальных исследований Virtualexs.ru позволяет сохранять IP-адрес участника опроса (тестирования). Это дает возможность определить географическое положение участника. Попробуем нанести на карту эти данныe.

# Требуемые библиотеки
library(RCurl)
library(maps)
library(mapdata)
library(rgeolocate)
library(ggplot2)

# Загрузим данные
myfile <- «https://dl.dropboxusercontent.com/u/33111025/ip_data.csv»
myfile <- getURL(myfile, ssl.verifyhost=FALSE, ssl.verifypeer=FALSE)
mydata <- read.csv(textConnection(myfile), header=TRUE, stringsAsFactors=FALSE)

# Соберем данные по IP-адресам и определим по ним координаты участника

file <- system.file(«extdata»,»GeoLite2-City.mmdb», package = «rgeolocate»)
ipdata <- maxmind(mydata$VExS_ip, file, fields = c(«country_name», «country_code»,
«city_name», «longitude», «latitude»))

# Построим карту
plot.new()
png(file=»world.png»,width=600,height=400)
map(«worldHires»)
map.axes()
for (i in 1:length(ipdata)) {
points(ipdata$longitude, ipdata$latitude, col=rgb(red=0.2, green=0.2, blue=1.0, alpha=0.1),pch=20)
}
dev.off()

Первый способ

Первый способ

# второй способ

geomap1 <- ipdata[,c(«latitude», «longitude»)]
world_map<-map_data(«world»)
world_map <- subset(world_map, region != «Antarctica»)
gg <- ggplot(world_map)
gg <- gg + geom_map(dat=world_map, map = world_map,
aes(map_id=region), fill=»white», color=»gray70″)
gg <- gg + geom_point(data=geomap1, aes(longitude, latitude),
colour=»red», alpha=1/10, size=2)
gg <- gg + theme_bw()
print(gg)

Второй способ

Второй способ

 

 

R-Fiddle — среда R у вас в браузере или на сайте

No Comments

В стадии бета-тестирования стартовал новый проект R-Fiddle, предоставляющий вам свободную и мощную онлайн среду для того, чтобы писать, редактировать и делиться R-скриптами прямо в браузере! (сохранить результаты работы, получать комментарии, делиться кодом в социальных сетях или на сайте). Есть возможность подключения пакетов. Все это доступно без какой-либо регистрации. Больше всего мне нравится опция встраивания кода прямо к себе в блог (нажмите «Activate Console», затем «Run»):

Документы.Google, Dropbox, R для психологических исследований в сети

No Comments

Провожу эксперимент, направленный на отладку скрипта для R, который позволяет автоматизировать работу по загрузке данных из краткого опросника, анализу и графическому представлению исходных данных в сети интернет.

Эксперимент идет в онлайн. Вы можете следить за ним в реальном времени. Данные обновляются не менее 1 раза в сутки.

Более подробно см. http://tukachev.flogiston.ru/exp.html