.csv & .txt

Zadatak: Generisati vjestački data frame koji sadrži dvije kolone – x i y. Kolonu x definisati kao 100 slučajnih brojeva iz normalne raspodjele sa aritmetičkom sredinom 10 i standardnom devijacijom 5. Kolonu y definisati kao prost slučajan uzorak sa ponavljanjem od 100 jedinica vektora od 1 do 5. Generisani data frame eksportovati u .csv i .txt fajlove.

> #definisati slucajni pocetak
> set.seed(2211)
> #definisati vektor x
> x <- round(rnorm(100, 10, 5), 2)
> #definisati vektor y
> y <- sample(1:5, 100, rep = T)
> #kreirati data frame cije kolonu su vektori x i y
> db <- data.frame(x, y)
> head(db)
      x y
1 11.08 3
2  5.62 3
3 17.87 1
4 11.33 1
5 15.70 2
6 11.53 2
> #eksportovati db data frame kao db_exp.csv fajl
> write.csv(db, file = "db_exp.csv", row.names = FALSE)
> #eksportovati db data frame kao db_exp.txt fajl
> write.table(db, file = "db_exp.txt", row.names = FALSE)