[Asrr-commits] r9 - pkg pkg/R pkg/data pkg/man www
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Tue Feb 24 13:18:36 CET 2009
Author: wincent
Date: 2009-02-24 13:18:36 +0100 (Tue, 24 Feb 2009)
New Revision: 9
Added:
pkg/R/inclusion.R
pkg/data/KatzHauMahoney.Rdata
www/rghuang.html
Modified:
pkg/CITATION
pkg/ChangeLog
pkg/R/QCA.R
pkg/man/thresholdssetter.rd
pkg/man/tsls2.Rd
www/index.html
Log:
Modified: pkg/CITATION
===================================================================
--- pkg/CITATION 2009-01-16 12:49:23 UTC (rev 8)
+++ pkg/CITATION 2009-02-24 12:18:36 UTC (rev 9)
@@ -1,10 +1,10 @@
To cite package 'ASRR' in publications use:
-Huang Ronggui. 2008. ASRR: Applied Sociological Research with R. R package version 0.0-1.http://asrr.r-forge.r-project.org/.
+Huang Ronggui. 2009. ASRR: Applied Sociological Research with R. R package version 0.0-1.http://asrr.r-forge.r-project.org/.
@Manual{ASRR_rgHUANG,
title = {ASRR: Applied Sociological Research with R},
author = {Ronggui HUANG},
- year = {2008},
+ year = {2009},
url = {http://asrr.r-forge.r-project.org/}
}
\ No newline at end of file
Modified: pkg/ChangeLog
===================================================================
--- pkg/ChangeLog 2009-01-16 12:49:23 UTC (rev 8)
+++ pkg/ChangeLog 2009-02-24 12:18:36 UTC (rev 9)
@@ -1,2 +1,5 @@
+2009-01-17
+ * check value of nlevels argument in cs_truthTable and reduce.default
+
2009-01-16
* reduce is generic function now.
Modified: pkg/R/QCA.R
===================================================================
--- pkg/R/QCA.R 2009-01-16 12:49:23 UTC (rev 8)
+++ pkg/R/QCA.R 2009-02-24 12:18:36 UTC (rev 9)
@@ -229,9 +229,11 @@
{
if (outcome==""||conditions =="") stop("You must specific outcome and conditions first.")
fulldata <- mydata[,c(outcome,conditions)]
- if (any(fulldata %in% c(0,1))) stop("data value must in [0,1].")
outcomeData <- mydata[,outcome]
+ if (any(!outcomeData %in% c(0,1))) stop("outcome value must in [0,1].")
conditionsData <- mydata[,conditions]
+ colmax <- sapply(conditionsData,max,na.rm=T)
+ if (any(colmax+1 > nlevels)) stop(sprintf("Mismatch of values of conditions and 'nlevels' argument.\n possible value is c(%s)",paste(colmax+1,collapse=",")))
if (!is.null(weight)) weight <- mydata[[weight]] else weight <- rep(1, nrow(mydata))
method <- match.arg(method)
getId <- function(implicant,nlevels){
@@ -424,6 +426,8 @@
dots <- list(...)
mydata <- do.call(preprocess,c(list(mydata=mydata,nlevels=nlevels,outcome=outcome,conditions=conditions),dots))
mydata <- mydata$truthTable
+ colmax <- sapply(mydata[,conditions],max,na.rm=T)
+ if (any(colmax+1 > nlevels)) stop("Mismatch of values of conditions and 'nlevels' argument.")
} else mydata <- mydata$truthTable
## if (keepTruthTable) truthTable <- subset(mydata,OUT!="?") else truthTable <- NULL
Added: pkg/R/inclusion.R
===================================================================
--- pkg/R/inclusion.R (rev 0)
+++ pkg/R/inclusion.R 2009-02-24 12:18:36 UTC (rev 9)
@@ -0,0 +1,34 @@
+suffnec.test <- function(data,outcome,conditions,type=c("suff","nec"),
+ benchmark=0.65,conf.level=0.95,...)
+{
+ ## outcome can be more than one
+ ## only test the individual condition
+ ## a separate function for the combination of conditions
+ type <- match.arg(type)
+ outData <- data[outcome]
+ conditionsData <- data[conditions]
+ ##augmentation of conditions Data by negation
+ N1 <- ncol(outData)
+ N2 <- ncol(conditionsData)
+ ans <- matrix(nrow=N2,ncol=N1)
+ rownames(ans) <- conditions
+ colnames(ans) <- outcome
+ if (type=="suff"){
+ for (i in seq_len(N2)){
+ for (j in seq_len(N1)){
+ ans[i,j] <- mean(outData[j]>= conditionsData[i])
+ ## add statistical test
+ }
+ }
+ } else if (type=="nec"){
+ for (i in seq_len(N2)){
+ for (j in seq_len(N1)){
+ ans[i,j] <- mean(outData[j] <= conditionsData[i])
+ ## add statistical test
+ }
+ }
+ }
+ ans
+}
+
+##suffnec.test(KatzHauMahoney,c("EDF","EUDF","SDF","SUDF"),c("DIPF","LIEF","MTEF","SLF","SCF"),"nec")
Added: pkg/data/KatzHauMahoney.Rdata
===================================================================
(Binary files differ)
Property changes on: pkg/data/KatzHauMahoney.Rdata
___________________________________________________________________
Name: svn:mime-type
+ application/octet-stream
Modified: pkg/man/thresholdssetter.rd
===================================================================
--- pkg/man/thresholdssetter.rd 2009-01-16 12:49:23 UTC (rev 8)
+++ pkg/man/thresholdssetter.rd 2009-02-24 12:18:36 UTC (rev 9)
@@ -10,7 +10,7 @@
}
\usage{
thresholdssetter(x, nthreshold = 1, value = TRUE, method ="average",
-thresholds=NULL,dismethod="euclidean",print.table=TRUE)
+ thresholds=NULL,dismethod="euclidean",print.table=TRUE)
}
%- maybe also 'usage' for other objects documented here.
\arguments{
@@ -54,7 +54,9 @@
\author{Ronggui HUANG}
%\seealso{ ~~objects to See Also as \code{\link{help}}, ~~~ }
\examples{
-thresholdssetter(Lipset$GNPCAP,2,value=FALSE)
-thresholdssetter(Lipset$GNPCAP,2)
+cuttingPoint <- thresholdssetter(Lipset$GNPCAP,2,value=FALSE)
+thresholdssetter(Lipset$GNPCAP,thresholds=cuttingPoint)
+thresholdssetter(Lipset$GNPCAP,2)## the same as the previous one
+thresholdssetter(Lipset$GNPCAP,2,print=FALSE) ## print recoded variable rather than a table
}
%\keyword{ ~kwd2 }% __ONLY ONE__ keyword per line
Modified: pkg/man/tsls2.Rd
===================================================================
--- pkg/man/tsls2.Rd 2009-01-16 12:49:23 UTC (rev 8)
+++ pkg/man/tsls2.Rd 2009-02-24 12:18:36 UTC (rev 9)
@@ -10,7 +10,7 @@
\details{
This functions is a modification of tsls in sem package. The modified
- tsls2 return the instrumental variables matrix, so can use endog_test
+ tsls2 return the instrumental variables matrix, so can use \code{endog_test}
to conduct test of endogeneity. The usage of \code{tsls2} is the same
as \code{\link[sem]{tsls}}.
}
Modified: www/index.html
===================================================================
--- www/index.html 2009-01-16 12:49:23 UTC (rev 8)
+++ www/index.html 2009-02-24 12:18:36 UTC (rev 9)
@@ -36,7 +36,7 @@
<h1>More...</h1>
<p>The project summary page you can find <A HREF="http://r-forge.r-project.org/projects/asrr/">Here</A>.
-<p>Homepage of <A HREF="http://ronggui.huang.googlepages.com/">the author</A>.
+<p>Homepage of <A HREF="rghuang.html">the author</A>.
Other package by me: <A HREF="http://rqda.r-forge.r-project.org/">RQDA</A>.
</BODY>
Added: www/rghuang.html
===================================================================
--- www/rghuang.html (rev 0)
+++ www/rghuang.html 2009-02-24 12:18:36 UTC (rev 9)
@@ -0,0 +1,104 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
+<HTML>
+<HEAD>
+ <META HTTP-EQUIV="CONTENT-TYPE" CONTENT="text/html; charset=UTF-8">
+ <TITLE>Ronggui HUANG</TITLE>
+ <style type="text/css">
+body {
+ padding-left: 3em;
+ padding-right: 3em;
+ color: black;
+ font-size:13px}
+h1 {
+ font-family: Helvetica, Arial,SunSans-Regular, sans-serif;
+ font-size:14px
+ }
+ </style>
+
+</HEAD>
+
+<BODY>
+
+<h1><A href="http://www6.cityu.edu.hk/sa/rdegree_student/huangronggui.html">HUANG Ronggui</A></h1>
+PhD candidate
+<p>
+City University of Hong Kong
+<p>
+Department of Public and Social Administration
+<p>Tat Chee Avenue, Kowloon, Hong Kong, China
+<p>Telephone: (852) 34423832
+<p>Email: ronggui dot huang at gmail dot com
+<p>Home Page: <A HREF="http://asrr.r-forge.r-project.org/rghuang.html">http://asrr.r-forge.r-project.org/rghuang.html</A>.
+
+<h1>Education</h1>
+<li>2007-present, Department of Public and Social Administration, City University of Hong Kong.
+<li>2007-2007, Master of sociology, Fudan University, Shanghai.
+<li>2000-2004, Bachelor of Law in Social Work, Fudan University, Shanghai.
+
+<h1>Research Interests</h1>
+<li>Political Sociology, e.g. social movement, urban resistance etc..
+<li>Urban Study, e.g. housing study and neighborhood study.
+<li>Social capital.
+
+
+<h1>Publications</h1>
+<p><b>Journal articles</b>
+
+<p>桂勇、黄荣贵，2008，社区社会资本测量:一项基于经验数据的研究 ，社会学研究，第3期，pp122-142。[CSSCI] （摘要转载于中国人民大学书报资料中心复印报刊资料C4《社会学》2008年第8期）
+<br> GUI Yong and HUANG Ronggui. 2008. Measuring Community Social Capital: An empirical study. Sociological Research. (3):122-142. (In Chinese)
+
+<p>李洁瑾、黄荣贵、冯艾，2007，社区异质性与邻里社会资本，复旦学报（社会科学版）， 第5期，pp67-73。[CSSCI]
+<br>LI Jiejin, HUANG Ronggui Huang and FENG Ai. 2007. Urban community heterogeneity and neighborhood social capital. Fudan Journal (Social Sciences Edition), (5):67-73.(In Chinese)
+
+<p>符钢战、韦振煜、黄荣贵, 2007，农村能人与农村发展，农业经济导刊, 第10期，pp157-158 (转载自中国农村经济的第3期)。
+
+<p>符钢战、韦振煜、黄荣贵, 2007，农村能人与农村发展，中国农村经济,第3期，pp38-47。[CSSCI]
+<br>FU Gangzhan, WEI Zhenyi and HUANG Ronggui.2007. Rural Entrepreneurs and Rural Development. Rural agricultural economics (3): 38-47.(In Chinese)
+
+<p>桂勇、黄荣贵，2006，城市社区：共同体还是“互不相关的邻里”，华中师范大学学报（人文社会科学卷），45(6)，pp36-42。[CSSCI]
+<br>GUI Yong and HUANG Ronggui. 2006. Is Urban Community "Gemeinschaft" Or Neighborhood. Journal of Huazhong Normal University (Humanities and Social Sciences). 25(6):36-42.(In Chinese)
+
+<p>桂勇、黄荣贵、李洁瑾、袁静，2003，直选：是社会资本开发还是行政推销民主？，上海城市管理职业技术学院学报，12(6),pp22-25。
+<br>GUI Yong, HUANG Ronggui, LI Jiejin and YUANG Jing. 2003. Direct election: Building social capital or saling democracy? Journal of Shanghai Polytechnic College of Urban, 12(6):22-25. (In Chinese)
+
+<p>*CSSCI means Chinese Social Science Citation Index.
+
+<p><b>Conference articles</b>
+
+<p>HUANG Ronggui, 2008, Housing commercialization and decline of social capital?:Evidence from Shanghai, International Conference "Social Capital and Volunteering in Modern Ageing Cities: Building Intergenerational Inclusion", 15-17 Dec, 2008: City University of Hong Kong.
+
+<p>Huang Ronggui, 2008, Networks as mobilization structure, real and virtual: Empirical study of urban contentious politics, “城市草根抗争与基层治理”研讨会, 复旦大学基层社会与政权建设研究中心& 复旦大学发展与政策研究中心(Conference on grassroots resistance and urban governance. Fudan University.)。
+
+<p>Huang Ronggui, 2008, Grievance, collective interest and grassroots struggle: pilot study in Shanghai, The Third Annual Conference of The Asian Studies.
+
+<p>黄荣贵,桂勇, 2007, 社区社会资本测量：来自上海的经验,"社会资本与中国发展──实证研究的进展与展望"研讨会，复旦大学。
+<br>HUANG. 2007. Measuring community social capital: empirical study in Shanghai. “Social capital and development in China—current empirical study and future directions”. Fudan University. (In Chinese)
+
+<p>余慧、黄荣贵、桂勇，2007，工作—家庭冲突中的性别差异，第三届复旦大学社会性别与发展论坛论文集，上海：复旦大学社会性别与发展研究中心，pp385--392。
+
+<p>黄荣贵、桂勇，2007，参与意愿抑或机会结构：房屋产权与城市地方性社会卷入，“中国城市化与和谐社会建构”学术研讨会论文集，上海：同济大学，pp47-58。
+<br>HUANG Ronggui and GUI Yong, 2007. Will of participation or opportunity structure: homeownership and social involvement in community. In proceedings of “Urbanization and construction of harmonious society in China”,pp47-58. Shanghai: Tongji University. (In Chinese)
+
+<p>黄荣贵、李洁瑾、江晋，2006，公民文化、动员与投票行为——一项有关居民委员会直接选举的研究，上海研究生学术论坛论文集·都市社会与文化分卷，上海：上海大学，pp251-256。
+<br>HUANG Ronggui, LI Jiejin, and JIANG Jin.2006. Civic culture, mobilization and voting behavior. In Selected Proceedings of Shanghai Graduate Student's academic Forum—Urban Society and Culture.
+Shanghai University, December. (In Chinese)
+
+<p>黄荣贵、余慧、骆天珏，2006，教育、生活满意度与环境意识——对个体特征与环境意识关系的实证研究，复旦大学环境经济研究中心第七届年会暨学术研讨会论文集，上海：复旦大学经济环境研究中心，pp95-103 。
+
+<h1>Software development</h1>
+<p><A HREF="http://rqda.r-forge.r-project.org/"><b>RQDA</b></A>.
+<p>
+A R package for Qualitative Data Analysis. It includes a number of standard Computer-Aided Qualitative Data Analysis features. It is seamlessly integrated with R To some extent, RQDA and R makes an integrated platform for both quantitative and qualitative data analysis.
+
+<p><A HREF="http://asrr.r-forge.r-project.org/"><b>ASRR</b></A>.
+<p>Miscellaneous R functions for quantitative sociological research. Most interesting ones are functions for QCA (e.g. csQCA, mvQCA, fsQCA). As far as I know, this is the first software supporting all three kinds of QCA.
+
+
+<h1>Teaching profile</h1>
+<li>2008-2009, SA2602: Data Processing and Analysis, Tutorial and lab sesstion.
+<li>2007-2008, SA6803: Research Methods for housing management, Lab sesstion.
+<li>2007-2008, SA2602: Data Processing and Analysis, Lab sesstion.
+
+<h1>Administrative Service</h1>
+<li> Research student representative
+</body>
More information about the Asrr-commits
mailing list