Сообщества, форумы, etc по языку R

Вопросы по статистическому пакету R. Не обязательно гео.
Ответить
Аватара пользователя
Natalia Novoselova
Гуру
Сообщения: 3020
Зарегистрирован: 15 янв 2013, 20:14
Репутация: 69
Ваше звание: Лиса
Откуда: **
Контактная информация:

Сообщества, форумы, etc по языку R

Сообщение Natalia Novoselova » 17 июн 2013, 21:10

Предлагаю собрать линки на сообщества, форумы и пр - везде, где есть специальные разделы, посвященные языку R.
Главное условие -это возможность ОБЩЕНИЯ (а не только архив литературы)

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




P.S. (перекрестная ссылка)
Тема форума по сбору литературы по R (можно убедиться, как ее много)
Последний раз редактировалось Natalia Novoselova 02 авг 2013, 06:06, всего редактировалось 2 раза.

Аватара пользователя
rhot
Гуру
Сообщения: 1727
Зарегистрирован: 25 янв 2011, 17:50
Репутация: 194
Ваше звание: доктор
Откуда: Архангельск

Re: Сообщества, форумы, etc по языку R

Сообщение rhot » 18 июн 2013, 10:39

http://stats.stackexchange.com/ : поиск вопросов по тегу R - никаких подфорумов, никаких отдельных разделов, просто и удобно.
http://stackoverflow.com/tags/r/info - то же самое, но на Stack Overflow
___________(¯`·.¸(¯`·.¸ Scientia potentia est _/ {SILVA}:::{FOSS}:::{GIS} \_ Знание сила ¸.·´¯)¸.·´¯)___________

Аватара пользователя
Natalia Novoselova
Гуру
Сообщения: 3020
Зарегистрирован: 15 янв 2013, 20:14
Репутация: 69
Ваше звание: Лиса
Откуда: **
Контактная информация:

Re: Сообщества, форумы, etc по языку R

Сообщение Natalia Novoselova » 18 июн 2013, 14:24

Спасибо!
Спонтанно в другой моей теме также зашел про это разговор (на первой стр) - даны ресурсы для вопросов, советы по поиску и еще один - русско-язычный ресурс с литературой.
Вот тема, и вот та ссылка на форум Шипунова (очень активный и полезный, на мой взгляд).

Игорь Черниенко писал(а): Если я не ошибаюсь, ветку форума модерирует сам А. Шипунов
http://molbiol.ru/forums/index.php?show ... 724&st=950

Однако примечательно, что на крупнейших программистский рус-яз форумах нет вообще и упоминания о языке R.
В чем причина, как считаете?
Последний раз редактировалось Natalia Novoselova 06 май 2014, 02:01, всего редактировалось 2 раза.

Аватара пользователя
Natalia Novoselova
Гуру
Сообщения: 3020
Зарегистрирован: 15 янв 2013, 20:14
Репутация: 69
Ваше звание: Лиса
Откуда: **
Контактная информация:

Re: Сообщества, форумы, etc по языку R

Сообщение Natalia Novoselova » 18 июн 2013, 15:09

R help forum
http://r.789695.n4.nabble.com/R-help-f789696.html

This forum is an archive for the mailing list r-help@r-project.org (more options) Messages posted here will be sent to this mailing list.
The ‘main’ R mailing list, for discussion about problems and solutions using R, announcements (not covered by ‘R-announce’ or ‘R-packages’, see above), about the availability of new functionality for R and documentation of R, comparison and compatibility with S-plus, and for the posting of nice examples and benchmarks.


R-bloggers
http://www.r-bloggers.com/

Аватара пользователя
Anton_Kh
Участник
Сообщения: 61
Зарегистрирован: 13 мар 2012, 18:10
Репутация: 37
Откуда: Харьков
Контактная информация:

Re: Сообщества, форумы, etc по языку R

Сообщение Anton_Kh » 02 июл 2013, 18:23

Довольно живая и адекватная группа Вконтакте "Язык программирования R для статистических вычислений":
http://vk.com/club8142131

mit002
Новоприбывший
Сообщения: 4
Зарегистрирован: 28 янв 2021, 20:55
Репутация: 0
Откуда: Москва

Re: Сообщества, форумы, etc по языку R

Сообщение mit002 » 28 янв 2021, 20:59

рассчитать дисперсию, максимальный элемент, 35-й процентиль, коэффициент вариции

Data4R <- read_excel("Вар6.xlsx", sheet=1)

result <- rbind(
apply(Data4R, 2, var), #дисперсия
apply(Data4R, 2, max), #максимальное значение
apply(Data4R, 2, quantile, probs = 0.35),
apply(Data4R, 2, sd) / apply(ex1, 2, mean) # коэф. вариации
)

rownames(result) <- c('var', 'max', 'percentile_35', 'coef_var')

