Under følger et forsøk på å gjenskape Bakkestuen mfl. 2008, med et forsøk om å gjøre det mest mulig helautomatisk.
https://hastie.su.domains/Papers/gap.pdf
Prepper figurer
Når man har forenklet det til to akser med hjelp av PCA så ser det slikt ut:
Results
used (Mb) gc trigger (Mb) max used (Mb)
Ncells 3140712 167.8 5891690 314.7 5891690 314.7
Vcells 451034987 3441.2 938832195 7162.8 798035208 6088.6Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'values': object 'so' not found
ID Seksjon Seksjon_hClust Seksjon_hClust6
Min. : 1 Min. :1.000 Min. :1.000 Min. :1.000
1st Qu.: 518026 1st Qu.:1.000 1st Qu.:1.000 1st Qu.:1.000
Median :1036050 Median :2.000 Median :2.000 Median :2.000
Mean :1036050 Mean :1.646 Mean :1.646 Mean :1.646
3rd Qu.:1554075 3rd Qu.:2.000 3rd Qu.:2.000 3rd Qu.:2.000
Max. :2072099 Max. :3.000 Max. :3.000 Max. :3.000
NA's :402 NA's :402 NA's :402
Grp hClust6 i.Grp hClust
Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000
1st Qu.:2.000 1st Qu.:2.000 1st Qu.:2.000 1st Qu.:2.000
Median :2.000 Median :3.000 Median :2.000 Median :3.000
Mean :2.659 Mean :3.005 Mean :2.659 Mean :3.005
3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:4.000 3rd Qu.:4.000
Max. :5.000 Max. :5.000 Max. :5.000 Max. :5.000
NA's :402 NA's :402 NA's :402 NA's :402
Sone PCAx PCAy
Min. :1.000 Min. :-3.9654 Min. :-4.5337
1st Qu.:2.000 1st Qu.:-0.9847 1st Qu.:-3.1696
Median :4.000 Median :-0.4051 Median :-2.3780
Mean :3.518 Mean :-0.5106 Mean :-2.4762
3rd Qu.:5.000 3rd Qu.: 0.0466 3rd Qu.:-1.8112
Max. :6.000 Max. : 1.0450 Max. : 0.4727
NA's :402 NA's :402 NA's :402