Ćwiczenia 1

Wersja pdf

  1. Wykonaj poniższe czynności:
  • narysuj wykres funkcji \(y=\frac{5x+\sin(x)}{x}\) na przedziale \([0,30]\).
  • zmniejsz przedział do przedziału \([2,30]\).
  • przemyśl jaki warto ustalić zakres dla osi y
  • dodaj tytuł i podtytuł do wykresu
  • dodaj asymptotę do wykresu (innymi słowy dorysuj prostą \(y=5\) linią przerywaną).
  • zmień orientację liczb na osi y
  • dodaj legendę
  • dodaj tekst do wykresu
  1. Wprowadź poniższy kod:
library(MASS)
baza<-survey
head(baza)
##      Sex Wr.Hnd NW.Hnd W.Hnd    Fold Pulse    Clap Exer Smoke Height
## 1 Female   18.5   18.0 Right  R on L    92    Left Some Never 173.00
## 2   Male   19.5   20.5  Left  R on L   104    Left None Regul 177.80
## 3   Male   18.0   13.3 Right  L on R    87 Neither None Occas     NA
## 4   Male   18.8   18.9 Right  R on L    NA Neither None Never 160.00
## 5   Male   20.0   20.0 Right Neither    35   Right Some Never 165.00
## 6 Female   18.0   17.7 Right  L on R    64   Right Some Never 172.72
##        M.I    Age
## 1   Metric 18.250
## 2 Imperial 17.583
## 3     <NA> 16.917
## 4   Metric 20.333
## 5   Metric 23.667
## 6 Imperial 21.000

Stwórz co najmniej dwa wykresy do wybranych kolumn. Opis bazy jest dostępny tutaj - link.

Zrób oddzielny wykres pobierający dane tylko osób leworęcznych. Wskazówka:

l<-survey[survey$W.Hnd=="Left",]