# Rproject8_1_windspeed.r

# 1.0 Read in data ----
#       See Problem 10.9.39
#       data from Simiu and Filliben (1975), analysis of extreme winds

windspeed=read.table(file="Rice 3e Datasets/ASCII Comma/Chapter 10/windspeed.txt",
  sep=",",stringsAsFactors = FALSE)
windspeed.0=t(windspeed[,-1])
dimnames(windspeed.0)<-list(c(1:nrow(windspeed.0)), windspeed[,1])
head(windspeed.0)

##   Cairo Alpena TatoushIsland Williston Richmond Burlington Eastport Canton
## 1    35     38            68        38       46         40       53     51
## 2    38     43            51        50       48         47       41     53
## 3    33     41            65        40       41         43       54     50
## 4    35     39            61        35       43         40       49     44
## 5    40     41            68        38       37         41       60     46
## 6    38     38            54        41       47         50       54     44
##   Yuma Duluth Valentine Charleston Eureka OklahomaCity Baker Sheridan
## 1   32     54        38         52     35           56    27       44
## 2   32     49        44         49     35           41    30       38
## 3   29     49        44         46     46           44    29       41
## 4   32     46        43         43     46           57    28       43
## 5   32     50        39         50     35           48    28       40
## 6   37     45        36         37     35           43    30       38
##   BlockIsland Winnemucca NorthHead KeyWest CorpusChristi
## 1          60         36        69      32            47
## 2          54         32        65      40            41
## 3          65         36        70      39            41
## 4          63         32        63      44            40
## 5          56         38        73      41            90
## 6          59         41        65      40            38

boxplot(windspeed.0)

#boxplot(windspeed.0, horizontal=TRUE)
boxplot(windspeed.0, horizontal=FALSE,las=2,cex.lab=.5)