Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Визначаємо, скільки об’єктів знаходиться у завантаженому наборі даних, cкількома ознаками описаний кожний об’єкт і їх назви






> str (IrisSet)

'data.frame': 150 obs. of 5 variables:

$ sepal_l: num 5.1 4.9 4.7 4.6 5 5.4 4.6 5 4.4 4.9...

$ sepal_w: num 3.5 3 3.2 3.1 3.6 3.9 3.4 3.4 2.9 3.1...

$ petal_l: num 1.4 1.4 1.3 1.5 1.4 1.7 1.4 1.5 1.4 1.5...

$ petal_w: num 0.2 0.2 0.2 0.2 0.2 0.4 0.3 0.2 0.2 0.1...

$ species: Factor w/ 3 levels " Iris-setosa ",..: 1 1 1 1 1 1 1 1 1 1...

Визначаємо середні значення та дисперсії числових ознак

> mean (IrisSet[[" sepal_w" ]])

[1] 3.057333

> mean (IrisSet[[" sepal_l" ]])

[1] 5.843333

> mean (IrisSet[[" sepal_l" ]])

[1] 5.843333

> mean (IrisSet[[" petal_w" ]])

[1] 1.199333

> mean (IrisSet[[" petal_l" ]])

[1] 3.758

> var(IrisSet[[" petal_l" ]])

[1] 3.116278

> var(IrisSet[[" sepal_l" ]])

[1] 0.6856935

> var(IrisSet[[" sepal_w" ]])

[1] 0.1899794

Визначаємо середні значення та дисперсії числових ознак для об’єктів, які належать виду Iris-setosa.

> mean(IrisSet[IrisSet$species==" Iris-setosa ", ]$sepal_w)

[1] 3.428

> mean(IrisSet[IrisSet$species==" Iris-setosa ", ]$sepal_l)

[1] 5.006

> mean(IrisSet[IrisSet$species==" Iris-setosa ", ]$petal_l)

[1] 1.462

> mean(IrisSet[IrisSet$species==" Iris-setosa ", ]$petal_w)

[1] 0.246

> var(IrisSet[IrisSet$species==" Iris-setosa ", ]$sepal_l)

[1] 0.124249

> var(IrisSet[IrisSet$species==" Iris-setosa ", ]$petal_l)

[1] 0.03015918

> var(IrisSet[IrisSet$species==" Iris-setosa ", ]$petal_w)

[1] 0.01110612

> var(IrisSet[IrisSet$species==" Iris-setosa ", ]$sepal_w)

[1] 0.1436898

Будуємо приклади гістограм значень числових ознак

> plot (IrisSet$petal_l, IrisSet$petal_w, main=" Myfirst R Plot")

> plot (IrisSet$sepal_l, IrisSet$sepal_w, main=" Mysecond R Plot")

Виводимо одночасно гістограми значень ознак об’єктів видів Iris-setosa та Iris-virginica

> plot(IrisSet[IrisSet$species==" Iris-setosa" |IrisSet$species==" Iris-virginica ", ]$sepal_l, IrisSet[IrisSet$species==" Iris-setosa" |IrisSet$species==" Iris-virginica ", ]$sepal_w, main)=

 

> plot(IrisSet[IrisSet$species==" Iris-setosa" |IrisSet$species==" Iris-virginica ", ]$sepal_l, IrisSet[IrisSet$species==" Iris-setosa" |IrisSet$species==" Iris-virginica ", ]$sepal_w, main=" Mysecond R plot")

Визначаємо на основі значень якої ознаки простіше розділити об’єкти цих видів. Такою ознакою є розміри внутрішньої частки оцвітини (petal). 13. Будуємо графік залежностей значень ознаки petal_w від значень ознаки petal _l.

> plot(IrisSet[IrisSet$species==" Iris-setosa" |IrisSet$species==" Iris-virginica ", ]$sepal_l, IrisSet[IrisSet$species==" Iris-setosa" |IrisSet$species==" Iris-virginica ", ]$sepal_w, main=" Mysecond R plot")

Errorinxy.coords(x, y, xlabel, ylabel, log):

'x'and'y'lengthsdiffer

> plot(IrisSet[IrisSet$species==" Iris-setosa" |IrisSet$species==" Iris-virginica ", ]$sepal_l, IrisSet[IrisSet$species==" Iris-setosa " |IrisSet$species==" Iris-virginica ", ]$sepal_w, main = " MySecond R Plot")

> plot(IrisSet[IrisSet$species==" Iris-setosa" |IrisSet$species==" Iris-virginica ", ]$petal_l, IrisSet[IrisSet$species==" Iris-setosa " |IrisSet$species==" Iris-virginica ", ]$sepal_w, main = " MySecond R Plot")

> plot(IrisSet[IrisSet$species==" Iris-setosa" |IrisSet$species==" Iris-virginica ", ]$petal_l, IrisSet[IrisSet$species==" Iris-setosa " |IrisSet$species==" Iris-virginica ", ]$petal_w, main = " MySecond R Plot")


Поделиться с друзьями:

mylektsii.su - Мои Лекции - 2015-2024 год. (0.007 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал