3582323072

D. Kosiorowski- Wielowymiarowa analiza danych z programem R - Laboratorium nr l

PRZYKŁAD NR 1

x<-rnorm(10,0,1)

y<-rnorm(10,5,1)

round(x,digit=2)

round(y,digit=2)

x[x>0]

y>x

z<-floor(y)

z

X^AZ

?floor

w<-ceiling(x^Az)

w

summary(w)

table(w)

pie(table(w),col=c(1,2,3,4,5),main="rysunek nr 1",labeis=c(^,'a","b","c^,,,"d","e"),cex=2)

zadanie: powtórzyć schemat dla wektorów x<-runif(100,2,5), y<-runif(100,1,3)

PRZYKŁAD NR 2

x<-rt(1000,2,2)

xcdf<-ecdfl[x)

xpdf<-density(x)

piot(xpdf,lwd=4)

x1<-rt(1000,2,5)

xpdf1<-density(x1)

Iines(xpdf1 ,iwd=4,co!="red")

?rt

plot(xcdf,Iwd=4)

text(20,0.2,"to jest wykres dystrybuanty") plot(x,x^A2+2*(x1),pch=5,cex=1.2,cex.lab=1.6) abline(2,15,lwd=2,col="red") abline(15,2,lwd=2,col="blue")

zadanie: sporządzić wykres dystrybuanty empirycznej dia próby 100 obserwacji rozkładu Poissona o parametrze 2.

PRZYKŁAD NR 3

z1<-rexp(100,10) z2<-rexp( 100,6) z3<-rexp(100,4) library(lattice)