Проверка гипотез
Для того, чтобы проверить гипотезу, ну то есть легитимизма ли зависимость одной величины от другой, воспользуемся, например, тестом Пирсона. По нему, нужно, чтобы корреляция двух вечелин была малой - не больше 0.05. Посморитм код:
> piracy <- read.csv("piracy.csv")
Rank Country GDP
1 Liechtenstein 141100
2 Qatar 104300
3 Luxembourg 81100
4 Bermuda 69900
...
> gdp <- read.table("gdp.txt", sep=" ", header=TRUE)
> countries <- merge(x = gdp, y = piracy)
> plot(countries$GDP, countries$Piracy)
> cor.test(countries$GDP, countries$Piracy)
Pearson's product-moment correlation
data: countries$GDP and countries$Piracy
t = -14.8371, df = 107, p-value < 2.2e-16
alternative hypothesis: true correlation is not equal to 0
95 percent confidence interval:
-0.8736179 -0.7475690
sample estimates:
cor
-0.8203183
Оооопачки! Отрицательная корреляция. Да еще и такая большая! Ну вообще точно-точно уровень пиратства не зависит от количества жителей страны!) А... Стоп. Если мы увеличим одно или другое, то сможем ли мы оценивать уровень пиратства? (черт возьми, да как работает эта дурацкая статистика, мать его?!) А, точно, линейная регрессия или что-то типа того.))
С помощью функции lm(response_variable ~ predicotr_variable) . ммммм.... Насколько я поняла, от предиктора зависит поведение response var. (ни одного нормального англо-русского мат словаря нет. Расшифруй, что хотел сказать автор, блеать!)
С помощью функции lm(response_variable ~ predicotr_variable) . ммммм.... Насколько я поняла, от предиктора зависит поведение response var. (ни одного нормального англо-русского мат словаря нет. Расшифруй, что хотел сказать автор, блеать!)
> line <- lm(countries$Piracy ~ countries$GDP)
> abline(line)
"Теперь, зная линейную регрессию мы можем предсказать уровень пиратсва" - говорили
они. (Кааааак?! - отвечала я.)
А, лан. Теперь няшненький пакетик для рисования красивых разноцветных графиков в r
Надо бы его себе установить
Качаем пакет:> install.packages("ggplot2")
Читаем хелп:
> help(package = "ggplot2") Information on package 'ggplot2' Description: Package: ggplot2 Type: Package Title: An implementation of the Grammar of Graphics Version: 0.9.1 ...
А так после установки пакета строим красивый график:
> qplot(weights, prices, color = types)
Теперь он с легендой сразу, и с разноцветными красивыми точечками.
Ну и собственно, на этом я прошла обучалку по R и мне даже предложили купить
книжки по языку со скидкой в 50%. Но я буду неправильным пиратом, если нигде не
хакну книжечку в пдфе :Р
А.Ну и сайтик по языку:
http://www.r-project.org/
ну и кукбук: http://www.cookbook-r.com/

Комментариев нет:
Отправить комментарий