search for: mmatrix

...ate(n, S, simplify = FALSE) Xb <- do.call("rbind", X) ## -> Error in as(x, "CsparseMatrix") : node stack overflow But as I said, that's not really the Matrix package. A small reproducible example, not involving the Matrix package at all: MM <- setClass("mmatrix", contains="matrix") setMethod("rbind2", signature(x="mmatrix", y="mmatrix"), function(x,y) as(base::rbind(unclass(x), unclass(y)), "mmatrix")) (m5 <- MM(diag(5))) m45 <- MM(matrix(1:20, 4,5)) rbind(m5, m45) # fine ## fin...

Dear R-developers, Using .Call I pass a S4 class with e.g. the following class definition: setClass("mmatrix",representation( data="matrix") ) On the "C side" i do mat = GET_SLOT(vs,install("data")); and then: printf("%f\n",NUMERIC_POINTER(mat)[1]); The above print statement produces the correct output if xx<- new("mmatrix") xx at data<-m...

...rong. The real challenge here is that I think that if it should "work", it should work so in all cases, e.g., also for c(NA, 3:2, Matrix(2:1), matrix(10:11)) and that's not so easy, e.g., the following class and method definitions do *not* achieve the desired result: ## "mMatrix" is already hidden in Matrix pkg: setClassUnion("mMatrix", members = c("matrix", "Matrix")) setClassUnion("numMatrixLike", members = c("logical", "integer","numeric", "mMatrix")) c.Matrix <- fun...

...should work so in all cases, e.g., also for >> >> c(NA, 3:2, Matrix(2:1), matrix(10:11)) >> >> and that's not so easy, e.g., the following class and method >> definitions do *not* achieve the desired result: >> >> ## "mMatrix" is already hidden in Matrix pkg: >> setClassUnion("mMatrix", members = c("matrix", "Matrix")) >> setClassUnion("numMatrixLike", members = >> c("logical", "integer","numeric", "mMatrix&quot...

...I think that if it should "work", > it should work so in all cases, e.g., also for > > c(NA, 3:2, Matrix(2:1), matrix(10:11)) > > and that's not so easy, e.g., the following class and method > definitions do *not* achieve the desired result: > > ## "mMatrix" is already hidden in Matrix pkg: > setClassUnion("mMatrix", members = c("matrix", "Matrix")) > setClassUnion("numMatrixLike", members = > c("logical", "integer","numeric", "mMatrix")) >...

...3) /INTERCEPT = INCLUDE /EMMEANS = TABLES(OVERALL) /EMMEANS = TABLES(sex) /PRINT = DESCRIPTIVE ETASQ OPOWER HOMOGENEITY /CRITERIA = ALPHA(.05) /DESIGN = blik sex blik*sex . GLM avmth3fq avfreq BY SEX /WSFACTOR = timex 2 Polynomial /METHOD = SSTYPE (3) /PRINT = DESCRIPTIVE ETASQ TEST(MMATRIX) HOMOGENEITY /CRITERIA = ALPHA (.05) /WSDESIGN = timex /DESIGN = sex . Any assistance with either of these enquiries is most appreciated. Bob

Hi list, I am writing several functions and running out variable names. I am using words such as "t", "c", "matrix" to keep the notation same as formulas I am using. For example I have, unnormalized <- function(t, x, y){ val <- rnorm(t, mean=x, var=y) return(val) } metropolis <- function(t, c, x, y){ den1 <- unnormalized(t, mean=x, sd=y)

...faster). After using native fortran lapack (call to dpotrf and dpotri returns 9s for PIII Xeon), I realized that R may treat the matrix as a general matrix rather than symmetric except the abnormal case. To confirm this, I modified the R_LapackPP.cc in Matrix package and it turned out that is.MMatrix() failed to return true. Hence if (checkClass(classes, "Hermitian")) return new LaSymmMatDouble(x); is not executed in static LaMatDouble* asLaMatrix(SEXP x). Instead if (isMatrix(x)) { return new LaGenMatDouble(x); } is used. After replace...