Data4R _df <- as.data.frame(result)

write.xlsx(Data4R _df, file = '4R.xlsx')
Последний раз редактировалось mit002 29 янв 2021, 08:09, всего редактировалось 1 раз.

mit002
Новоприбывший
Сообщения: 4
Зарегистрирован: 28 янв 2021, 20:55
Репутация: 0
Откуда: Москва

Re: Сообщества, форумы, etc по языку R

Сообщение mit002 » 28 янв 2021, 23:22

найти такое подмножество, что позволил бы получить регрессионную модель с наибольшим значеним коэффициента детерминации
# Задача минимизации остаточной дисперсии полностью аналогична задаче
# максимизации коэффициента детерминации (задание 5)
# так как R^2 = 1 - var_res

exIM <- read_excel("Вар5.xlsx", sheet = 12)

names(exIM)[1] <- 'prop'
names(exIM)[-1] <- good_names(names(exIM)[-1])

vars <- paste(names(exIM)[-1], collapse = " + ")
formula <- as.formula(paste("prop ~", vars))

fit <- lm(formula, exIM)
summary_1 <- summary(fit)

# Выделяем значимые результаты
p_val <- summary_1$coefficients[,"Pr(>|t|)"]
significant_vars <- names(p_val)[p_val < 0.001][-1]

print(significant_vars) # это ответ

# проверка
optimal_vars <- paste(significant_vars, collapse = " + ")
optimal_formula <- as.formula(paste("prop ~", optimal_vars))
optimal_fit <- lm(optimal_formula, exIM)
summary(optimal_fit)

# Коэффициент детерминации сокращенной модели все еще единица!

mit002
Новоприбывший
Сообщения: 4
Зарегистрирован: 28 янв 2021, 20:55
Репутация: 0
Откуда: Москва

Re: Сообщества, форумы, etc по языку R

Сообщение mit002 » 28 янв 2021, 23:33

СКОТТ(дисперсия и среднее)

exIM <-read_excel("Вар6.xlsx", sheet=2)

# Scott
h <- ceiling(3.5 * sd(exIM$Выборка) / nrow(exIM)^(1/3))

x0 <- mean(exIM$Выборка)
sect_len <- (max(exIM$Выборка) - min(exIM$Выборка)) / h

Scott_group <- function(x, x0, sect_len){
a <- x - x0
a <- sign(x) * (abs(x) + sect_len/2)
group <- a / (sect_len)

return(trunc(group))
}

exIM$group <- Scott_group(exIM$Выборка, x0, sect_len)
exIM$group <- exIM$group - round(mean(exIM$group))
exIM$group <- factor(exIM$group)

result <- data.frame(row.names = c("mean", "var"))

for (grp in levels(exIM$group)){

result[1 ,grp] = mean(exIM$Выборка[exIM$group == grp])
result[2 ,grp] = var(exIM$Выборка[exIM$group == grp])

print(glue("Group {grp}"))
print(glue(" mean = {mean(exIM$Выборка[exIM$group == grp])}"))
print(glue(" var = {var(exIM$Выборка[exIM$group == grp])}"))
}

write.xlsx(result, file = 'exIM.xlsx')

mit002
Новоприбывший
Сообщения: 4
Зарегистрирован: 28 янв 2021, 20:55
Репутация: 0
Откуда: Москва

Re: Сообщества, форумы, etc по языку R

Сообщение mit002 » 28 янв 2021, 23:36

Гамма распределение (Гипотеза)
exIM <-read_excel("Вар5.xlsx", sheet=4)

k <- mean(exIM$X)^2 / var(exIM$X)
theta <- var(exIM$X) / mean(exIM$X)

hist(rgamma(length(exIM$X), k, theta), breaks = 20)
hist(exIM$X, breaks = 20)

ks.test(exIM$X, "pgamma", k, theta)
# p-value = 2.2e-16 => гипотеза о гамма распределении отвергается!

gamm
Гуру
Сообщения: 4046
Зарегистрирован: 15 окт 2010, 08:33
Репутация: 1050
Ваше звание: программист
Откуда: Казань

Re: Сообщества, форумы, etc по языку R

Сообщение gamm » 29 янв 2021, 09:54

что это и зачем это здесь? прием домашних заданий (да еще с ошибками) в другом месте :lol:

Аватара пользователя
VistaSV30
Активный участник
Сообщения: 185
Зарегистрирован: 02 июл 2018, 15:05
Репутация: 7
Откуда: Балашиха

Re: Сообщества, форумы, etc по языку R

Сообщение VistaSV30 » 12 авг 2021, 17:18

Тут есть форум
https://www.cyberforum.ru/r/
Но там не очень живо идет общение
Природа не просто эксцентричнее, чем мы полагаем - она эксцентричнее, чем мы способны предположить. John Haldane

Ответить

Вернуться в «R»

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и 5 гостей