Wind rose:

NOTE the situation where spd = 0.5,1.5,3,6,or9 does not exist. Therefore these were not included. They can be included using:
 
	windcheck<-subset(wind, wind$spd == 9.0)
	windcheck
(will equal 0 rows)

calm<-subset(wind, wind$spd < 0.5)
val<-split(calm$spd,calm$dir)
w<-boxplot(val,plot=F)
wf<-(w$n/75848*100)
write(wf,file="table.txt",ncolumns=1,append=T)

wind1<-subset(wind, wind$spd > 0.5 & wind$spd < 1.5)
val<-split(wind1$spd,wind1$dir)
w<-boxplot(val,plot=F)
wf<-(w$n/75848*100)
write(wf,file="table.txt",ncolumns=16,append=T)

wind2<-subset(wind, wind$spd > 1.5 & wind$spd < 3.0)
val<-split(wind2$spd,wind2$dir)
w<-boxplot(val,plot=F)
wf<-(w$n/75848*100)
write(wf,file="table.txt",ncolumns=16,append=T)

wind3<-subset(wind, wind$spd > 3.0 & wind$spd < 6.0)
val<-split(wind3$spd,wind3$dir)
w<-boxplot(val,plot=F)
wf<-(w$n/75848*100)
write(wf,file="table.txt",ncolumns=16,append=T)

wind4<-subset(wind, wind$spd > 6.0 & wind$spd < 9.0)
val<-split(wind4$spd,wind4$dir)
w<-boxplot(val,plot=F)
wf<-(w$n/75848*100)
write(wf,file="table.txt",ncolumns=16,append=T)

wind5<-subset(wind, wind$spd > 9.0)
val<-split(wind5$spd,wind5$dir)
w<-boxplot(val,plot=F)
wf<-(w$n/75848*100)
write(wf,file="table.txt",ncolumns=16,append=T) 



Fair Weather test

calm<-subset(windfw, windfw$spd < 0.5)
val<-split(calm$spd,calm$dir)
w<-boxplot(val,plot=F)
wf<-(w$n/4258*100)
write(wf,file="table.txt",ncolumns=1,append=T)


wind1<-subset(windfw, windfw$spd < 1.5 & windfw$spd > 0.5)
val<-split(wind1$spd,wind1$dir)
w<-boxplot(val,plot=F)
wf<-(w$n/4259*100)
write(wf,file="table.txt",ncolumns=16,append=T)

wind2<-subset(windfw, windfw$spd < 3.0 & windfw$spd > 1.5)
val<-split(wind2$spd,wind2$dir)
w<-boxplot(val,plot=F)
wf<-(w$n/4259*100)
write(wf,file="table.txt",ncolumns=16,append=T)

wind3<-subset(windfw, windfw$spd < 6.0 & windfw$spd > 3.0)
val<-split(wind3$spd,wind3$dir)
w<-boxplot(val,plot=F)
wf<-(w$n/4259*100)
write(wf,file="table.txt",ncolumns=16,append=T)

wind4<-subset(windfw, windfw$spd < 9.0 & windfw$spd > 6.0)
val<-split(wind4$spd,wind4$dir)
w<-boxplot(val,plot=F)
wf<-(w$n/4259*100)
write(wf,file="table.txt",ncolumns=16,append=T)

wind5<-subset(windfw, windfw$spd > 9.0)
val<-split(wind5$spd,wind5$dir)
w<-boxplot(val,plot=F)
wf<-(w$n/4259*100)
write(wf,file="table.txt",ncolumns=16,append=T)