Powered By Blogger

вторник, 2 июня 2015 г.

Пост 4. Последние две главы обучалки R на Code School

Проверка гипотез 

Для того, чтобы проверить гипотезу, ну то есть легитимизма ли зависимость одной величины от другой,  воспользуемся, например, тестом Пирсона. По нему, нужно, чтобы корреляция двух вечелин была малой -  не больше 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.  (ни одного нормального англо-русского мат словаря нет. Расшифруй, что хотел сказать автор, блеать!)

> 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/

Комментариев нет:

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