Displaying 6 results from an estimated 6 matches for "sinv".
Did you mean:
sind
2009 Sep 28
1
help with lda function
...X <- 100 * rawdata[,2:3]
> Apf <- X[group==1,]
> Af <- X[group==0,]
> xbar1 <- apply(Af, 2, mean)
> S1 <- var(Af)
> N1 <- dim(Af)[1]
> xbar2 <- apply(Apf, 2, mean)
> S2 <- var(Apf)
> N2 <- dim(Apf)[1]
> S<-((N1-1)*S1+(N2-1)*S2)/(N1+N2-2)
> Sinv=solve(S)
> d<-xbar1-xbar2
> b <- Sinv %*% d
> v <- X %*% b",
>
> I get;
>
> [,1]
> [1,] 164.4283
> [2,] 166.2492
> [3,] 170.5232
> [4,] 156.5622
> [5,] 127.7540
> [6,] 136.7704
> [7,] 136.3436
>
>
> I am having a problem...
2010 Jul 21
1
Question about allocMatrix error message
Dear R family,
I faced a technical problem in r coding.
#s=t(dev)%*%dev/(nr-1) # dev (100,000 by 2) stands for
deviation from the mean
#sinv=solve(s)
#t2=diag(dev%*%sinv%*%t(dev))
I got an error message at t2 statement:
Error in diag(dev %*% si %*% t(dev)) : allocMatrix: too many elements specified
Please let me know if there is a way to overcome this problem.
best
moohwan
2009 Sep 29
1
help with lda function from MASS package
...<- X[group==0,]
>>> xbar1 <- apply(Af, 2, mean)
>>> S1 <- var(Af)
>>> N1 <- dim(Af)[1]
>>> xbar2 <- apply(Apf, 2, mean)
>>> S2 <- var(Apf)
>>> N2 <- dim(Apf)[1]
>>> S<-((N1-1)*S1+(N2-1)*S2)/(N1+N2-2)
>>> Sinv=solve(S)
>>> d<-xbar1-xbar2
>>> b <- Sinv %*% d
>>> v <- X %*% b",
>>>
>>> I get;
>>>
>>> [,1]
>>> [1,] 164.4283
>>> [2,] 166.2492
>>> [3,] 170.5232
>>> [4,] 156.5622
>>>...
2023 Apr 17
2
[PATCH libnbd v2] README: Document additional packages
When building from git we need autoconf, automake and libtool.
Signed-off-by: Nir Soffer <nsoffer at redhat.com>
---
Changes sinve v1:
- Remove `,` between package namses (Laszlo)
README.md | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/README.md b/README.md
index c7166613..7eed0e31 100644
--- a/README.md
+++ b/README.md
@@ -32,10 +32,17 @@ ## License
very liberal license.
## Building from source
+Buildi...
2012 Dec 17
1
Code works standalone, yet same code fails when part of package
..., nrow(df))
if (removeN==TRUE) {
ns <- grep("N", df$seq)
if (length(ns) > 0) {
df <- df[-ns,]
}
}
return(as.data.frame(df))
}
> bam <- read.bam("../../example/SRR389185_vs_SINV_sorted.bam", chr="SINV")
> # works! remove the function
> rm(read.bam)
> # load the package
> library(viRome)
Loading required package: seqinr
Attaching package: ?seqinr?
The following object(s) are masked from ?package:Biostrings?:
translate
Loading required pac...
2023 Apr 17
1
[PATCH libnbd v2] README: Document additional packages
On 4/17/23 18:44, Nir Soffer wrote:
> When building from git we need autoconf, automake and libtool.
>
> Signed-off-by: Nir Soffer <nsoffer at redhat.com>
> ---
>
> Changes sinve v1:
> - Remove `,` between package namses (Laszlo)
>
> README.md | 7 +++++++
> 1 file changed, 7 insertions(+)
>
> diff --git a/README.md b/README.md
> index c7166613..7eed0e31 100644
> --- a/README.md
> +++ b/README.md
> @@ -32,10 +32,17 @@ ## License
> very...