Commit cfd4065d authored by Andreas Tille's avatar Andreas Tille

Import Upstream version 0.8-5

parent e6628aa5
This diff is collapsed.
......@@ -9,6 +9,4 @@ The Fortran code is
Copyright (C) 2006 Norman Verhelst
All code is subject to the GNU General Public License, Version 2. See
the file COPYING for the exact conditions under which you may
redistribute it.
All code is subject to the GNU General Public License, Version 2.
Package: RaschSampler
Type: Package
Title: Rasch Sampler
Version: 0.8-4
Date: 2010-03-22
Version: 0.8-5
Date: 2011-08-27
Author: Reinhold Hatzinger, Patrick Mair, Norman Verhelst
Maintainer: <reinhold.hatzinger@wu.ac.at>
Depends: stats
Description: Sampling binary matrices with fixed margins
License: GPL
License: GPL-2
Packaged: 2011-08-27 16:50:36 UTC; hatz
Repository: CRAN
Date/Publication: 2010-03-23 07:40:32
Packaged: 2010-03-22 17:33:01 UTC; hatz
Date/Publication: 2011-08-28 05:42:43
ceee64a8ba55a3f083e817ddaf7315c4 *COPYRIGHTS
225040b0947622b054c7cc2323e754f6 *DESCRIPTION
67bf5857ff434014406d2c492a4d9f43 *NAMESPACE
37383b86a5a2d72e3c196556e3eaf09c *R/phi.range.R
da2aaf90411032f77c125a1802a17c9f *R/rsampler.R
58c7acdcb60e5fef2d4bad8ff79f3751 *R/rsctrl.R
96f255d9169d2c9b8b0121c457df43de *R/rserror.R
84af75ad5133358a996b4f1334328453 *R/rsextrmat.R
7b5ffeb67fffbae19d8cea59e7d000e3 *R/rsextrobj.R
f5999b30f71b9b9e1635a2167d217c9d *R/rstats.R
e1414590f20a4138cd04abda1c5066f4 *R/rsunpack.R
c2fadf169458f52593f3ff3f17bb4401 *R/summary.RSctr.R
a0e2a25ace5e7ab05b1bda5c23acdd73 *R/summary.RSmpl.R
176c640c7acaa7210f392977e73019d3 *R/summary.RSmplext.R
bac1d538a1aef726f38615aa18f3d48a *data/xmpl.rda
1fc251a885b608884a2e4b3240d92259 *data/xmplbig.rda
d3482a367fc1f9aaa27ec2e1618115c4 *man/RSctr.Rd
a0bfdc2c3a0156ea4cd2bcbdee7dd8e8 *man/RSmpl.Rd
7c3c19e8e8db965c41e50f2c0126313b *man/RaschSampler.package.Rd
37b00ccd880232d2f889b84dc84c5dc8 *man/phi.range.Rd
ade46dd1d3d391419c9bfc573620a3d0 *man/rsampler.Rd
61388178ae969add6843305c46c1d72a *man/rsctrl.Rd
be376726ca2bda6d77acd30bef8d8461 *man/rsextrmat.Rd
7e389f288d5df3a16b605b283b7b36af *man/rsextrobj.Rd
9b4c576feee94237ec6a42cc8842f30e *man/rstats.Rd
afa498436f176dffc611229bd827ecb1 *man/summary.RSctr.Rd
158cee36a240d52bde1e3d9a6f90e53f *man/summary.RSmpl.Rd
3f44b380fea685a7662ffd351a4fe6ac *man/xmpl.Rd
fd59ab36845ad7023f529dbd04660c40 *src/RaschSampler.f90
......@@ -9,7 +9,7 @@ function(RSobj, mat.no = 1)
if(mat.no > RSobj$n_tot)
stop("\n\tElement ",mat.no," not available (",obj.name," has ", RSobj$n_tot, " elements).")
obj<-rsextrobj(RSobj, start = mat.no, end = mat.no)
RET<-rstats(obj, function(x) matrix(x, nr = obj$n))[[1]]
RET<-rstats(obj, function(x) matrix(x, nrow = obj$n))[[1]]
RET
}
......@@ -20,12 +20,14 @@ function(x,n,k,nwords,userfunc,...){
as.integer(n),
as.integer(k)
)
m<-matrix(out$mat,nr=n)
m<-matrix(out$mat,nrow=n)
# replace NAs with bitpattern corresponding to -2^31,
# i.e., 0 0 0.... 0 1
if (nas) {
idx1<-trunc(idx/nwords)+idx%%nwords # index for rows
idx2<-32+32*(1-idx%%2)*(nwords-1) # index for column
idx1 <- ceiling(idx/nwords) # index for rows
targetbyte <- idx%%nwords # which byte in row is affected
last <- k%%32 # last column in targetbyte
idx2 <- (targetbyte - 1*(last!=0))*32 + last # index for column
m[idx1,idx2]<-1
}
# calls user function to calculate statistic(s)
......
......@@ -35,8 +35,8 @@ matrices with given marginal totals.
\tabular{ll}{
Package: \tab RaschSampler\cr
Type: \tab Package\cr
Version: \tab 0.8-4\cr
Date: \tab 2010-03-22\cr
Version: \tab 0.8-5\cr
Date: \tab 2011-08-27\cr
License: \tab GNU GPL 2, June 1991\cr
}
The user has to supply a binary input matrix. After defining appropriate control
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment