2018-10-09 Α μέρος

a <- c(1.5, 2.1, 3)
a

length(a)
min(a)
max(a)
sum(a)
mean(a)
var(a)

a <- 1:10
a <- seq(1, 10)
a <- seq(from=1, to=10)
a <- seq(from=1, to=10, by=2)
a <- seq(from=0, to=10, by=2)
a <- seq(0, 10, 2)
seq(0, 0, 20000)
seq(3, 1, by=1)
seq(3, 1, by=-1)
a <- seq(0, 1, by=0.1)
a <- seq(1, 100, length.out = 5)
diff(a)
a <- seq(1, 10, length.out = 10)

a <- rep(0, 10)
a <- rep(NA, 10)

a <- rep(1:2, 5)
c(1, 1, 1, 1, 1, 2, 2, 2, 2, 2)
rep(1, 2, 5)
a <- c(rep(1, 5), rep(2, 5))

sqrt(a)
cos(a)

a + 1
a * 2
a + a

a <- runif(10, 0, 1)
a[1]
a[2]
a[10]
a[11]
a[length(a)]
head(a)
tail(a)
head(a, 3)
tail(a, 2)

sort(a)

a[1:2]
a[c(1,3)]
a[c(10, 1)]
rev(a)

a
a[1] <- 0
a <- c(0, a[2:length(a)])

Συνδεθείτε για περισσότερες δυνατότητες αλληλεπίδρασης,
σχολιασμοί, εξωτερικοί σύνδεσμοι, βοήθεια, ψηφοφορίες, αρχεία, κτλ.

Εκπαιδευτικό υλικό από τον Αθανάσιο Σταυρακούδη σας παρέχετε κάτω από την άδεια Creative Commons Attribution-NonCommercial-ShareAlike 4.0 License.
Σας παρακαλώ να ενημερωθείτε για κάποιους επιπλέον περιορισμούς
http://stavrakoudis.econ.uoi.gr/stavrakoudis/?iid=401.

Athanassios Stavrakoudis, Wed 27 Nov 2024