# eine einfache Skriptdatei
x <- seq(0, 2*pi, 0.1)
y <- sin(x)
plot(x,y)