print("hello")
print("goodbye")
2 + 2
a<-2+2 
b<-3+3
c<-a+b
c_cappuccio <- c^2
d<-c/2
e<-a*b
f<-a
g<-c(1,2,3,4)
h<-g
i<-h+g
h*g
t(g)*g
t(g) %*% g
m<-matrix(data=c(1:9),nrow = 3,ncol = 3)
sum(1,2,3,4)
g<-c(g,5)
cbind(g,h,i)
nomi <- c("Gabriele","Giorgio","Lisa","Nicole")
nomi^2
num_c <- c("1","2","3")
num_c^2
class(m)
class(nomi)
class(a)
class(num_c)
num_n <- as.numeric(num_c)
class(num_n)
nomi_n <- as.numeric(nomi) #trasformo i nomi in numeri
m2<-cbind(nomi,h)
df <- data.frame(nomi_1a_fila=nomi,ID=h)
# kdmcljka vkjsarònvjksanvjksad vjkòsda vkjsò
rep(h,5)
rep(h,each=5)
big_little_df <- data.frame(Nomi_1a_fila=rep(nomi,500),
                            ID=rep(h,500))
h
h[3]
h[2]*h[3]
h[c(3,4)]
c(h[3],h[4])
m
m[2,2]
subset_bld <- big_little_df[1:100,]
big_little_df$Nomi_1a_fila
big_little_df$Nomi_1a_fila == "Gabriele"
subset_lisa <- big_little_df[big_little_df$Nomi_1a_fila=="Lisa",]
names(big_little_df)[1]<-"Nomi2"
big_little_df$new_c <- "Oggi ho imparato ad usare R"
big_little_df$ID2 <- g
big_little_df$ID1_più_ID2<-
  big_little_df$ID + big_little_df$ID2
c(m,h)
bi_little_df_c <- c(big_little_df)
g
g<-g[1:5]

plot(g)
order(g,decreasing = T)
plot(order(g,decreasing = T))