Displaying 2 results from an estimated 2 matches for "swell_urski".
2012 Jul 29
1
readRDS, In as.double.xts(fishReport$count) : NAs introduced by coercion
..."08/06/2008" "8:49:00" "S. OYT" "15"
"6"
2008-08-06 08:49:00 " 1" "08/06/2008" "8:49:00" "S. atrovirens" "1"
"23"
site depth level TRANSECT VIS_M TEMP_C swell_URSKI
2008-08-06 08:49:00 "Hopkins" "15" "B" "1" "3.5" "13.9" "1.0686708"
2008-08-06 08:49:00 "Hopkins" "15" "B" "1" "3.5" "13.9" "1.0686708"
> Re...
2012 Jul 18
2
loop searching the id corresponding to the given index (timestamp)
...uot;])
fishReport$size[i] <-
as.numeric(diveData_2008[i,"size"])
fishReport$visibility[i] <-
as.numeric(diveData_2008[i,"VIS_M"])
fishReport$swell[i] <-as.numeric(diveData_2008[i,"swell_URSKI"])
}
j<-i
## The 2009 dives
for(i in i+1:dim(diveData_2009)[1]){
thisIndex <- as.character(index(diveData_2009[i,]))
dive_id <-
diveCond_all$dive_id[diveCond_all$timestamp==thisIndex]
cat(dive_id, thisIndex, "\n")...