mgechev

SET SCHEMA FN71202;

CREATE TABLE PRODUCT(
	NAME VARCHAR(15),
	CREATOR VARCHAR(15),
	QUANTITY INTEGER,
	PRODUCT_CODE VARCHAR(5) PRIMARY KEY NOT NULL
);

DROP TABLE PRINTER;

mgechev

smokes = c("Y", "N", "N", "Y", "N", "Y", "Y", "Y", "N", "Y");
amount = c(1, 2, 2, 3, 3, 1, 2, 1, 3, 2);
table(smokes, amount);
tmp = table(smokes, amount); #записва таблицата
old.digits = options("digits"); #запазва броят на цифрите
options(digit=3); #само три знака след десетичната запетая
prop.table(tmp, 1); #сумата по редове да е 1
prop.table(tmp, 2) #сумата по стълбове да е 1
prop.table(tmp) #сумата на всички да е 1
options(digit=old.digits); #връща старата сума

mgechev

--Практикум--

SET SCHEMA FN71202;

CREATE TABLE DEPARTMENT (

	NUMBER INT NOT NULL PRIMARY KEY,
	NAME VARCHAR(30)
	
);

mgechev

#Линейна регресия
#y^ = b0 + b1*x - уравнение на линейната регресия

#ei = yi - (yi^)i
#b1 = Sum((xi - x_)(yi - y_))/(Sum(xi - x_))^2
#b0 = y_ - b1*x

#Намират се чрез метода на най-малките квадрати
#Sum(1,n,(yi - (y^)i));

mgechev

SET SCHEMA PC;

--Намерете производителите на персонални компютри със скорост поне 700 MHz.
SELECT MAKER
  FROM PRODUCT
  WHERE MODEL IN ((SELECT MODEL
             FROM PC
             WHERE SPEED > 700));

SELECT DISTINCT PRODUCT.MAKER

mgechev

--natural join - връзва две таблици по атрибутите им с едно и също име
--inner join == join - връзва ги по общия атрибут, който се задава експлицитно
--outer join - прави същото като inner + (left, right и full)
--при left добавя всички атрибути на първата, там където може да
--направи връзка между атрибутите - ОК, където не, вдясно слага null
--full -> комбинация между 2-те

SET SCHEMA MOVIES;

--Напишете заявка, която извежда името на продуцента и имената на филмите, 

mgechev

SET SCHEMA MOVIES;

--Да се напише заявка, която извежда имената и годините на всички филми, които са по-дълги
--от 120 минути и са снимани преди 1990 г. Ако дължината на филма е неизвестна (NULL),
--името и годината на този филм също да се изведат.

SELECT TITLE, YEAR, LENGTH
  FROM MOVIE
  WHERE LENGTH > 120 OR LENGTH IS NULL AND YEAR < 1990;

mgechev

data.frame; #създава нов (наш си) data frame
weight = c(150,135,210,140);
heigth = c(65,61,70,65);
gender = c("Fe", "Fe", "M", "Fe");
study = data.frame(weight, heigth, gender); #прави data.frame с име "study"
study;

study = data.frame(w = weight, h = heigth, g = gender); #имена на колоните
row.names(study) <- c("Mary", "Alice", "Bob", "Judy"); #имена на редовете

mgechev

SET SCHEMA SHIPS;
--Имената и годините на пускане на всички кораби, които имат същото име като
--своя клас.
SELECT NAME, LAUNCHED
  FROM SHIPS
  WHERE NAME = CLASS;

SET SCHEMA MOVIES;
--Всички филми, чието заглавие съдържа едновременно думите 'Star' и 'Trek' (не
--непременно в този ред). Резултатите да се подредят по година (първо най-новите

mgechev

#Violinplots и dansityplots

#simple.violinplot
#simple.densityplot

#3 графики в един прозорец
par(mfrow=c(1,3));
data(InsectSprays);