[rkward-users] [rkward - Help] RE: frequency table

[SourceForge.net]

Read and respond to this message at: 
https://sourceforge.net/forum/message.php?msg_id=4785932
By: markbaas

Hey ive got the code

data.frame(age=sample(table(var)),percent=sample(prop.table(table(var))))


Now i want to make a plugin... I can't get it done. This is what i have it works
like sh*t:

<?
function preprocess () {
}

function calculate () {
?>
<? $vars = "substitute (" . str_replace ("\n", "), substitute (", trim (getRK_val
("x"))) . ")"; ?>
vars <- list(<? echo ($vars); ?>)
result <- vector(mode = "list") 
for(var in vars){
	result <- data.frame(age=sample(table(var)),percent=sample(prop.table(table(var
))))
}
<?
}

function printout () {
?>

rk.header ("Frequency Table")
rk.print (result)
<?
}
?>

______________________________________________________________________
You are receiving this email because you elected to monitor this forum.
To stop monitoring this forum, login to SourceForge.net and visit: 
https://sourceforge.net/forum/unmonitor.php?forum_id=165574