Displaying 5 results from an estimated 5 matches for "an1".
Did you mean:
an
2001 Jul 02
0
ReleaseLargeFreeVectors SIGSEGV (?) (PR#1008)
...keconf.
ann_0.2-3.tar.gz ran through (1.3.0) R CMD check & R CMD build cleanly.
The examples now trigger the segfault, or it can be triggered in the older
version by doing in 1.3.0:
> for (i in 1:100) example(ann)
or
> for (i in 1:100) example(nspairs)
or just by:
for (i in 1:100) an1 <- ann(cbind(runif(5000), runif(5000)), k = 4)
The typical gdb listing (shortened) is:
(in this case from)
> for (i in 1:100) example(nspairs)
nspars> an1 <- ann(cbind(runif(1000), runif(1000)), k = 4)
nspars> nspairs(an1)
[1] 311
nspars> an1 <- ann(cbind(runif(1000), ru...
2001 Jul 03
0
(PR#1008) SIGSEGV under 1.1.1 too
It looks as though the problem isn't in R - I provoked a SIGSEGV under R
1.1.1 on RH62:
> for (i in 1:100) an1 <- ann(cbind(runif(1000), runif(1000)), k = 4)
> for (i in 1:100) an1 <- ann(cbind(runif(1001), runif(1001)), k = 4)
Program received signal SIGSEGV, Segmentation fault.
0x40111109 in chunk_free (ar_ptr=0x401a5d40, p=0x8849a30) at malloc.c:3111
3111 malloc.c: No such file or directory....
2003 Jun 24
1
S4 method setClass prototype definition question
...isResolved="logical",
resolve="logical"),
prototype(isResolved=FALSE,
catId=as.integer(-1),
valid=TRUE),
validity=NULL,
sealed=TRUE)
## instantiate an object an1
> an1<-new("Annotation")
> an1
An object of class "Annotation"
Slot "x":
NULL
Slot "y":
NULL
Slot "catId":
[1] -1
Slot "isResolved":
[1] FALSE
Slot "resolve":
logical(0)
Slot "valid":
logical(0)
## now...
2012 Dec 07
1
how to add a column from another dataset with "merge"
...r column to my dataset with the function "merge",
> it
> should be filled with NAs wo be as long as the other colums, like this:
>
> id age
> 9 46
> 8 56
> 6 52
> 5 NA
> 4 NA
> 3 NA
> 1 NA
>
> i did this:
> pa1 <- merge(pa1, an1, by="mergeid")
>
> and it says "'by' must specify uniquely valid column(s)"
how about ...
#Data
d1<-data.frame(id=c(9,8,6,4,4,3,1))
d2<-data.frame(id=c(9,8,6),age=c(46,56,52))
# Left Merge
d<-merge(d1,d2,all.x=TRUE)
# Reorder
d[order(d$id,decreasing=T...
2011 Dec 07
1
Output table from for loop
...hampering my R
usage:
#the loop is checking variance of rows, and cutting out rows with
var>numVec[i]
#I define outMat as object names I want to output to (does this make sense?
how else
#can I define sequential numbered output?)
#numVec is numbers I use in the loop
head(Counts)
AN1 AN2 AN3 AN4 var
GENE1 99 0 6 0 2360
GENE2 183 136 137 160 496
GENE3 301 199 233 187 1856
outMat<-paste("NewCounts", 1:5, sep="_") #names of
numVec<-c(100,200,500,1000,1500)
cutGenes<-function(x) {
for (i in 1:5) {...