NIA R Tutorial

In [1]:

    

?runif


    

In [2]:

    

??"Cumulative Distribution Function"


    

In [3]:

    

library(ggplot2)


    

    




Error in library(ggplot2): there is no package called ‘ggplot2’
Traceback:

1. library(ggplot2)
2. stop(txt, domain = NA)

In [4]:

    

#install.packages("name")


    

In [5]:

    

variable1 <- 1
print(variable1)


    

    




[1] 1

In [6]:

    

variable.zwei <- c(1, 2, 2.5, 100)
print(variable.zwei)


    

    




[1]   1.0   2.0   2.5 100.0

In [7]:

    

v.drei <- 1:10


    

In [8]:

    

v4 <- seq(1, 10, 0.5)


    

In [9]:

    

c(v.drei, 1, 0, v4)


    

    






	
1
	
2
	
3
	
4
	
5
	
6
	
7
	
8
	
9
	
10
	
1
	
0
	
1
	
1.5
	
2
	
2.5
	
3
	
3.5
	
4
	
4.5
	
5
	
5.5
	
6
	
6.5
	
7
	
7.5
	
8
	
8.5
	
9
	
9.5
	
10

In [10]:

    

rep(v4, times = 3)


    

    






	
1
	
1.5
	
2
	
2.5
	
3
	
3.5
	
4
	
4.5
	
5
	
5.5
	
6
	
6.5
	
7
	
7.5
	
8
	
8.5
	
9
	
9.5
	
10
	
1
	
1.5
	
2
	
2.5
	
3
	
3.5
	
4
	
4.5
	
5
	
5.5
	
6
	
6.5
	
7
	
7.5
	
8
	
8.5
	
9
	
9.5
	
10
	
1
	
1.5
	
2
	
2.5
	
3
	
3.5
	
4
	
4.5
	
5
	
5.5
	
6
	
6.5
	
7
	
7.5
	
8
	
8.5
	
9
	
9.5
	
10

In [11]:

    

1 + 1


    

    





2

In [12]:

    

1 - 1


    

    





0

In [13]:

    

1 * 2


    

    





2

In [14]:

    

1 / 2


    

    





0.5

In [15]:

    

2 ** 2


    

    





4

In [16]:

    

2 ^ 2


    

    





4

In [17]:

    

sqrt(2)


    

    





1.4142135623731

In [18]:

    

sin(2)


    

    





0.909297426825682

In [19]:

    

cos(2)


    

    





-0.416146836547142

In [20]:

    

1:12 %% 2 # Modulo


    

    






	
1
	
0
	
1
	
0
	
1
	
0
	
1
	
0
	
1
	
0
	
1
	
0

In [21]:

    

1:12 %/% 5 # Ganzzahlige Division


    

    






	
0
	
0
	
0
	
0
	
1
	
1
	
1
	
1
	
1
	
2
	
2
	
2

In [22]:

    

# Kommentare


    

In [23]:

    

0/0


    

    





NaN

In [24]:

    

x <- NA # missing value
is.na(x)


    

    





TRUE

In [25]:

    

objects()


    

    






	
'v4'
	
'variable1'
	
'variable.zwei'
	
'v.drei'
	
'x'

In [26]:

    

ls()


    

    






	
'v4'
	
'variable1'
	
'variable.zwei'
	
'v.drei'
	
'x'

In [27]:

    

rm(v.drei)
rm(list=ls())


    

In [28]:

    

(1:3) ** 2


    

    






	
1
	
4
	
9

In [29]:

    

x <- c()
print(x)


    

    




NULL

In [30]:

    

vector(mode="numeric")


    

In [31]:

    

numeric(0)


    

In [32]:

    

(1:5) > 2


    

    






	
FALSE
	
FALSE
	
TRUE
	
TRUE
	
TRUE

In [33]:

    

1 == 2


    

    





FALSE

In [34]:

    

(1:4) + (4:1)


    

    






	
5
	
5
	
5
	
5

In [35]:

    

(1:4) + (1:2)


    

    






	
2
	
4
	
4
	
6

In [36]:

    

crossprod((1:3), (1:3))


    

    







	
14

In [37]:

    

(1:3) %*% (1:3)


    

    







	
14

In [38]:

    

min(runif(n = 10))


    

    





0.102437991881743

In [39]:

    

# maximale Ergebnis aus drei Wuerfelwuerfen mit einem 
# sechseitigen Wuerfel
max(sample(x = 1:6, replace = TRUE, size=3))


    

    





5

In [40]:

    

sum(1:10)


    

    





55

In [41]:

    

cumsum(1:10) # Kumulative Summe


    

    






	
1
	
3
	
6
	
10
	
15
	
21
	
28
	
36
	
45
	
55

In [42]:

    

sort(sample(x = 1:6, replace = FALSE, size=6), decreasing = TRUE)


    

    






	
6
	
5
	
4
	
3
	
2
	
1

In [43]:

    

mean(1:10) # Mittelwert


    

    





5.5

In [44]:

    

var(runif(1000)) # Varianz


    

    





0.0816940120134945

In [45]:

    

floor(c(1, 1.5, 2.3, 4.1))


    

    






	
1
	
1
	
2
	
4

In [46]:

    

ceiling(pi)


    

    





4

In [47]:

    

mean((1:floor(sqrt(1000)))**2)


    

    





336