From ee8ec17e70ded91587653c36bdcdbbb743ac3b36 Mon Sep 17 00:00:00 2001 From: KessieSHEN Date: Thu, 19 Sep 2024 22:30:43 -0700 Subject: [PATCH] https://github.com/USCbiostats/PM566/issues/76 lab3 --- Lab3 kessieSHEN.html | 26 ++++++-------------------- Lab3 kessieSHEN.qmd | 1 - 2 files changed, 6 insertions(+), 21 deletions(-) diff --git a/Lab3 kessieSHEN.html b/Lab3 kessieSHEN.html index 81dc071..a68c54b 100644 --- a/Lab3 kessieSHEN.html +++ b/Lab3 kessieSHEN.html @@ -526,8 +526,8 @@

[1] -0.003857766

addProviderTiles('OpenStreetMap') %>% addCircles(lat=~lat,lng=~lon, opacity=1, fillOpacity=1, radius=100)
-
- +
+
library(lubridate)
@@ -570,22 +570,8 @@

[1] -0.003857766

-
names(elev)
-
-
 [1] "USAFID"            "WBAN"              "year"             
- [4] "month"             "day"               "hour"             
- [7] "min"               "lat"               "lon"              
-[10] "elev"              "wind.dir"          "wind.dir.qc"      
-[13] "wind.type.code"    "wind.sp"           "wind.sp.qc"       
-[16] "ceiling.ht"        "ceiling.ht.qc"     "ceiling.ht.method"
-[19] "sky.cond"          "vis.dist"          "vis.dist.qc"      
-[22] "vis.var"           "vis.var.qc"        "temp"             
-[25] "temp.qc"           "dew.point"         "dew.point.qc"     
-[28] "atm.press"         "atm.press.qc"      "rh"               
-[31] "date"             
-
-
# elev <- elev[order(elev$date), ]
-head(elev)
+
# elev <- elev[order(elev$date), ]
+head(elev)
   USAFID  WBAN  year month   day  hour   min   lat      lon  elev wind.dir
     <int> <int> <int> <int> <int> <int> <int> <num>    <num> <int>    <int>
@@ -630,7 +616,7 @@ 

[1] -0.003857766

-
plot(elev$date, elev$temp, type="l")
+
plot(elev$date, elev$temp, type="l")
@@ -638,7 +624,7 @@

[1] -0.003857766

-
plot(elev$date, elev$wind.sp, type="l")
+
plot(elev$date, elev$wind.sp, type="l")
diff --git a/Lab3 kessieSHEN.qmd b/Lab3 kessieSHEN.qmd index 985f83a..0b35322 100644 --- a/Lab3 kessieSHEN.qmd +++ b/Lab3 kessieSHEN.qmd @@ -110,7 +110,6 @@ library(lubridate) elev$date <- with(elev, ymd_h(paste(year, month, day, hour, sep= ' '))) summary(elev$date) library(tidyverse) -names(elev) # elev <- elev[order(elev$date), ] head(elev) ```