Yolande Tra
2012-Aug-03 19:49 UTC
[R] replacement has length zero. In addition: Warning message: In max(i) : no non-missing arguments to max; returning -Inf
Hi, Here is my data, the first 10 rows > u=regCond_all[1:10,]> dput(u)structure(c(999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 1.9, 2, 1.97, 1.99, 1.83, 1.78, 1.6, 1.52, 1.52, 1.36, 10.53, 9.88, 9.88, 10.53, 10.53, 10.53, 5.26, 9.88, 10.53, 10.53, 5.4, 5.57, 5.46, 5.34, 5.5, 5.59, 5.62, 5.76, 6.23, 6.19, 295, 294, 292, 294, 283, 288, 305, 287, 294, 295, 9999, 9999, 9999, 9999, 9999, 9999, 9999, 9999, 9999, 9999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 12.7, 12.5, 12.3, 12.6, 12.6, 12.5, 12.5, 12.5, 12.7, 12.7, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99), class = c("xts", "zoo"), .indexCLASS c("POSIXct", "POSIXt"), .indexTZ = "", tclass = c("POSIXct", "POSIXt"), tzone = "", index = structure(c(1217564520, 1217566320, 1217568120, 1217569980, 1217571720, 1217573520, 1217575320, 1217577120, 1217578920, 1217580720), tzone = "", tclass = c("POSIXct", "POSIXt")), .Dim = c(10L, 13L), .Dimnames = list(NULL, c("WDIR", "WSPD", "GST", "WVHT", "DPD", "APD", "MWD", "PRES", "ATMP", "WTMP", "DEWP", "VIS", "TIDE"))) I tried to copy some fields from this data to another data. I got error. Could you please help? Thanks. diveCond <- data.frame(matrix(0, nrow=97, ncol=17)) names(diveCond) <- c("dive_id", "timestamp", "visability", "r_wvht", "r_dpd", "r_apt", "r_mwd", "r_wtmp", "l_salinity", "l_o2", "l_hs", "l_tp", "l_wdir", "l_along", "l_cross", "l_mab", "l_depth") dive_id <- 0 for(i in 1:dim(diveCond)[1]){ thisStamp <- as.POSIXct(strptime(diveCond$timestamp[i], "%Y-%m-%d %H:%M:%S")) ind <- which.min( abs(index(regCond_all) - thisStamp )) diveCond$r_wvht[i] <- regCond_all$WVHT[ind] diveCond$r_dpd[i] <- regCond_all$DPD[ind] diveCond$r_apt[i] <- regCond_all$APD[ind] diveCond$r_mwd[i] <- regCond_all$MWD[ind] diveCond$r_wtmp[i] <- regCond_all$WTMP[ind] } Error in diveCond$r_wvht[i] <- regCond_all$WVHT[ind] : replacement has length zero In addition: Warning message: In max(i) : no non-missing arguments to max; returning -Inf If you could explain the error that would help prevent future errors. Thanks, Y [[alternative HTML version deleted]]
Sarah Goslee
2012-Aug-03 20:02 UTC
[R] replacement has length zero. In addition: Warning message: In max(i) : no non-missing arguments to max; returning -Inf
Hi Yolande, What's index() ? I get> ind <- which.min( abs(index(regCond_all) - thisStamp ))Error in which.min(abs(index(regCond_all) - thisStamp)) : could not find function "index" There's probably an easier way to do whatever you're trying to accomplish, but I'm afraid I can't tell what that is from just your code, especially without being able to figure out how ind is calculated. Can you describe what you want to do and what the result should look like when run with the first 10 rows of your data, as you provided with dput()? Sarah On Fri, Aug 3, 2012 at 3:49 PM, Yolande Tra <yolande.tra at gmail.com> wrote:> Hi, > > Here is my data, the first 10 rows > > u=regCond_all[1:10,] >> dput(u) > structure(c(999, 999, 999, 999, 999, 999, 999, 999, 999, 999, > 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, > 99, 99, 99, 99, 1.9, 2, 1.97, 1.99, 1.83, 1.78, 1.6, 1.52, 1.52, > 1.36, 10.53, 9.88, 9.88, 10.53, 10.53, 10.53, 5.26, 9.88, 10.53, > 10.53, 5.4, 5.57, 5.46, 5.34, 5.5, 5.59, 5.62, 5.76, 6.23, 6.19, > 295, 294, 292, 294, 283, 288, 305, 287, 294, 295, 9999, 9999, > 9999, 9999, 9999, 9999, 9999, 9999, 9999, 9999, 999, 999, 999, > 999, 999, 999, 999, 999, 999, 999, 12.7, 12.5, 12.3, 12.6, 12.6, > 12.5, 12.5, 12.5, 12.7, 12.7, 999, 999, 999, 999, 999, 999, 999, > 999, 999, 999, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, > 99, 99, 99, 99, 99, 99, 99, 99), class = c("xts", "zoo"), .indexCLASS > c("POSIXct", > "POSIXt"), .indexTZ = "", tclass = c("POSIXct", "POSIXt"), tzone = "", > index = structure(c(1217564520, > 1217566320, 1217568120, 1217569980, 1217571720, 1217573520, 1217575320, > 1217577120, 1217578920, 1217580720), tzone = "", tclass = c("POSIXct", > "POSIXt")), .Dim = c(10L, 13L), .Dimnames = list(NULL, c("WDIR", > "WSPD", "GST", "WVHT", "DPD", "APD", "MWD", "PRES", "ATMP", "WTMP", > "DEWP", "VIS", "TIDE"))) > > I tried to copy some fields from this data to another data. I got error. > Could you please help? Thanks. > diveCond <- data.frame(matrix(0, nrow=97, ncol=17)) > names(diveCond) <- c("dive_id", "timestamp", "visability", "r_wvht", > "r_dpd", "r_apt", "r_mwd", "r_wtmp", "l_salinity", "l_o2", "l_hs", "l_tp", > "l_wdir", "l_along", "l_cross", "l_mab", "l_depth") > dive_id <- 0 > for(i in 1:dim(diveCond)[1]){ > thisStamp <- as.POSIXct(strptime(diveCond$timestamp[i], "%Y-%m-%d > %H:%M:%S")) > ind <- which.min( abs(index(regCond_all) - thisStamp )) > diveCond$r_wvht[i] <- regCond_all$WVHT[ind] > diveCond$r_dpd[i] <- regCond_all$DPD[ind] > diveCond$r_apt[i] <- regCond_all$APD[ind] > diveCond$r_mwd[i] <- regCond_all$MWD[ind] > diveCond$r_wtmp[i] <- regCond_all$WTMP[ind] > } > > Error in diveCond$r_wvht[i] <- regCond_all$WVHT[ind] : > replacement has length zero > In addition: Warning message: > In max(i) : no non-missing arguments to max; returning -Inf > If you could explain the error that would help prevent future errors. > > Thanks, > Y-- Sarah Goslee http://www.functionaldiversity.org
arun
2012-Aug-03 20:12 UTC
[R] replacement has length zero. In addition: Warning message: In max(i) : no non-missing arguments to max; returning -Inf
Hi,
Here, I am getting the error:
?for(i in 1:dim(diveCond)[1]){
?thisStamp <- as.POSIXct(strptime(diveCond$timestamp[i], "%Y-%m-%d
?%H:%M:%S"))
?ind <- which.min( abs(index(regCond_all) - thisStamp ))
?diveCond$r_wvht[i] <- regCond_all$WVHT[ind]
?diveCond$r_dpd[i] <- regCond_all$DPD[ind]
?diveCond$r_apt[i]? <- regCond_all$APD[ind]
?diveCond$r_mwd[i]? <- regCond_all$MWD[ind]
?diveCond$r_wtmp[i]? <- regCond_all$WTMP[ind]
?}
Error in index(regCond_all) : object 'regCond_all' not
found> u=regCond_all[1:10,]
Error: object 'regCond_all' not found
? From a glance, I guess you should have posted with "u" in place of
regCond_all for the loop.?
A.K.
----- Original Message -----
From: Yolande Tra <yolande.tra at gmail.com>
To: R help <r-help at r-project.org>
Cc:
Sent: Friday, August 3, 2012 3:49 PM
Subject: [R] replacement has length zero. In addition: Warning message: In
max(i) : no non-missing arguments to max; returning -Inf
Hi,
Here is my data, the first 10 rows> u=regCond_all[1:10,]
> dput(u)
structure(c(999, 999, 999, 999, 999, 999, 999, 999, 999, 999,
99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99,
99, 99, 99, 99, 1.9, 2, 1.97, 1.99, 1.83, 1.78, 1.6, 1.52, 1.52,
1.36, 10.53, 9.88, 9.88, 10.53, 10.53, 10.53, 5.26, 9.88, 10.53,
10.53, 5.4, 5.57, 5.46, 5.34, 5.5, 5.59, 5.62, 5.76, 6.23, 6.19,
295, 294, 292, 294, 283, 288, 305, 287, 294, 295, 9999, 9999,
9999, 9999, 9999, 9999, 9999, 9999, 9999, 9999, 999, 999, 999,
999, 999, 999, 999, 999, 999, 999, 12.7, 12.5, 12.3, 12.6, 12.6,
12.5, 12.5, 12.5, 12.7, 12.7, 999, 999, 999, 999, 999, 999, 999,
999, 999, 999, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99,
99, 99, 99, 99, 99, 99, 99, 99), class = c("xts", "zoo"),
.indexCLASS c("POSIXct",
"POSIXt"), .indexTZ = "", tclass = c("POSIXct",
"POSIXt"), tzone = "",
index = structure(c(1217564520,
1217566320, 1217568120, 1217569980, 1217571720, 1217573520, 1217575320,
1217577120, 1217578920, 1217580720), tzone = "", tclass =
c("POSIXct",
"POSIXt")), .Dim = c(10L, 13L), .Dimnames = list(NULL,
c("WDIR",
"WSPD", "GST", "WVHT", "DPD",
"APD", "MWD", "PRES", "ATMP",
"WTMP",
"DEWP", "VIS", "TIDE")))
I tried to copy some fields from this data to another data. I got error.
Could you please help? Thanks.
diveCond <- data.frame(matrix(0, nrow=97, ncol=17))
names(diveCond) <- c("dive_id", "timestamp",
"visability", "r_wvht",
"r_dpd", "r_apt", "r_mwd", "r_wtmp",
"l_salinity", "l_o2", "l_hs", "l_tp",
"l_wdir", "l_along", "l_cross", "l_mab",
"l_depth")
dive_id <- 0
for(i in 1:dim(diveCond)[1]){
thisStamp <- as.POSIXct(strptime(diveCond$timestamp[i], "%Y-%m-%d
%H:%M:%S"))
ind <- which.min( abs(index(regCond_all) - thisStamp ))
diveCond$r_wvht[i] <- regCond_all$WVHT[ind]
diveCond$r_dpd[i] <- regCond_all$DPD[ind]
diveCond$r_apt[i]? <- regCond_all$APD[ind]
diveCond$r_mwd[i]? <- regCond_all$MWD[ind]
diveCond$r_wtmp[i]? <- regCond_all$WTMP[ind]
}
Error in diveCond$r_wvht[i] <- regCond_all$WVHT[ind] :
? replacement has length zero
In addition: Warning message:
In max(i) : no non-missing arguments to max; returning -Inf
If you could explain the error that would help prevent future errors.
Thanks,
Y
??? [[alternative HTML version deleted]]
______________________________________________
R-help at r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
Yolande Tra
2012-Aug-03 20:17 UTC
[R] replacement has length zero. In addition: Warning message: In max(i) : no non-missing arguments to max; returning -Inf
After replacing it to u> for(i in 1:dim(diveCond)[1]){+ thisStamp <- as.POSIXct(strptime(diveCond$timestamp[i], "%Y-%m-%d %H:%M:%S")) + ind <- which.min( abs(index(u) - thisStamp )) + diveCond$r_wvht[i]<- u$WVHT[ind] + diveCond$r_dpd[i]<- u$DPD[ind] + diveCond$r_apt[i] <- u$APD[ind] + diveCond$r_mwd[i] <- u$MWD[ind] + diveCond$r_wtmp[i] <- u$WTMP[ind] + } Error in diveCond$r_wvht[i] <- u$WVHT[ind] : replacement has length zero In addition: Warning message: In max(i) : no non-missing arguments to max; returning -Inf Y On Fri, Aug 3, 2012 at 4:12 PM, arun <smartpink111@yahoo.com> wrote:> Hi, > > Here, I am getting the error: > > for(i in 1:dim(diveCond)[1]){ > thisStamp <- as.POSIXct(strptime(diveCond$timestamp[i], "%Y-%m-%d > %H:%M:%S")) > ind <- which.min( abs(index(regCond_all) - thisStamp )) > diveCond$r_wvht[i] <- regCond_all$WVHT[ind] > diveCond$r_dpd[i] <- regCond_all$DPD[ind] > diveCond$r_apt[i] <- regCond_all$APD[ind] > diveCond$r_mwd[i] <- regCond_all$MWD[ind] > diveCond$r_wtmp[i] <- regCond_all$WTMP[ind] > } > Error in index(regCond_all) : object 'regCond_all' not found > > u=regCond_all[1:10,] > Error: object 'regCond_all' not found > > > From a glance, I guess you should have posted with "u" in place of > regCond_all for the loop. > > A.K. > > ----- Original Message ----- > From: Yolande Tra <yolande.tra@gmail.com> > To: R help <r-help@r-project.org> > Cc: > Sent: Friday, August 3, 2012 3:49 PM > Subject: [R] replacement has length zero. In addition: Warning message: In > max(i) : no non-missing arguments to max; returning -Inf > > Hi, > > Here is my data, the first 10 rows > > u=regCond_all[1:10,] > > dput(u) > structure(c(999, 999, 999, 999, 999, 999, 999, 999, 999, 999, > 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, > 99, 99, 99, 99, 1.9, 2, 1.97, 1.99, 1.83, 1.78, 1.6, 1.52, 1.52, > 1.36, 10.53, 9.88, 9.88, 10.53, 10.53, 10.53, 5.26, 9.88, 10.53, > 10.53, 5.4, 5.57, 5.46, 5.34, 5.5, 5.59, 5.62, 5.76, 6.23, 6.19, > 295, 294, 292, 294, 283, 288, 305, 287, 294, 295, 9999, 9999, > 9999, 9999, 9999, 9999, 9999, 9999, 9999, 9999, 999, 999, 999, > 999, 999, 999, 999, 999, 999, 999, 12.7, 12.5, 12.3, 12.6, 12.6, > 12.5, 12.5, 12.5, 12.7, 12.7, 999, 999, 999, 999, 999, 999, 999, > 999, 999, 999, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, > 99, 99, 99, 99, 99, 99, 99, 99), class = c("xts", "zoo"), .indexCLASS > c("POSIXct", > "POSIXt"), .indexTZ = "", tclass = c("POSIXct", "POSIXt"), tzone = "", > index = structure(c(1217564520, > 1217566320, 1217568120, 1217569980, 1217571720, 1217573520, 1217575320, > 1217577120, 1217578920, 1217580720), tzone = "", tclass = c("POSIXct", > "POSIXt")), .Dim = c(10L, 13L), .Dimnames = list(NULL, c("WDIR", > "WSPD", "GST", "WVHT", "DPD", "APD", "MWD", "PRES", "ATMP", "WTMP", > "DEWP", "VIS", "TIDE"))) > > I tried to copy some fields from this data to another data. I got error. > Could you please help? Thanks. > diveCond <- data.frame(matrix(0, nrow=97, ncol=17)) > names(diveCond) <- c("dive_id", "timestamp", "visability", "r_wvht", > "r_dpd", "r_apt", "r_mwd", "r_wtmp", "l_salinity", "l_o2", "l_hs", "l_tp", > "l_wdir", "l_along", "l_cross", "l_mab", "l_depth") > dive_id <- 0 > for(i in 1:dim(diveCond)[1]){ > thisStamp <- as.POSIXct(strptime(diveCond$timestamp[i], "%Y-%m-%d > %H:%M:%S")) > ind <- which.min( abs(index(regCond_all) - thisStamp )) > diveCond$r_wvht[i] <- regCond_all$WVHT[ind] > diveCond$r_dpd[i] <- regCond_all$DPD[ind] > diveCond$r_apt[i] <- regCond_all$APD[ind] > diveCond$r_mwd[i] <- regCond_all$MWD[ind] > diveCond$r_wtmp[i] <- regCond_all$WTMP[ind] > } > > Error in diveCond$r_wvht[i] <- regCond_all$WVHT[ind] : > replacement has length zero > In addition: Warning message: > In max(i) : no non-missing arguments to max; returning -Inf > If you could explain the error that would help prevent future errors. > > Thanks, > Y > > [[alternative HTML version deleted]] > > ______________________________________________ > R-help@r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide > http://www.R-project.org/posting-guide.html<http://www.r-project.org/posting-guide.html> > and provide commented, minimal, self-contained, reproducible code. > >[[alternative HTML version deleted]]
Sarah Goslee
2012-Aug-03 20:27 UTC
[R] replacement has length zero. In addition: Warning message: In max(i) : no non-missing arguments to max; returning -Inf
On Fri, Aug 3, 2012 at 4:04 PM, Yolande Tra <yolande.tra at gmail.com> wrote:> I am sorry I forgot to mention it in the code. > library(xts) has the function index.That's useful. But here's your first problem: thisStamp <- as.POSIXct(strptime(diveCond$timestamp[i], "%Y-%m-%d %H:%M:%S")) You just created diveCond as a data frame full of zeros. So diveCond$timestamp[i] is 0 regardless of the value of i. This kind of thing is why I asked what you're trying to accomplish. Without knowing that, it's hard to figure out what you really meant. Sarah> > Thanks, > Y > On Fri, Aug 3, 2012 at 4:02 PM, Sarah Goslee <sarah.goslee at gmail.com> wrote: >> >> Hi Yolande, >> >> What's index() ? >> >> I get >> > ind <- which.min( abs(index(regCond_all) - thisStamp )) >> Error in which.min(abs(index(regCond_all) - thisStamp)) : >> could not find function "index" >> >> There's probably an easier way to do whatever you're trying to >> accomplish, but I'm afraid I can't tell what that is from just your >> code, especially without being able to figure out how ind is >> calculated. Can you describe what you want to do and what the result >> should look like when run with the first 10 rows of your data, as you >> provided with dput()? >> >> Sarah >> >> On Fri, Aug 3, 2012 at 3:49 PM, Yolande Tra <yolande.tra at gmail.com> wrote: >> > Hi, >> > >> > Here is my data, the first 10 rows >> > > u=regCond_all[1:10,] >> >> dput(u) >> > structure(c(999, 999, 999, 999, 999, 999, 999, 999, 999, 999, >> > 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, >> > 99, 99, 99, 99, 1.9, 2, 1.97, 1.99, 1.83, 1.78, 1.6, 1.52, 1.52, >> > 1.36, 10.53, 9.88, 9.88, 10.53, 10.53, 10.53, 5.26, 9.88, 10.53, >> > 10.53, 5.4, 5.57, 5.46, 5.34, 5.5, 5.59, 5.62, 5.76, 6.23, 6.19, >> > 295, 294, 292, 294, 283, 288, 305, 287, 294, 295, 9999, 9999, >> > 9999, 9999, 9999, 9999, 9999, 9999, 9999, 9999, 999, 999, 999, >> > 999, 999, 999, 999, 999, 999, 999, 12.7, 12.5, 12.3, 12.6, 12.6, >> > 12.5, 12.5, 12.5, 12.7, 12.7, 999, 999, 999, 999, 999, 999, 999, >> > 999, 999, 999, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, >> > 99, 99, 99, 99, 99, 99, 99, 99), class = c("xts", "zoo"), .indexCLASS >> > c("POSIXct", >> > "POSIXt"), .indexTZ = "", tclass = c("POSIXct", "POSIXt"), tzone = "", >> > index = structure(c(1217564520, >> > 1217566320, 1217568120, 1217569980, 1217571720, 1217573520, 1217575320, >> > 1217577120, 1217578920, 1217580720), tzone = "", tclass = c("POSIXct", >> > "POSIXt")), .Dim = c(10L, 13L), .Dimnames = list(NULL, c("WDIR", >> > "WSPD", "GST", "WVHT", "DPD", "APD", "MWD", "PRES", "ATMP", "WTMP", >> > "DEWP", "VIS", "TIDE"))) >> > >> > I tried to copy some fields from this data to another data. I got error. >> > Could you please help? Thanks. >> > diveCond <- data.frame(matrix(0, nrow=97, ncol=17)) >> > names(diveCond) <- c("dive_id", "timestamp", "visability", "r_wvht", >> > "r_dpd", "r_apt", "r_mwd", "r_wtmp", "l_salinity", "l_o2", "l_hs", >> > "l_tp", >> > "l_wdir", "l_along", "l_cross", "l_mab", "l_depth") >> > dive_id <- 0 >> > for(i in 1:dim(diveCond)[1]){ >> > thisStamp <- as.POSIXct(strptime(diveCond$timestamp[i], "%Y-%m-%d >> > %H:%M:%S")) >> > ind <- which.min( abs(index(regCond_all) - thisStamp )) >> > diveCond$r_wvht[i] <- regCond_all$WVHT[ind] >> > diveCond$r_dpd[i] <- regCond_all$DPD[ind] >> > diveCond$r_apt[i] <- regCond_all$APD[ind] >> > diveCond$r_mwd[i] <- regCond_all$MWD[ind] >> > diveCond$r_wtmp[i] <- regCond_all$WTMP[ind] >> > } >> > >> > Error in diveCond$r_wvht[i] <- regCond_all$WVHT[ind] : >> > replacement has length zero >> > In addition: Warning message: >> > In max(i) : no non-missing arguments to max; returning -Inf >> > If you could explain the error that would help prevent future errors. >> > >> > Thanks, >> > Y-- Sarah Goslee http://www.functionaldiversity.org
Sarah Goslee
2012-Aug-03 20:35 UTC
[R] replacement has length zero. In addition: Warning message: In max(i) : no non-missing arguments to max; returning -Inf
Yolande, Please send your message to the R-help email list too, not just to me. On Fri, Aug 3, 2012 at 4:28 PM, Yolande Tra <yolande.tra at gmail.com> wrote:> Here is the description > I am trying to build the data diveCond from two datasets diveData_2008, > diveData_2009 and RegCond_all. How would I dput each data for anyone who > helps why the code is giving error. The code selects index i of the data > > The code starts like this > diveCond <- data.frame(matrix(0, nrow=97, ncol=17)) > names(diveCond) <- c("dive_id", "timestamp", "visability", "r_wvht", > "r_dpd", "r_apt", "r_mwd", "r_wtmp", "l_salinity", "l_o2", "l_hs", "l_tp", > "l_wdir", "l_along", "l_cross", "l_mab", "l_depth") > dive_id <- 0 > for(i in unique(as.character(index(diveData_2008)))){ > dive_id <- dive_id+1 > > diveCond$dive_id[dive_id] <- dive_id > diveCond$timestamp[dive_id] <- as.character(i) > diveCond$visability[dive_id] <- as.numeric(diveData_2008[i][1,12]) > > } > for(i in unique(as.character(index(diveData_2009)))){ > dive_id <- dive_id+1 > > diveCond$dive_id[dive_id] <- dive_id > diveCond$timestamp[dive_id] <- as.character(i) > diveCond$visability[dive_id] <- as.numeric(diveData_2009[i][1,5]) > > }Which has nothing whatsoever in common with the "reproducible" code you provided originally, since that only creates diveCond full of zeros and tries to use it, without success. You need to give us actual data for all data frames involved, as you did for just the one, eg. dput(head(diveCond, 10)) dput(head(regCond_all)) otherwise we can't run your code and see what happens. But failing that, here's how to diagnose it yourself. Set i <- 1 and then run the first few lines of your loop. Look at ind and see if it's what you think it should be. Look at diveCond$r_wvht[i] and regCond_all$WVHT[ind] to see if they exist and are the same size. I'm guessing that ind isn't what you expect, but there's no way I can be certain from what you've given us. Sarah> > I id not get error so far. Then > >> for(i in 1:dim(diveCond)[1]){ > + thisStamp <- as.POSIXct(strptime(diveCond$timestamp[i], "%Y-%m-%d > %H:%M:%S")) > + ind <- which.min( abs(index(regCond_all) - thisStamp )) > + diveCond$r_wvht[i]<- regCond_all$WVHT[ind] > + diveCond$r_dpd[i]<- regCond_all$DPD[ind] > + diveCond$r_apt[i] <- regCond_all$APD[ind] > + diveCond$r_mwd[i] <- regCond_all$MWD[ind] > + diveCond$r_wtmp[i] <- regCond_all$WTMP[ind] > + } > Error in diveCond$r_wvht[i] <- regCond_all$WVHT[ind] : > replacement has length zero > In addition: Warning message: > In max(i) : no non-missing arguments to max; returning -Inf > > > Thank you for your time > Y > On Fri, Aug 3, 2012 at 4:02 PM, Sarah Goslee <sarah.goslee at gmail.com> wrote: >> >> Hi Yolande, >> >> What's index() ? >> >> I get >> > ind <- which.min( abs(index(regCond_all) - thisStamp )) >> Error in which.min(abs(index(regCond_all) - thisStamp)) : >> could not find function "index" >> >> There's probably an easier way to do whatever you're trying to >> accomplish, but I'm afraid I can't tell what that is from just your >> code, especially without being able to figure out how ind is >> calculated. Can you describe what you want to do and what the result >> should look like when run with the first 10 rows of your data, as you >> provided with dput()? >> >> Sarah >> >> On Fri, Aug 3, 2012 at 3:49 PM, Yolande Tra <yolande.tra at gmail.com> wrote: >> > Hi, >> > >> > Here is my data, the first 10 rows >> > > u=regCond_all[1:10,] >> >> dput(u) >> > structure(c(999, 999, 999, 999, 999, 999, 999, 999, 999, 999, >> > 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, >> > 99, 99, 99, 99, 1.9, 2, 1.97, 1.99, 1.83, 1.78, 1.6, 1.52, 1.52, >> > 1.36, 10.53, 9.88, 9.88, 10.53, 10.53, 10.53, 5.26, 9.88, 10.53, >> > 10.53, 5.4, 5.57, 5.46, 5.34, 5.5, 5.59, 5.62, 5.76, 6.23, 6.19, >> > 295, 294, 292, 294, 283, 288, 305, 287, 294, 295, 9999, 9999, >> > 9999, 9999, 9999, 9999, 9999, 9999, 9999, 9999, 999, 999, 999, >> > 999, 999, 999, 999, 999, 999, 999, 12.7, 12.5, 12.3, 12.6, 12.6, >> > 12.5, 12.5, 12.5, 12.7, 12.7, 999, 999, 999, 999, 999, 999, 999, >> > 999, 999, 999, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, 99, >> > 99, 99, 99, 99, 99, 99, 99, 99), class = c("xts", "zoo"), .indexCLASS >> > c("POSIXct", >> > "POSIXt"), .indexTZ = "", tclass = c("POSIXct", "POSIXt"), tzone = "", >> > index = structure(c(1217564520, >> > 1217566320, 1217568120, 1217569980, 1217571720, 1217573520, 1217575320, >> > 1217577120, 1217578920, 1217580720), tzone = "", tclass = c("POSIXct", >> > "POSIXt")), .Dim = c(10L, 13L), .Dimnames = list(NULL, c("WDIR", >> > "WSPD", "GST", "WVHT", "DPD", "APD", "MWD", "PRES", "ATMP", "WTMP", >> > "DEWP", "VIS", "TIDE"))) >> > >> > I tried to copy some fields from this data to another data. I got error. >> > Could you please help? Thanks. >> > diveCond <- data.frame(matrix(0, nrow=97, ncol=17)) >> > names(diveCond) <- c("dive_id", "timestamp", "visability", "r_wvht", >> > "r_dpd", "r_apt", "r_mwd", "r_wtmp", "l_salinity", "l_o2", "l_hs", >> > "l_tp", >> > "l_wdir", "l_along", "l_cross", "l_mab", "l_depth") >> > dive_id <- 0 >> > for(i in 1:dim(diveCond)[1]){ >> > thisStamp <- as.POSIXct(strptime(diveCond$timestamp[i], "%Y-%m-%d >> > %H:%M:%S")) >> > ind <- which.min( abs(index(regCond_all) - thisStamp )) >> > diveCond$r_wvht[i] <- regCond_all$WVHT[ind] >> > diveCond$r_dpd[i] <- regCond_all$DPD[ind] >> > diveCond$r_apt[i] <- regCond_all$APD[ind] >> > diveCond$r_mwd[i] <- regCond_all$MWD[ind] >> > diveCond$r_wtmp[i] <- regCond_all$WTMP[ind] >> > } >> > >> > Error in diveCond$r_wvht[i] <- regCond_all$WVHT[ind] : >> > replacement has length zero >> > In addition: Warning message: >> > In max(i) : no non-missing arguments to max; returning -Inf >> > If you could explain the error that would help prevent future errors. >> > >> > Thanks, >> > Y-- Sarah Goslee http://www.functionaldiversity.org