1 / 7

library(MASS) hills summary(hills) Knockfarrel 6.0 600 32.383

acton
Télécharger la présentation

library(MASS) hills summary(hills) Knockfarrel 6.0 600 32.383

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Highland Games Race at Dufftown - the whisky capital of Scotland. Fantastic atmosphere with piped bands and caber tossing. The route is an out and back to Ben Rinnes, the dominant hill of the region, passing the rounded summits of Little Conval and Meikle Conval on the outward and return journeys. The most straightforward and runnable of the long Scottish hill races. Good terrain and easy route-finding most of the way. The only rough heathery section is between Meikle Conval and the road crossing. The race starts and finishes with a lap of the grassy sports track, which thankfully is much shorter than the track for Ben Nevis.

  2. library(MASS) hills summary(hills) Knockfarrel 6.0 600 32.383 Two Breweries 18.0 5200 170.250 Cockleroi 4.5 850 28.100 Moffat Chase 20.0 5000 159.833 > summary(hills) dist climb time Min. : 2.000 Min. : 300 Min. : 15.95 1st Qu.: 4.500 1st Qu.: 725 1st Qu.: 28.00 Median : 6.000 Median :1000 Median : 39.75 Mean : 7.529 Mean :1815 Mean : 57.88 3rd Qu.: 8.000 3rd Qu.:2200 3rd Qu.: 68.62 Max. :28.000 Max. :7500 Max. :204.62

  3. pairs(hills)

  4. attach(hills) plot(dist,time) abline(lm(time~dist)) identify(dist,time,row.names(hills),6)

  5. hills.lm<-lm(time~dist+climb,data=hills) summary(hills.lm) par(mfrow=c(1,2)) plot(hills.lm$fit,studres(hills.lm)) abline(h=0,lty=2) #identify(hills.lm$res,studres(hills.lm),n=2) qqnorm(studres) qqline(studres)

  6. hills.hat<-lm.influence(hills.lm) plot(hatvalues(hills.lm)) abline(h=3/35,lty=2) title("Influence h_i")

  7. hatvalues(hills.lm)[hatvalues(hills.lm)>3/35] Bens of Jura Lairig Ghru Ben Nevis Two Breweries Moffat Chase 0.4204346 0.6898161 0.1215821 0.1715848 0.1909891

More Related