#
# midtveis_og_desember2013
# fra kurset stk1000 som Nils ga høsten 2013, 
# de 65 studenter (av ca. 200) som Nils har disse
# karakterene for, skalert til 0-100-skalaen
# karakterer <- matrix(scan("midtveis_og_desember2013",skip=14),byrow=T,ncol=3)
# nummer <- karakterer[ ,1]
# xx <- karakterer[ ,2] # midtveis
# yy <- karakterer[, 3] # desember
# plot(xx,yy, xlim=c(0,100),ylim=c(0,100),xlab="midtveis",ylab="desember")
# cor(xx,yy) 
# heisan <- lm(yy ~ xx)
# summary(heisan) 
# 

  1   40  29.1
  2   70  34.5
  3   70  26.4
  4   70  43.6
  5   90  86.4
  6   80  45.5
  7   95  90.9
  8   35  53.6
  9   65  75.5
 10   55  40.0
 11   65  35.5
 12   85  65.5
 13   45  20.9
 14   90  52.7
 15   25  24.5
 16   85  77.3
 17   70  58.2
 18   55  37.3
 19   85  86.4
 20   55  19.1
 21   85  67.3
 22   75  48.2
 23   75  50.0
 24   55  60.9
 25   70  48.2
 26   65  18.2
 27   80  61.8
 28   85  47.3
 29   85  77.3
 30   45  32.7
 31  100  80.0
 32   70  50.9
 33   55  31.8
 34   90  45.5
 35   80  60.0
 36   25  52.7
 37   70  59.1
 38   70  29.1
 39   65  33.6
 40   95  99.1
 41   50  28.2
 42   90  36.4
 43   70  60.0
 44   50  29.1
 45   90  70.0
 46   95  80.0
 47   45  42.7
 48   85  88.2
 49   70  75.5
 50   85  56.4
 51   70  47.3
 52   55  66.4
 53   70  37.3
 54   60  35.5
 55   85  52.7
 56   80  68.2
 57   70  27.3
 58   55  65.5
 59   65  37.3
 60   75  25.5
 61   80  51.8
 62   95  86.4
 63   60  44.5
 64   75  40.0
 65   90  82.7