I write a function to get the frequency and prop of a variable.
freq-function(x,digits=3)
{naa-is.na(x)
nas-sum(naa)
if (any(naa))
x-x[!naa]
n-length(x)
ta-table(x)
prop-prop.table(ta)*100
res-rbind(ta,prop)
rownames(res)-c(Freq,Prop)
cat(Missing value(s) are,nas,.\n)
cat(Valid case(s) are,n,.\n)
See ?sprintf
#e.g. Replace your prop line with:
prop-sprintf(%.2f%%, prop.table(ta)*100)
_
mailto:[EMAIL PROTECTED]
Kenneth Ray Hobson, P.E.
Oklahoma DOT - QA IAS Manager
200 N.E. 21st Street
Oklahoma City, OK 73105-3204
(405) 522-4985, (405) 522-0552 fax
Visit our website at:
On Fri, 2005-07-01 at 19:40 +0800, ronggui wrote:
I write a function to get the frequency and prop of a variable.
freq-function(x,digits=3)
{naa-is.na(x)
nas-sum(naa)
if (any(naa))
x-x[!naa]
n-length(x)
ta-table(x)
prop-prop.table(ta)*100
res-rbind(ta,prop)
rownames(res)-c(Freq,Prop)