1-cs-algae - #$'$#$)$*$"$*$"0...

Info iconThis preview shows pages 1–7. Sign up to view the full content.

View Full Document Right Arrow Icon
Statistics 503, Spring 2013, ISU !"#$% '$(% ()*+, !"#$%&"'"()$ +( ,#)"& $#'-."$ /&+' $"0"&#. 1%&+-"#( &20"&$3 '"#$%&"4 56 7))-899 ,,,:"&%42):4" ; #0#2.#5." #.$+ #) 7))-899 #&<720":2<$:%<2:"4%9'.94#)#$")$9=+2. >[email protected]@@>=+'-")2)2+(>A#)# ?? 0#&2#5."$8 B <+()"C)%#. D$"#$+(3 $2E"3 $-""4F3 G ,#)"& <7"'2$)&63 H <+(<"()&#)2+($ +/ 7#&'/%. #.I#" J%&-+$"8 J&"42<) #.I#. 5.++'$ 1 1 Statistics 503, Spring 2013, ISU -$./$0"%( $"#$+(3 $2E"3 $-""48 4"$<&2-)20" 0#&2#5."$ 'CJK8 '#C2'%' -K '(LM8 '2(2'%' L ! =.8 N0"&#I" =7.+&24" OLB8 N0"&#I" (2)&#)"$ OKP8 N0"&#I" #''+(2%' J+P8 N0"&#I" )+)#. -7+$-7#)" =7.#8 N0"&#I" <7.+&+-76. . #?;#H8 #.I#" <+%()$3 42Q"&"() )6-"$ +/ #.I#" 2 2
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full Document Right Arrow Icon
Statistics 503, Spring 2013, ISU 1%))/2# $ #"/34(% R%''#&2E2(I (%'"&2<#. .6 3 > library(DMwR) > head(algae) season size speed mxPH mnO2 Cl NO3 NH4 oPO4 PO4 Chla 1 winter small medium 8.00 9.8 60.800 6.238 578.000 105.000 170.000 50.0 2 spring small medium 8.35 8.0 57.750 1.288 370.000 428.750 558.750 1.3 3 autumn small medium 8.10 11.4 40.020 5.330 346.667 125.667 187.057 15.6 4 spring small medium 8.07 4.8 77.364 2.302 98.182 61.182 138.700 1.4 5 autumn small medium 8.06 9.0 55.350 10.416 233.700 58.222 97.580 10.5 6 winter small high 8.25 13.1 65.750 9.248 430.000 18.250 56.667 28.4 ... a1 a2 a3 a4 a5 a6 a7 1 0.0 0.0 0.0 0.0 34.2 8.3 0.0 2 1.4 7.6 4.8 1.9 6.7 0.0 2.1 3 3.3 53.6 1.9 0.0 0.0 0.0 9.7 4 3.1 41.0 18.9 0.0 1.4 0.0 1.4 5 9.2 2.9 7.5 0.0 7.5 4.1 1.0 6 15.1 14.6 1.4 0.0 22.5 12.6 2.9 ... 3 Statistics 503, Spring 2013, ISU 1%))/2# $ #"/34(% R%''#&2E2(I (%'"&2<#. .6 4 > summary(algae) season size speed mxPH mnO2 autumn:40 large :45 high :84 Min. :5.600 Min. : 1.500 spring:53 medium:84 low :33 1st Qu.:7.700 1st Qu.: 7.725 summer:45 small :71 medium:83 Median :8.060 Median : 9.800 winter:62 Mean :8.012 Mean : 9.118 3rd Qu.:8.400 3rd Qu.:10.800 Max. :9.700 Max. :13.400 NA's :1 NA's :2 ... 4
Background image of page 2
Statistics 503, Spring 2013, ISU 1%))/2# $ #"/34(% R%''#&2E2(I I&#-72<#. .6 5 > library(ggplot2) > qplot(mxPH, data=algae, geom="histogram") > qplot(mxPH, . .density. ., data=algae, geom=c("histogram", "density"), binwidth=0.5, fill=I("grey70")) 0 10 20 6 7 8 9 10 mxPH count 0.0 0.2 0.4 0.6 5 6 7 8 9 10 mxPH density Too slow. .. 5 Statistics 503, Spring 2013, ISU 1%))/2# $ #"/34(% R%''#&2E2(I I&#-72<#. .6 6 > library(rggobi) > ggobi(algae) 6
Background image of page 3

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full Document Right Arrow Icon
Statistics 503, Spring 2013, ISU 1%))/2# $ #"/34(% !+$).6 (+(;(+&'#. 42$)&25%)2+($ L%).2"&$ !2$$2(I 0#.%"$ 7 7 Statistics 503, Spring 2013, ISU 5"%$2/2# S&#($/+&' 0#&2#5."$ )+ T<.+$" )+U (+&'#. 8 8
Background image of page 4
Statistics 503, Spring 2013, ISU 5"%$2/2# 9 > # Transformations > library(ggplot2) > qplot(Cl, data=algae, geom="histogram") > qqnorm(algae$Cl) > qqline(algae$Cl) > par(pty="s") > qqnorm(algae$Cl) > qqline(algae$Cl) > qplot(Cl, data=algae, geom="histogram") > algaet <- algae > algaet$Cl <- sqrt(algae$Cl) > qplot(Cl, data=algaet, geom="histogram") > qqnorm(algaet$Cl) > qqline(algaet$Cl) > algaet$Cl <- log10(algae$Cl) > qplot(Cl, data=algaet, geom="histogram") > qqnorm(algaet$Cl) > qqline(algaet$Cl) > algaet$Cl <- algae$Cl^(0.25) > qplot(Cl, data=algaet, geom="histogram") > qqnorm(algaet$Cl) > qqline(algaet$Cl) Cl 9 Statistics 503, Spring 2013, ISU 5"%$2/2# 9 > # Transformations > library(ggplot2) > qplot(Cl, data=algae, geom="histogram") > qqnorm(algae$Cl) > qqline(algae$Cl) > par(pty="s") > qqnorm(algae$Cl) > qqline(algae$Cl) > qplot(Cl, data=algae, geom="histogram") > algaet <- algae > algaet$Cl <- sqrt(algae$Cl) > qplot(Cl, data=algaet, geom="histogram") > qqnorm(algaet$Cl) > qqline(algaet$Cl) > algaet$Cl <- log10(algae$Cl) > qplot(Cl, data=algaet, geom="histogram") > qqnorm(algaet$Cl) > qqline(algaet$Cl) > algaet$Cl <- algae$Cl^(0.25) > qplot(Cl, data=algaet, geom="histogram") > qqnorm(algaet$Cl) > qqline(algaet$Cl) 0 20 40 60 0 100 200 300 400 Cl count Cl 9
Background image of page 5

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full Document Right Arrow Icon
Statistics 503, Spring 2013, ISU 5"%$2/2# 9 > # Transformations > library(ggplot2) > qplot(Cl, data=algae, geom="histogram") > qqnorm(algae$Cl) > qqline(algae$Cl) > par(pty="s") > qqnorm(algae$Cl) > qqline(algae$Cl) > qplot(Cl, data=algae, geom="histogram") > algaet <- algae > algaet$Cl <- sqrt(algae$Cl) > qplot(Cl, data=algaet, geom="histogram") > qqnorm(algaet$Cl) > qqline(algaet$Cl) > algaet$Cl <- log10(algae$Cl) > qplot(Cl, data=algaet, geom="histogram") > qqnorm(algaet$Cl) > qqline(algaet$Cl) > algaet$Cl <- algae$Cl^(0.25) > qplot(Cl, data=algaet, geom="histogram") > qqnorm(algaet$Cl) >
Background image of page 6
Image of page 7
This is the end of the preview. Sign up to access the rest of the document.

{[ snackBarMessage ]}

Page1 / 78

1-cs-algae - #$'$#$)$*$"$*$"0...

This preview shows document pages 1 - 7. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online