Displaying 4 results from an estimated 4 matches for "sol1".
Did you mean:
sol
2012 Sep 02
0
most efficient plyr solution
...= 4)
Bx <- matrix(c(1,5,9,8,
4,7,8,9,
2,3,2,1), ncol = 4)
By <- matrix(c(5,5,9,9,
9,8,8,9,
5,5,3,2), ncol = 4)
### solution 1 using mapply
# proper answer, no input transform, output transform, no parallelization, no progress update
sol1 <- function() {
res1 <- mapply(
function(i,j,k,l) { fisher.test( matrix(c(i,j,k,l), ncol=2), conf.int=F)$p.value },
i=Ax, j=Ay, k=Bx, l=By,
SIMPLIFY=TRUE)
ans1 <- matrix(res1,ncol=4)
return(ans1)
}
s1 <- sol1()
### solution 2 using lapply
# proper answer, input transform,...
2007 Jan 25
9
Constant directory checksum changes
notice: /subject.sol1.net/virtual_mail_server/File[/etc/postfix]/checksum:
checksum changed ''{time}Thu Jan 25 16:31:08 EST 2007'' to ''{time}Thu Jan 25
16:36:39 EST 2007''
I know there''s something weird in the directory modification detection that
causes the next run after thin...
2009 Feb 23
1
trade-off between speed and storage in matrix multiplications
...lt;- runif(m*m)
A <- matrix(rnA, m, m)
# vector
v <- runif(n)
# B-matrix
rnB <- runif(m*n)
B <- matrix(rnB, m, n)
# first solution: vectorize B + kronecker product => faster but storage
issues
system.time(
for(i in 1:100){
b <- c(B)
vKron.A <- kronecker(diag(v), A)
SOL1 <- vKron.A %*% b
})
# second solution: orig. dims + apply + mapply => slower, but w/o
storage issues
system.time(
for(i in 1:100){
Av <- outer(A, v, FUN="*")
Av.df1 <- apply(Av, 3, as.data.frame)
Av.df2 <- lapply(X=Av.df1, FUN=as.matrix, nrow=m, ncol=m)
SOL...
1999 Jun 02
1
nmbd errors on console
I get the following errors on the console of my newly installed 2.0.4b
server on a Sun E4000:
nmbd/nmbd_packets.c: (1412)
find_subnet_for_nmb_packet: response record not found for response id
<num>.
nmbd/nmbd_responserecordsdb.c: (240)
find_response_record: response packet id <num> received with no matching
record
I don't know the internals well enough to decipher these, can