Displaying 1 result from an estimated 1 matches for "block7".
Did you mean:
block
2013 Jun 30
0
Help: argument is not numeric or logical: returning NA
...lt;- lapply(lst3,function(x) {x$V1<- sample(c(0,3,6),nrow(x),replace=TRUE);x})
#I am skipping the first 2, ie. 'id' and 'iat.date' as the filenames were not provided.
res<-t(sapply(lst4,function(x)
{block4<-x[with(x,V1==3 & V6>300 &
V6<3000),"V6"];block7<- x[with(x,V1==6 & V6>300 &
V6<3000),"V6"];block4.m<- mean(block4);block7.m<-
mean(block7);block4.sd<-sd(block4);block7.sd<-
sd(block7);full<- x[with(x,(V1==3|V1==6) & (V6 >300) & (V6
<3000)),"V6"];full.sd<-
sd(full);diff1<...