Displaying 4 results from an estimated 4 matches for "runnumber".
Did you mean:
renumber
2010 Jul 28
1
error: arguments imply differing number
...0.02 10
a121 2 3103304 107 0.03 11
"), header = TRUE)
closeAllConnections()
first <- function(x)c(TRUE, diff(x)!=1)
last <- function(x)c(diff(x)!=1, TRUE)
mydata$start <- first(mydata$sequence)
mydata$end <- last(mydata$sequence)
mydata$runNumber <- cumsum(first(mydata$sequence))
#load library
library(plyr)
ddply(mydata[, -1], .(runNumber,cat1), function(x) {max(x$item_values)})
my.summary <- function(x) {
start.loc <- x$location[which(x$start == TRUE)]
end.loc <- x$location[which(x$end == TRUE)]
peak <- max(x$item_v...
2013 Jan 15
5
Code to fetch summary info from vector
Hi all,
Thanks in advance for any help.
I have a vector "b":
b=c(1,1,1,2,3,4,3,2,1,1,1,1,1,2,3,4,5,4,3.5,3,2,1,1,1)
Imagine b is river flow throughout time.
I would like some code that will generate the following information:
number of individual 'periods' where b>1 (= 2 in this case)
period 1 length = 5, max = 4
period 2 length = 8, max = 5
I can't figure anything
2010 Jul 26
1
gapped sequence data summary
Id cat1 location item_values p-values sequence
a111 1 3002737 100 0.01 1
a112 1 3017821 102 0.05 2
a113 2 3027730 103 0.02 3
a114 2 3036220 104 0.04 4
a115 1 3053984 105 0.03 5
a118 1 3090500 106 0.02 8
a119 1 3103304 107 0.03 9
2009 Jan 29
0
arima error calling optim (PR#13485)
...2400L, 1543399642L, 913941794L, -765611679L,
-1780032952L, -334020610L, -1030641569L, 734316466L, 1645119731L,
909900938L, 1519592771L, -1594818903L, 1063253467L, -738684810L,
2094413779L, -927367444L, 836978449L, -2046126196L, 1739505080L,
453830794L, -384398987L, -2087208534L, -79918888L)
for(runNumber in 1:100) {
cat("Run ", runNumber, "\n", sep="")
y <- rnorm(1808)
z <- arima(ts(y), order=c(1,0,0),seasonal=list(order=c(1,0,0),period=64))
}
--please do not edit the information below--
Version:
platform = i686-pc-linux-gnu
arch = i686
os = linux-gnu
s...