Displaying 1 result from an estimated 1 matches for "myzmat".
Did you mean:
mymat
2011 Sep 06
1
object.size() not recognized within .First()
...cat(paste("Okay, I've got you working/saving in ",
getwd()[1],"\n",sep="")) }
BIG=function(n=10,removeask=T) {
z <- sapply(ls(pos=1), function(x)object.size(get(x)))
zlab=names(z)
z=as.matrix(rev(sort(z)))
zlab=as.matrix(rev(sort(zlab)))
myzmat=data.frame(id=1:n,name=zlab[1:n],size=z[1:n])
row.names(myzmat)=NULL
print(myzmat)
cat("\nGive c() vector of id's to delete, or return to exit\n")
thechosen=readline()
if (thechosen=="") {
invisible(return()) } else {
byebye=eval(parse(text=thechos...