# Κεφάλαιο 4
# Ενότητα 4.3 (Το περιβάλλον της κονσόλας R)

8+2
10 - 2
8 * 2
16/2
8^2
8**2
8 %/% 5
8 %% 5
8 + 2 * 2 - 3 / 2
((8 + 2) * 2 - 3) / 2
((8 + 2) * 2 - 3 / 2              # Σφάλμα (λείπει το κλείσιμο της παρένθεσης)
Sqrt(5)                           # Σφάλμα (έχει γραφτεί κεφαλαίο το πρώτο γράμμα, ενώ το ορθό είναι πεζό)
sqrt(5)
abs(-6.4321)
7 + 8.5 + 8 + 6 + 8 + 9 + 5
posa <- c(7, 8.5, 8, 6, 8, 9, 5)
posa
sum(posa)
mean(posa)
max(posa)
min(posa)
length(posa)
class(posa)
posa[2]
posa[2:4]
posa[c(3,5,7)]
?mean
help(mean)
??Mean
help.search("mean")
apropos("mean")
RSiteSearch("mean")

# Ενότητα 4.4 (Η οργάνωση δεδομένων σε διανύσματα)

posa <- c(7, 8.5, 8, 6, 8, 9, 5)
str(posa)
length(posa)
onomata<-c("Μαρία", "Κωνσταντίνα","Νίκος","Βασίλης")
str(onomata)
is.numeric(posa)
is.logical(posa)

# Ενότητα 4.5 (Η οργάνωση δεδομένων σε αντικείμενα του R)

x<-c(4,7,8,9,13,15,17,19,24,34)
x1<-matrix(x, ncol=2)
x1
x1<-matrix(x, ncol=2,byrow=TRUE)
dimnames(x1)<-list(c("Γρ1","Γρ2","Γρ3","Γρ4","Γρ5"),c("Στ1","Στ2"))
dimnames(x1)<-list(NULL,c("Στήλη1","Στήλη2"))
dim(x1)
x<-c(4,7,8,9,13,15,17,19,24,34)
y<-c(5,9,15,16,16,19,22,56,32,21)
x2<-array(cbind(x,y),dim=c(5,2,2))
x2
dedomena<-data.frame(sex=c("M","F","F"),performance=c(15,17,20))
row.names(dedomena)<-c("Μάριος","Ιωάννα","Ελένη")
dedomena
sex=c("M","F","F")
performance=c(15,17,20)
age<-c(95,93,99)
dedomena<-data.frame(sex, performance, age)
sex=c("M","F","F");performance=c(15,17,20);age<-c(95,93,99);dedomena<-data.frame(sex, performance, age)
str(dedomena)
dedomena$performance
dedomena$sex
dedomena[,3]
sum(dedomena$performance)
length(dedomena$sex)
fix(dedomena)
λίστα<-list(posa=posa,x1=x1,dedomena=dedomena)
λίστα

# Ενότητα 4.6 (Πακέτα και εγκατάσταση πακέτων στο R)

install.packages("foreign")
install.packages("foreign", depend=T)
library(help=psych)
library(foreign)

# Ενότητα 4.7 (Εισαγωγή ερευνητικών δεδομένων στο R)

dedomena<-edit(dedomena)
edit(dedomena)
fix(dedomena)
x<-data.frame()
x<-edit(x)
setwd("E:/Documents/R/bookstats")	# Συμπληρώστε τη διεύθυνση του φακέλου στον υπολογιστή σας
getwd()
Exerc4<-read.spss('E:/Documents/R/bookstats/exerc4_1b.sav', to.data.frame=T)
Exerc4<-read.spss('exerc4_1b.sav', to.data.frame=T)
str(Exerc4)
install.packages("haven")
library(haven)
Exerc41 <- read_sav("Exerc4_1.sav")
str(Exerc41)
exerc41 <- read.csv ("Exerc41.csv", header=TRUE)
install.packages("Rcmdr", dependencies=TRUE)
library(Rcmdr)

# Ενότητα 4.8 (Αποθήκευση της δουλειάς μας στο R)

save(x,file='test.txt')
load(file='test.txt')