Displaying 3 results from an estimated 3 matches for "vis_m".
2012 Jul 18
2
loop searching the id corresponding to the given index (timestamp)
...t$count[i] <-
as.numeric(diveData_2008[i,"count"])
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$times...
2012 Jul 29
1
readRDS, In as.double.xts(fishReport$count) : NAs introduced by coercion
...ot; 1" "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.06...
2012 Jul 16
4
Error in as.xts
...er.by, frequency = frequency, ...) :
NROW(x) must match length(order.by)
Here is how the data looks like
> d1 <- read.csv(file.path(dataDir,"AppendixA-FishCountsTable-2009.csv"),
as.is=T)
> d1[1:3,]
dive_id date time species count size site depth level
TRANSECT VIS_M
1 62 10/12/2009 12:44 E. lateralis 2 15 Hopkins 15 B
1 4
2 62 10/12/2009 12:44 E. lateralis 1 22 Hopkins 15 B
1 4
3 62 10/12/2009 12:44 E. lateralis 1 25 Hopkins 15 B
1 4
> diveData_2009 <- as.xts( d1,order.by=as.POSIX...